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Wichtiger  Hinweis 

Die  in  diesem  Buch  wiedergegebenen  Verfahren  und  Programme  werden  ohne  Rucksicht 
auf  die  Patentlage  mitgeteilt.  Sie  sind  ausschlieBlich  fur  Amateur-  und  Lehrzwecke  be- 
stimmt  und  durfen  nicht  gewerblich  genutzt  werden. 

Alle  technischen  Angaben  und  Programme  in  diesem  Buch  wurden  von  den  Autoren  mit 
groBter  Sorgfalt  erarbeitet  bzw.  zusammengestellt  und  unter  Einschaltung  wirksamer  Kon- 
trollmaGnahmen  reproduziert.  Trotzdem  sind  Fehler  nicht  ganz  auszuschlieBen.  DATA 
BECKER  sieht  sich  deshalb  gezwungen,  darauf  hinzuweisen,  daB  weder  eine  Garantie 
noch  die  juristische  Verantwortung  oder  irgendeine  Haftung  fur  Folgen,  die  auf  fehlerhafte 
Angaben  zuriickgehen,  ubernommen  werden  kann.  Fur  die  Mitteilung  eventueller  Fehler 
sind  die  Autoren  jederzeit  dankbar. 


Fur  Jay  Minor  und  all  die  anderen,  die  diese  wunderbare 
Maschine  mdglich  gemacht  haben. 


Gestatten,  Riigheimer  &  Spanik 


Christian  Spanik  geht  unruhig  auf  der  ersten  Seite  hin  und  her. 

Hannes  Rugheimer  steht  im  Hintergrund  und  spielt  mit  ein  paar 

Disketten.  P16tzlich  wird  es  hell... 

"He  Hannes,  da  hat  einer  das  Buch  aufgeschlagen." 

"Dann  zieh'  doch  mal  deine  Fliege  gerade  und  sag'  Guten  Tag." 

Christian  fummelt  an  der  Fliege  herum.  Dann  beide  im  Chor: 

"Guten  Tag." 

Christian  (etwas  verlegen):  "Ja...  ahm...   Nett,  daB  Sie   bei   uns 

vorbeischauen  auf  der  Suche  nach  einem  BASIC-Buch  zu  Ihrem 

Amiga." 

Hannes  (drangelt  sich  nach  vorne):  "Jetzt  wollen  Sie  naturlich 

wissen,  was  Sie  davon  haben,  wenn  Sie  dieses  Buch  nehmen  und 

nicht  das  andere  da..." 

Christian  rempelt  Hannes  an,  dann  leise:  "Pssssst." 

Christian  (zum  Leser):  "Kummern  Sie  sich  gar  nicht  urn  andere 

Bucher.  Wir  wollen  Ihnen  jetzt  lieber  mal  einen  kurzen  Uber- 

blick  geben,  was  Sie  hier  alles  finden." 

"Und   was   Sie   davon   haben,   wenn   Sie   es   lesen.    Richtig:    Sie 

k5nnen  dann  zum  Beispiel  Musik  mit  Ihrem  Amiga  machen  oder 

Bilder  malen..." 

"Das  sieht  er  doch  sowieso  im  Inhaltsverzeichnis.  Da  gucken  die 

Leser  doch  immer  zuerst..." 

Christian  (etwas  aus  dem  Konzept  gekommen):  "Ja  -  was  will  ein 

Leser  denn  dann  wissen?" 

"Na  die  tollen  Dinger,  die  Highlights." 

"Ach  du  meinst  damals,  als  wir  zusammen  in  diese  Diskothek...?" 

"Nein,  die  im  Buch  naturlich.  LaB  mich  mal.  Wissen  Sie,  wenn's 
urns  Programmieren  geht,  kann  man  mit  dem  Christian  wirklich 
nicht  viel  anfangen.  Schreiben  ja,  aber  programmieren  -  das 
muB  ich  Ihnen  schon  erklaren.  Also,  im  Prinzip  finden  Sie  in 
diesem  Buch  alles,  was  man  zum  Amiga  wissen  muB,  wenn  man 
ihn  in  BASIC  programmieren  will.  Klar,  das  ist  eine  ganze 
Menge,  aber  danach  wissen  Sie  auch  wirklich  Bescheid." 

Christian  (mischt  sich  ein):  "Moment,  noch  etwas  Wichtiges:  Weil 
es  soviel  ist,  was  man  da  verstehen  muB,  und  weil  program- 


mieren  nicht  immer  ganz  einfach  ist,  haben  wir  versucht,  alles 
so  zu  erklaren,  daB  Sie  es  auch  wirklich  verstehen.  Nebenbei  soil 
Ihnen  das  Lernen  aber  auch  SpaB  machen..." 

Hannes  nickt  bekrSftigend,  steckt  die  Disketten  in  die  Tasche: 
"Richtig.  Das  ist  auch  der  Grund,  warum  wir  das  Buch  zusam- 
men  gemacht  haben.  Denn  wir  haben  entdeckt,  daB  wir  ganz  gut 
zusammen  schreiben  kflnnen.  Wissen  Sie,  es  ist  namlich  nicht 
unser  erstes  Buch.  Aber  das  ist  eine  andere  Geschichte..." 

Christian  (in  leichter  Hektik,  weil  er  Angst  hat,  der  Leser 
konnte  weiterblattern):  "Wenn  Sie  sich  nachher  mal  das  Inhalts- 
verzeichnis  anschauen,  werden  Sie  sehen,  was  da  alles  drin  ist. 
Egal,  ob  Sie  die  Grafikmoglichkeiten  des  Amiga  oder  seine  mu- 
sikalischen  Fahigkeiten  ausnutzen  wollen.  Alles  was  dazu  wichtig 
ist,  finden  Sie  hier.  So  beschrieben,  daB  Sie  es  verstehen  und 
spater  in  der  Lage  sind,  eigene  Programme  auf  dem  Amiga  zu 
schreiben." 

Hannes  (blattert  wild  in  einem  dicken  Packen  Manuskriptpapier): 
"Mal  sehen...  Naturlich  bietet  das  Buch  auch  ein  paar  Bonbons: 
Zum  Beispiel  haben  wir  einige  Nachte  damit  verbracht,  bis  wir 
herausbekommen  hatten,  wie  Sie  Bilder  aus  Graphicraft  oder 
anderen  Malprogrammen  in  BASIC  verwenden  konnen..." 

Christian  (unterbricht  Hannes):  "Und  umgedreht:  Sie  konnen 
jetzt  alle  Bilder,  die  Sie  in  BASIC  erzeugen,  im  sogenannten 
IFF-Format  abspeichern.  Wenn  Ihnen  das  jetzt  nichts  sagt, 
macht  nichts.  Zum  Erklaren  sind  wir  ja  da.  Sie  brauchen  also 
nichts  weiter  mitzubringen  als  ein  wenig  Lust,  die  nachsten  paar 
hundert  Seiten  mit  uns  zusammen  am  Amiga  zu  verbringen.  Wir 
versprechen  Ihnen,  daB  Sie  dann  eine  ganze  Menge  lernen  kon- 
nen und  auch  der  SpaB  nicht  zu  kurz  kommt.  -  Au,  verdammt." 
"Was  ist  denn?" 

"Mensch,  wir  haben  noch  gar  kein  Vorwort!  Wir  sprechen  hier 
einfach  Leser  an  und  haben  noch  nicht  einmal  ein  Vorwort!" 

"Stimmt  ja,  dabei  dachte  ich,  wir  sind  fertig.  Wie  machen  wir 
das  bloB..." 

Beide  Ziehen  sich  gedankenverloren  zuriick. 
Vorhang. 


Vom  Umgang  mit  Buchern  - 
besonders  mit  diesem 

Unser  AmigaBASIC-Buch  richtet  sich  sowohl  an  Anf anger  als 
auch  an  Fortgeschrittene.  Je  nach  Ihrem  Kenntnisstand  konnen 
Sie  sich  eine  von  zwei  Einleitungen  aussuchen.  Doch  dazu  er- 
fahren  Sie  gleich  mehr  in  Kapitel  0. 

Die  Kapitel  danach  sind  dann  fiir  alle  Leser  gedacht.  Wer  schon 
viel  von  Computern  versteht,  wird  wahrscheinlich  das  eine  Oder 
andere  bekannte  finden.  Trotzdem  sollten  auch  die  Fort- 
geschrittenen  und  Profis  ein  Kapitel  nach  dem  anderen  lesen 
und  nichts  auslassen.  Es  gibt  n&mlich  viele  Hinweise  auf  Dinge, 
die  beim  Amiga  ein  biBchen  anders  sind  als  bei  anderen  Com- 
putern. 

Wer  noch  keine  Computer-Erfahrungen  hat,  fiir  den  gilt  natiir- 
lich  erst  recht:  Bitte  lesen  Sie  alles,  und  springen  Sie  nicht  zwi- 
schen  den  Kapiteln.  Wir  werden  Stuck  fiir  Stuck  in  die  Welt  von 
AmigaBASIC  vordringen.  In  den  spateren  Kapiteln  bauen  wir 
natiirlich  auf  das  auf,  was  Sie  vorher  gelernt  haben. 

lm  Text  stehen  kursiv  gedruckte  Worte.  Diese  Worte  sind  Fach- 
ausdriicke,  deren  Erk&rung  im  Text  zu  weit  fiihren  wiirde.  Alle 
Fachworte  finden  Sie  mit  Erklarung  im  Anhang  D,  unserem 
kleinen  Fachwortlexikon.  Da  wir  gerade  von  den  AnhSngen 
sprechen:  Dort  gibt  es  noch  einiges  mehr  zu  finden. 

Bei  den  ersten  Versuchen  machen  Sie  zwangslaufig  Fehler. 
AmigaBASIC  bringt  dann  eine  Fehlermeldung.  Meist  gehen  diese 
Fehler  auf  Tippfehler  oder  eine  falsche  Reihenfolge  von  Werten 
zuriick.  Im  Text  weisen  wir  auf  typische  oder  mogliche  Fehler 
hin.  Alle  Fehler  konnen  wir  aber  nicht  vorhersehen,  je  nach  der 
Vorgeschichte  Ihres  Programms  und  den  internen  Zustanden  im 
Amiga  kann  es  da  sehr  viele  Mfiglichkeiten  geben.  Das  sorgt  fur 
Abwechslung  und  fur  den  Anhang  A.  Dort  finden  Sie  alle  Feh- 
lermeldungen  in  alphabetischer  Reihenfolge.  Wenn  Sie  hinten 
nachschauen,  finden  Sie  Erkliirungen,   warum  der  Fehler  auf- 


getreten  sein  kann,  was  er  bedeutet,  und  was  man  dagegen  un- 
ternehmen  kann.  Schlagen  Sie  also  im  Falle  eines  Falles  im  An- 
hang  A  nach. 

Apropos  abtippen:  Im  Buch  finden  Sie  eine  ganze  Menge  Bei- 
spielprogramme.  Das  reicht  von  kleinen  Dreizeilern  bis  hin  zu 
mehreren  Seiten  langen  Listings.  Das  Beste  ware  natiirlich,  wenn 
Sie  alle  diese  Listings  gemeinsam  mit  uns  eingeben  wiirden.  Im 
Verlauf  der  einzelnen  Kapitel  stellen  wir  Ihnen  immer  wieder 
einen  neuen  Programmabschnitt  vor,  erklaren  die  neuen  Befehle 
und  wie  die  einzelnen  Teile  funktionieren.  So  laBt  sich  unserer 
Meinung  nach  der  grSUte  Lerneffekt  erreichen. 

Uns  ist  aber  auch  die  Schattenseite  dieses  Verfahrens  bewuBt. 
Viele  Leser  haben  einfach  nicht  die  Zeit  -  vielleicht  auch  nicht 
die  Lust?!-,  seitenlange  Listings  abzutippen.  Von  den  vielen 
Fehlern,  die  man  dabei  zwangslaufig  macht,  gar  nicht  zu  reden. 
Und  daB  das  Abtippen  auch  keinen  so  groBen  SpaB  macht, 
braucht  uns  auch  keiner  zu  sagen. 

Also  haben  wir  uns  entschlossen,  diesem  Buch  eine  Diskette 
beizufugen.  Auf  dieser  "Diskette  im  Buch"  finden  Sie  alle  Pro- 
gramme, die  wir  in  den  verschiedenen  Kapiteln  vorstellen.  Ein- 
faches  Anklicken  genugt,  dann  kflnnen  Sie  jedes  einzelne  Pro- 
gramm  sofort  ausprobieren.  Das  einzige,  was  Sie  vorher  noch  tun 
mussen,  ist,  das  AmigaBASIC  von  Ihrer  "Extras"-Diskette  auf 
unsere  Diskette  zu  kopieren.  Wir  kommen  darauf  nochmal  im 
"Zwischenspiel  1"  zuriick. 

In  diesem  Zusammenhang  sollten  wir  aber  vielleicht  einem  MiB- 
verstandnis  vorbeugen:  Die  Programme  in  diesem  Buch  und  auf 
der  Diskette  haben  allein  das  Ziel,  Ihnen  beim  Lernen  von 
AmigaBASIC  zu  helfen.  Wir  wollen  und  konnen  nicht  mit  pro- 
fessioneller  Software  konkurrieren.  DaB  Programme  wie  "Aegis 
Videotitler",  "Deluxe  Paint  II"  oder  "Analyze"  deutlich  mehr  lei- 
sten  als  unser  "Videotitel-Programm",  unser  Malprogramm  oder 
das  "Balken-  und  Tortengrafik-Utility",  das  versteht  sich  eigent- 
lich  von  selbst. 


Mit  der  Diskette  im  Buch  ist  all  denen  geholfen,  die  sich  unsere 
Beispiele  erst  mal  komplett  anschauen  wollen.  Sie  konnen  ja  zu 
einem  spateren  Zeitpunkt  das  Listing  auf  dem  Bildschirm  ver- 
folgen  und  es  mit  unseren  Erkiarungen  vergleichen. 

Wenn  Sie  ein  Programm  selbstandig  eingegeben  haben  und  dieses 
Programm  dann  absolut  nicht  laufen  will,  weil  irgendwo  ein 
Fehler  steckt  -  auch  dann  hilft  Ihnen  die  Diskette  im  Buch.  Sie 
kflnnen  in  so  einem  Fall  das  Programm  laden  und  ausprobieren. 
Wenn  Ihr  Amiga  soviel  Speicher  hat,  daB  Sie  AmigaBASIC 
zweimal  starten  kflnnen  (das  ist  etwa  ab  1  MegaByte  sinnvoll), 
kSnnten  Sie  auch  gleichzeitig  Ihre  und  unsere  Version  laden,  die 
beiden  List-Windows  nebeneinander  legen  und  Zeile  fur  Zeile 
vergleichen.  Bis  Sie  den  Fehler  schlieBlich  entdeckt  haben. 

Kommen  wir  von  unserer  Diskette  zu  einer  anderen.  Die  Firma 
Commodore  hat  Ihnen  einige  Beispielprogramme  auf  Ihrer  MEx- 
trasM-Diskette  mitgeliefert.  Im  Anhang  C  erklaren  wir  Ihnen 
kurz,  wie  sie  funktionieren,  was  Sie  beachten  miissen  und  was 
Sie  damit  anfangen  konnen. 

Irgendwann  haben  Sie  unser  Buch  fertig  gelesen  und  werden  ei- 
gene  BASIC-Programme  schreiben.  Dabei  treten  sicher  Fragen 
auf  iiber  die  Verwendung  eines  BASIC-Befehles  und  seine  M6g- 
lichkeiten.  Damit  Sie  nicht  lange  im  Text  des  vorderen  Buchteils 
suchen  miissen,  gibt  es  hinten  den  Anhang  B,  in  dem  alle 
BASIC-Befehle  mit  alien  Optionen  (M6glichkeiten)  erklart  sind. 
Da  wir  zum  Programmieren  nicht  alle  Befehle  und  alle  Optionen 
benutzen,  ist  dieser  Anhang  schon  wahrend  des  Lesens  nutzlich 
und  interessant. 

In  diesem  Buch  wird  manchmal  die  Rede  sein  von  Amiga  500, 
1000  und  2000.  Wie  Sie  vielleicht  wissen,  hatte  der  Amiga  schon 
vom  ersten  Jahr  an  eine  bewegte  Geschichte.  Der  Ursprungs- 
Amiga,  der  ganz  zu  Beginn  zu  kaufen  war,  hat  die  Typen- 
bezeichnung  Amiga  1000.  Im  Fruhjahr  1987  wurden  seine  bei- 
den Nachfolger  vorgestellt:  Der  Amiga  500,  ein  Kompaktgerat, 
in  dem  Tastatur,  Floppy  und  Rechner  in  einem  einzigen  Ge- 
hause  untergebracht  sind,  und  der  Amiga  2000,  ein  offenes  Sy- 
stem, in  dem  Sie  Erweiterungskarten  einstecken  kOnnen  und  das 


vom  Design  her  eher  einem  PC  ahneit.  Der  Amiga  1000  wird 
seitdem  nicht  mehr  hergestellt.  Nichtsdestotrotz  gibt  es,  abgese- 
hen  von  unseren  beiden,  eine  ganze  Menge  Amiga  1000,  die  in 
Deutschland  bereits  verkauft  sind.  Deshalb  haben  wir  unser 
Buch  so  geschrieben,  daB  es  von  alien  Amiga-Besitzern  glei- 
chermafien  genutzt  werden  kann.  Das  war  auch  nicht  allzu 
schwer,  da  die  drei  Amiga-Bruder  untereinander  sowieso  voll 
kompatibel  sind.  An  einigen  Stellen  finden  Sie  Anmerkungen, 
was  sich  bei  der  Handhabung  der  einzelnen  Amiga-Versionen 
unterscheidet. 

Hier  haben  wir  gleich  den  ersten  Hinweis.  Er  richtet  sich  nur  an 
die  Besitzer  von  Amiga  1000,  die  keine  Speichererweiterung  ha- 
ben und  mit  256  KByte  RAM  (Schreib-/Lese-Speicher)  aus- 
kommen  miissen.  Falls  Sie  einen  Amiga  500  oder  2000  haben,  ist 
dieses  Thema  fur  Sie  uninteressant.  Wir  gehen  nSmlich  bei  den 
Programmbeispielen  in  diesem  Buch  davon  aus,  daB  mindestens 
512  KByte  RAM  zur  Verfugung  stehen.  Fur  die  Besitzer  von 
nicht  aufgerusteteten  lOOOer-Amigas  haben  wir  nur  einen  Tip: 
Gehen  Sie  so  schnell  wie  mSglich  in  Ihren  Laden,  und  kaufen 
Sie  sich  die  256  KByte-Erweiterung  fur  Ihren  Amiga.  Denn  er- 
stens  weifl  man  nicht,  wielange  dieses  Zusatzteil  iiberhaupt  noch 
erhaltlich  ist,  und  zweitens  ist  die  Speichererweiterung  auf  512 
KByte  das  sinnvollste  Zusatzteil  Iiberhaupt.  Ohne  sie  brauchen 
Sie  gar  nicht  erst  an  die  Anschaffung  eines  zweiten  Disketten- 
Iaufwerks  oder  anderer  Peripheriegerate  zu  denken... 

Aber,  wie  gesagt,  dieser  Hinweis  gilt  ausschliefilich  fur  die  Be- 
sitzer von  Amiga  1000  ohne  256KByte-Speichererweiterung. 
Und  das  durften  nicht  mehr  allzuviele  unter  Ihnen  sein. 

Und  jetzt  noch  ein  paar  organisatorische  Punkte:  Im  Buch  gehen 
wir  davon  aus,  daB  Sie  die  Grundfarben  der  Original-Work- 
bench benutzen.  Darauf  beziehen  sich  alle  Farbangaben.  AuBer- 
dem  sind  alle  Programme  fur  die  Darstellung  mit  80  Zeichen 
formatiert.  Das  heiflt:  Wenn  Ihre  Texte  bei  den  Programmen,  die 
Sie  hier  abtippen,  richtig  auf  dem  Bildschirm  ausgegeben  wer- 
den sollen,  miissen  Sie  den  Amiga  mittels  Preferences  auf  80- 
Zeichen-Darstellung  schalten.  Wie  das  geht,  steht  im  Amiga-Be- 
nutzerhandbuch. 


AuBerdem  gehen  wir  in  diesem  Buch  davon  aus,  daB  Sie  mit  den 
1.2-Versionen  der  Disketten  "Kickstart"  (nur  fur  Besitzer  des 
Amiga  1000),  "WorkbenchM  und  "Extras"  arbeiten.  Soil  ten  Sie 
diese  Disketten  noch  nicht  besitzen,  wenden  Sie  sich  bitte  an 
Ihren  Handler,  der  sie  Ihnen  sicher  kopieren  wird.  Sollte  das  aus 
irgendwelchen  Grunden  nicht  gehen,  versuchen  Sie,  die  Disket- 
ten vielleicht  von  befreundeten  Amiga-Besitzern  zu  erhalten. 
Wer  einen  Amiga  500  oder  2000  hat,  bekommt  die  richtigen 
Disketten  sowieso  mitgeliefert. 

Apropos  MExtras"-Diskette:  Commodore  hat  in  verschiedenen 
Lieferungen  dieser  Diskette  verschiedene  Namen  gegeben.  Die 
haufigsten  Varianten  sind:  "Extras",  "ExtrasD"  oder  "Extras  1.2". 
Fur  die  Beispiele  in  unserem  Buch  ist  es  wichtig,  daB  wir  alle 
vom  selben  Diskettennamen  ausgehen.  Falls  Ihre  "ExtrasD"-Dis- 
kette  anders  heiBt,  benennen  Sie  sie  bitte  in  "ExtrasD"  urn.  Soil- 
ten  Sie  nicht  wissen,  wie  das  geht,  so  erfahren  Sie  es  im  Com- 
modore-Anwender-Handbuch,  Kapitel  4.4.6. 

So.  Aber  jetzt  kann's  endlich  losgehen. 
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Im  folgenden  kleinen  Abschnitt  sollen  Sie  nicht  heiteres  Berufe- 
raten  mit  uns  spielen,  sondern  fur  sieh  herausfinden,  welcher 
Typ  von  Leser  Sie  sind.  Das  ist  wichtig,  weil  unser  Buch  dem 
Anfanger  genauso  helfen  soil  wie  dem  Profi.  Das  stellt  uns  aber 
vor  die  Frage,  welche  Grundkenntnisse  wir  eigentlich  voraus- 
setzen  kSnnen.  Kennen  Sie  sich  mit  der  Bedienung  des  Amiga 
schon  perfekt  aus?  Welche  Erfahrungen  haben  Sie  iiberhaupt  mit 
Computern? 

Um  Ihnen  einen  optimalen  Einstieg  zu  bieten,  haben  wir  uns 
entschlossen,  einfach  zwei  verschiedene  Einleitungskapitel  zu 
schreiben:  Eines  fur  den,  der  bisher  noch  nicht  viel  mit  Com- 
putern zu  tun  hatte  und  auch  den  Amiga  noch  nicht  lange  be- 
sitzt.  Ein  anderes  fur  den,  der  schon  einige  Computererfah- 
rungen  hat. 

Sie  konnen  sich  jetzt  selbst  aussuchen,  mit  welchem  Kapitel  Sie 
lieber  anfangen  mochten.  Diejenigen,  die  sich  zuerst  noch  mal 
alles  erklSren  lassen  wollen,  bitten  wir  ins  Kapitel  0.1.  Die  an- 
deren  Leser  werden  gebeten,  sich  im  Kapitel  0.2  einzufinden. 

In  jedem  Fall  ist  die  Programmiersprache  AmigaBASIC  fur  alle 
geeignet,  die  eigene  Programme  schreiben  wollen,  unabhSngig 
von  den  Vorkenntnissen.  Die  Entscheidung,  die  Sie  jetzt  fur  sich 
treffen  sollten,  hieBe  auf  BASIC  ubrigens: 

IF  NOT  Profi  THEN  GOTO  Kapitel  0.1 
IF  Profi  THEN  GOTO  Kapitel  0.2 

Das  sollten  Sie  allerdings  nicht  Ihren  Amiga  entscheiden  lassen. 
Er  wiirde  bei  diesen  Zeilen  als  Ergebnis  hochstens  einen  SYN- 
TAX ERROR  produzieren.  Warum?  Die  Antwort  auf  dieses  und 
andere  Geheimnisse  werden  Sie  auf  den  nachsten  Seiten  finden. 
Aber  sehen  Sie  sich  vor:  Nach  diesem  Buch  werden  Sie  in 
AmigaBASIC  kaum  mehr  Geheimnisse  entdecken,  aber  dafiir 
eine  ganze  Menge  SpaB. 
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0.1        Von  Mausen,  die  fensterln  -  die  Workbench 

Wenn  Sie  sich  fur  dieses  Kapitel  entschieden  haben,  sind  Sie  der 
Meinung,  daB  Sie  sich  noch  nicht  so  gut  mit  der  Workbench  und 
den  Grundfunktionen  des  Amiga  auskennen.  Oder  daB  zumin- 
dest  ein  wenig  Auffrischung  nicht  schaden  kflnnte.  Wir  wollen 
diese  Themen  deshalb  besonders  ausfiihrlich  besprechen. 

-  Schalten  Sie  dazu  bitte  den  Amiga  und  den  Monitor  ein. 

Auf  dem  Monitor  sehen  Sie  zunachst  nichts  weiter  als  eine  ein- 
farbige,  dunkelgraue  Flache.  Aber  keine  Sorge,  das  heiBt  nicht, 
daB  man  beim  Arbeiten  mit  Amiga  in  grauer  Trostlosigkeit  ver- 
sinkt:  Der  Amiga  fiihrt  nur  einen  Selbsttest  durch.  Deshalb  ho- 
ren  Sie  auch  gleich  danach  eine  kurze  Tonfolge.  Sie  kommt  ent- 
weder  aus  dem  Lautsprecher  des  Monitors  Oder  tiber  Ihre  Ste- 
reoanlage,  je  nachdem,  wie  Sie  den  Amiga  angeschlossen  haben. 
SchlieBlich  wird  der  Bildschirm  weiB,  dann  sehen  Sie  eine  stili- 
sierte  Hand,  die  eine  Diskette  halt.  Womit  Sie  bereits  das  erste- 
mal  mit  einem  wichtigen  Feature  des  Amiga  konfrontiert  wer- 
den,  der  Symbol-Sprache.  In  diesem  Fall  bedeutet  das  Symbol: 
Ihr  Amiga  verlangt  eine  Diskette.  Im  Falle  des  Amiga  1000  ist  es 
die  Kickstart-Diskette.  Diese  Diskette  ist  fiir  ihn  so  wichtig  wie 
fur  manche  Leute  der  Morgenkaffee  -  er  braucht  sie  einfach, 
um  in  Gang  zu  kommen. 

-  Legen  Sie  bitte  die  Kickstart-Diskette  ein,  wenn  Sie  einen 
Amiga  1000  besitzen. 

Schieben  Sie  die  Diskette  dazu  bitte  so  in  das  interne  Laufwerk 
des  Amiga,  wie  auf  dem  Bildschirm  gezeigt:  Der  MetallverschluB 
der  Diskette  muB  nach  vorn  zeigen  und  die  beschriftete  Seite 
nach  oben.  Auf  der  Kickstart-Diskette  befindet  sich  das 
Betriebssystem  des  Computers.  Ein  paar  Worte  zur  Kiarung  des 
Begriffes:  Selbst  der  tollste  Computer  steht  ziemlich  dumm  da, 
wenn  er  kein  Programm  hat,  das  ihm  sagt,  was  er  tun  soil.  Das 
Betriebssystem  ist  ein  solches  Programm.  Hier  erfahrt  Ihr  Amiga 
zum  Beispiel,  wie  er  auf  die  Tastatur  und  auf  die  Maus  reagie- 
ren  oder  wie  er  Grafiken  und  Texte  auf  den  Bildschirm  bringen 
soil.    Diese    Informationen    werden    wahrend    des    Ladens    der 
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Kickstart  in  einen  speziellen  Speicherbereich  geschrieben,  der 
spater  nicht  mehr  geloscht  werden  kann,  solange  der  Amiga  an- 
geschaltet  bleibt.  Nach  etwa  20  Sekunden  ist  er  mit  dem  Laden 
fertig.  Nun  verlangt  er  nach  einer  neuen  Diskette  -  wieder 
durch  das  bekannte  Handsymbol.  Die  Diskette  tr£gt  diesmal  die 
Aufschrift  "Workbench". 

-  Drucken   Sie   bitte   auf  den   Auswurf-Knopf   am   Disketten- 
laufwerk. 

Die  alte  Diskette  wird  ausgeworfen,  das  heiBt,  sie  schaut  dann 
ein  Stuck  aus  dem  Laufwerk  heraus. 

-  Entnehmen  Sie  bitte  die  Kickstart-Diskette. 

-  Schieben  Sie  dann  die  Workbench-Diskette  ins  interne  Lauf- 
werk. 

Und  an  dieser  Stelle  begruBen  wir  auch  diejenigen,  die  einen 
Amiga  500  oder  2000  haben.  Ihr  Computer  hat  das  Betriebs- 
system  fest  eingebaut,  es  muB  nicht  erst  von  Diskette  geladen 
werden.  Fur  Sie  beginnt  die  Einschaltprozedur  gleich  mit  der 
Workbench. 

Wieder  beginnt  das  Laufwerk  zu  surren.  Nach  kurzer  Zeit  ist 
auch  die  Workbench-Diskette  geladen.  Sie  sehen  dann  einen 
blauen  Bildschirm  mit  einer  weiBen  Kopfzeile  und  auf  der 
rechten  Seite  ein  Symbol  mit  dem  Namen  "Workbench  1.2"  dar- 
unter.  Das  Symbol  steht  fur  die  Diskette  im  Laufwerk.  Wann 
immer  Sie  eine  neue  Diskette  in  ein  angeschlossenes  Laufwerk 
einlegen,  erscheint  ein  solches  Symbol  auf  der  Workbench- 
Oberflache.  Solche  Symbole  -  egal  wofiir  sie  stehen  -  heiBen 
Icons  (engl.:  Abbilder,  Ikonen.  Hier  eben  am  besten  mit  "Sym- 
bol" iibersetzt).  Frei  nach  dem  Motto  "Der  Amiga-Besitzer  laBt 
das  Mausen  nicht"  geht's  jetzt  endlich  los. 

-  Bewegen  Sie  bitte  die  Maus  auf  der  Tischplatte. 
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Wenn  Sie  die  Maus  hin-  und  herschieben,  sehen  Sie,  wie  sich 
der  rote  Pfeil  auf  dem  Bildschirm  synchron  zur  Maus  bewegt. 
Aus  diesem  Grund  heiflt  der  Pfeil  auch  Mauscursor  oder  Maus- 
zeiger. 

-  Bewegen  Sie  den  Pfeil  auf  das  Icon  der  Workbench-Diskette. 

-  Driicken  Sie  dann  einmal  auf  die  linke  Taste  der  Maus. 

Sie  sehen,  wie  die  Diskette  auf  dem  Bildschirm  schwarz  wird. 
Warum?  Ganz  einfach:  Das  Anklicken  mit  der  linken  Maustaste 
aktiviert  ein  Symbol  auf  der  Workbench-Oberflache.  Damit  der 
Amiga  eine  MGglichkeit  hat,  Ihnen  zu  zeigen,  welches  Objekt 
gerade  aktiv  ist,  verandert  er  die  Farbe.  Wenn  Sie  auBerhalb  des 
Symbols  irgendwo  auf  den  Workbench-Bildschirm  klicken,  wird 
die  Diskette  wieder  weiB.  So  konnen  Sie  Symbole  deaktivieren. 
Normalerweise  kann  immer  nur  ein  Symbol  aktiv  sein. 

-  Driicken  Sie  nun  bitte  zweimal  kurz  hintereinander  die  linke 
Maustaste. 

Sie  werden  gleich  darauf  Zeuge  einiger  Betriebsamkeit.  Der 
Mauscursor  hat  sich  in  ein  WOlkchen  verwandelt,  das  den  Ein- 
druck  erweckt,  als  wollte  es  jeden  Moment  davonschweben. 
Auch  das  Wolkchen  ist  symbolisch  gemeint:  Der  Amiga  teilt  uns 
mit,  daB  er  vorerst  beschaftigt  ist.  Jetzt  mussen  Sie  kurz  warten. 
Es  entsteht  ein  Rahmen  auf  dem  Bildschirm  und  nacheinander 
erscheinen  verschiedene  Icons  innerhalb  dieses  Rahmens.  Am 
Ende  der  ganzen  Aktion  bietet  sich  Ihnen  folgendes  Bild: 


28 


AmigaBASIC 


SchlieBsymbol  Bewegungsleiste 

Window-Titel  Hintergrund-/ 


V 


Vordergrund-Symbole 


B 


A2889 


K 


Utilifm 


Expansion 


liWck. 


mfrxy 


Systen  Ii«ashcan 

Preferences 


si/ 


¥ 


v 


zm-31] 


Schubladen  /       Rollbalken 

Speicheranzeige  Trashcan  GroGensymbol 


Bild  1: 


Das  Workbench -Window 


Das  Ding  im  Bild  ist  ein  Window  (auf  Deutsch  also:  Fenster). 
Solche  Windows  dienen  dazu,  den  Inhalt  von  Disketten  dar- 
zustellen.  Im  Fensterrahmen,  also  der  Umrandung  des  Windows, 
befinden  sich  einige  wichtige  Dinge.  Was  es  da  im  einzelnen 
gibt,  sehen  Sie  auf  dem  Bild. 
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Window-Titel 

Jedes  Window  hat  einen  Namen.  In  diesem  Fall  "Workbench  1.2". 
Wenn  dieser  Name  etwas  unleserlich  aussieht,  liegt  das  nicht  an 
Amigas  unleserlicher  Handschrift,  sondern  bedeutet,  dafl  das 
Window  nicht  aktiviert  ist.  Bewegen  Sie  in  diesem  Fall  den 
Mauscursor  in  das  Window  und  klicken  Sie  einmal  mit  der  lin- 
ken  Maustaste:  Nun  ist  das  Window  angewahlt,  die  Schrift  im 
Titel  ist  gut  zu  lesen. 


Bewegungsleiste 

Wenn  Sie  den  Mauscursor  auf  dieses  Feld  bringen,  die  linke 
Maustaste  gedriickt  halten  und  dann  die  Maus  bewegen,  konnen 
Sie  das  ganze  Window  auf  dem  Bildschirm  hin-  und  herschieben. 
Dabei  wird  zunachst  nur  ein  oranger  Rahmen  in  der  GroBe  des 
Windows  bewegt.  Daran  konnen  Sie  erkennen,  wie  das  Fenster 
liegen  wurde  und  was  es  alles  iiberdecken  wurde,  wenn  Sie  die 
Maustaste  wieder  loslassen.  Erst  dann  wird  das  neue  Window 
vollst&ndig  abgebildet. 


Hintergrund-/Vordergrund-Symbole 

Wenn  sich  mehrere  Windows  iiberlagern,  k6nnen  Sie  mit  diesen 
Symbolen  auswahlen,  welches  Window  sich  im  Vordergrund  be- 
finden  soil.  Um  das  auszuprobieren,  wahlen  Sie  bitte  das  Icon 
"Clock"  an.  (Wenn  Sie  nicht  mehr  genau  wissen,  wie  das  geht, 
hier  nochmals  zum  Spicken:  Bewegen  Sie  den  Mauscursor  auf 
das  Symbol  der  Uhr  (=engl.  Clock)  und  klicken  Sie  zweimal 
drauf.) 

Nach  wenigen  Sekunden  erscheint  eine  Uhr  auf  dem  Bildschirm. 
Diese  Uhr  wird  zwar  wahrscheinlich  eine  falsche  Uhrzeit  anzei- 
gen,  aber  das  soil  uns  im  Moment  nicht  storen.  (Wenn  es  Sie 
doch  stort:  Mit  dem  Programm  "Preferences"  konnen  Sie  unter 
anderem  auch  die  Uhr  stellen.  Wie  "Preferences"  bedient  wird, 
ist  im  Amiga- Anwender-Handbuch  in  Kapitel  5.1  beschrieben. 
Wenn  Sie  dort  jetzt  nachgucken  wollen,  vergessen  Sie  nicht,  sich 
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ein  kleines  Zettelchen  hier  zwischen  die  Seiten  zu  legen,  damit 
wir  uns  wiederfinden,  wenn  Sie  das  erledigt  haben!)  Die  Uhr 
muB  teilweise  das  Workbench-Window  uberlagern.  Wenn  sie  das 
nicht  tut,  verschieben  Sie  sie  mit  der  Bewegungsleiste  bitte  so, 
daB  sie  es  doch  tut.  Danke. 

-  Bringen  Sie  den  Mauscursor  auf  das  rechte  der  beiden  Sym- 
bole  am  Fensterrahmen  des  Workbench-Windows  und  klicken 
Sie  einmal. 

Die  Uhr  verschwindet  hinter  dem  Window. 

-  Klicken  Sie  bitte  ins  linke  der  beiden  Symbole. 

Schon  ist  die  Uhr  wieder  im  Vordergrund. 

Die  kleinen  Kastchen  innerhalb  der  Symbole  fur  Vordergrund 
und  Hintergrund  sollen  Windows  darstellen.  Das  weiBe  Kastchen 
steht  dabei  fur  das  Window,  an  dessen  Rahmen  sich  die  beiden 
Symbole  befinden.  In  unserem  Beispiel  also  das  Uhr-Window. 
Das  schwarze  Kastchen  vertritt  ein  oder  mehrere  andere  Win- 
dows, die  dahinter  liegen,  was  bei  uns  im  Moment  aber  nur  dem 
Workbench-Window  entspricht.  Das  zweite  Symbol  -  weiBes 
KSstchen  hinter  schwarzem  Kastchen  -  ist  das  Hintergrund- 
symbol.  Klickt  man  es  an,  wird  das  zugehorige  Window  in  den 
Hintergrund  gelegt. 

GroBensymbol 

Wenn  Sie  dieses  Symbol  mit  dem  Mauscursor  festhalten  (sprich: 
Mauscursor  darauf  positionieren  und  linke  Taste  gedriickt  hal- 
ten),  k5nnen  Sie  die  GroBe  des  Windows  verandern.  Wie  beim 
Window-Verschieben  zeigt  auch  hier  wieder  ein  oranger  Rahmen 
die  Umrisse  des  neuen  Windows  an.  Erst  nach  dem  Loslassen  der 
Maustaste  wird  das  Window  vollstandig  auf  den  Bildschirm  ge- 
bracht. 
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Rollbalken 

Wenn  ein  Window  so  klein  ist,  daB  der  gesamte  Inhalt  nicht 
mehr  auf  einmal  dargestellt  werden  kann,  zeigt  das  dieser  Bal- 
ken  an.  Sie  erkennen  es  daran,  daB  oben  oder  unten  blaue  Fla- 
chen  entstehen.  An  denen  konnen  Sie  auch  ungefahr  abschatzen, 
welcher  Teil  des  Inhalts  gerade  sichtbar  ist.  Angenommen  ober- 
und  unterhalb  des  Balkens  ist  jeweils  ein  Drittel  Blau  zu  sehen, 
dann  heiBt  das,  daB  im  Moment  nur  das  mittlere  Drittel  inner- 
halb  des  Fensters  dargestellt  werden  kann.  Durch  Verschieben 
dieses  Balkens  kann  ein  bestimmter  Teil  ausgewahlt  werden. 
Anstatt  den  Balken  zu  verschieben,  k5nnen  Sie  auch  einen  der 
Pfeile  anklicken,  die  Sie  uber  und  unter  dem  Balken  sehen. 
Auch  dann  wird  der  Windowinhalt  in  die  angegebene  Richtung 
verschoben  -  allerdings  nur  ein  kleines  Stiick.  Das  Ganze  funk- 
tioniert  sowohl  in  vertikaler  als  auch  in  horizontaler  Richtung. 
Naturlich  konnen  Sie  auch  einfach  das  Window  vergroBern,  wie 
vorher  beschrieben. 


Speicheranzeige 

Dieser  Balken  gibt  bei  Diskettenwindows  Auskunft  daruber, 
wieviel  Prozent  der  Diskette  schon  belegt  sind.  E  steht  fur 
Empty  (Leer),  F  fur  Full  (Voll).  Je  hdher  der  Balken,  desto  vol- 
ler  ist  die  Diskette. 


Schlieflsymbol 

Wenn  Sie  in  dieses  Symbol  klicken,  schlieBt  sich  das  Window 
wieder.  Das  heiBt,  es  verschwindet  vom  Schirm. 


Schubladen 

Diese  Schubladen  sind  Unter-Inhaltsverzeichnisse.  Wenn  man  sie 
anwahlt,  erscheint  ein  neues  Window  mit  weiteren  Programmen 
oder  Unter-Inhaltsverzeichnissen.  Sie  konnen  sich  eine  Diskette 
wie  einen  Schrank  voller  Informationen  vorstellen.  Damit  man 
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die  Ubersicht  behait  und  nicht  alles  durchwuhlen  mufi,  wenn 
man  etwas  sucht,  gibt  es  Schubladen,  in  denen  alles  Mflgliche  zu 
einem  bestimmten  Thema  zu  finden  ist.  Wenn  Sie  diese  Schub- 
laden aufmachen  (bzw.  anklicken),  wird  der  Inhalt  sichtbar.  Sie 
konnen  das  gern  einmal  mit  einer  der  Workbench-Schubladen 
ausprobieren. 

-    Klicken  Sie  bitte  eine  der  Schubladen  im  Workbench-Window 
an. 

Es  dffnet  sich  ein  neues  Window,  das  zur  angeklickten 
Schublade  gehort.  Dort  befinden  sich  weitere  Icons.  Bitte 
schlieBen  Sie  das  neu  entstandene  Window  durch  Anklicken  des 
SchlieBsymbols.  Sie  konnen  nun  alles,  was  Sie  wollen,  in  diese 
Schubladen  legen.  Auch  Schubladen  in  Schubladen  in  Schubladen 
sind  moglich.  Das  ganze  folgt  getreu  dem  Schreibtisch-Prinzip: 
Wenn  man  irgendwelche  Dinge  in  der  Schublade  verschwinden 
lSBt,  schaut  es  wenigstens  auf  der  Oberflache  nach  Ordnung  aus. 
Ubrigens  wird  die  Workbench  gern  als  elektronischer  Schreib- 
tisch  bezeichnet. 


Trashcan  (deutsch:  Abfalleimer) 

In  diesen  Abfalleimer  konnen  Sie  Programme  befordern,  die  Sie 
nicht  mehr  ben6tigen.  Wieder  eine  Funktion,  die  dem  taglichen 
Leben  nachempfunden  ist.  Wenn  ein  Programm  im  Trashcan 
liegt,  heiBt  das  aber  noch  nicht,  daB  das  Programm  damit  schon 
endgultig  verschwunden  ist.  Es  fehlt  dazu  noch  eine  Art 
Mullabfuhr,  die  den  Eimer  ausleert.  Auf  die  kommen  wir  spater 
noch.  Sie  kdnnen  das  Trashcan- Window  Gffnen  wie  eine 
Schublade.  In  diesem  Window  sehen  Sie  dann  alle  Dinge,  die 
bisher  weggeworfen  wurden. 

-    Bitte  klicken  Sie  den  Trashcan  an. 

Wenn  Sie  das  jetzt  ausprobiert  haben,  miiBten  Sie  festgestellt  ha- 
ben,  daB  der  Trashcan  zur  Zeit  leer  ist.  SchlieBen  Sie  das  Trash- 
can-Window  bitte  wieder. 
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Wie  aber  kann  man  Programme  und  Daten  endgultig  loswerden? 
Damit  kommen  wir  zu  den  Pulldown-Menus.  Weil  Sie  bei  diesem 
Buch  auch  SpaJ3  haben  sollen,  sorgen  wir  bei  dieser  Gelegenheit 
gleich  fur  ein  wenig  Abwechslung.  Statt  immer  nur  die  linke, 
drucken  Sie  diesmal  die  andere  Maustaste: 

-  Drucken  Sie  die  rechte  Maus-Taste. 

Sollten  Sie  das  nicht  schon  vorher  ausprobiert  haben,  werden  Sie 
jetzt  zum  ersten  Mai  merken,  da/J  sich  im  Bereich  der  Kopfzeile 
etwas  verandert.  Anstelle  des  Textes,  der  da  vorher  stand,  sehen 
Sie  nun  drei  Wdrter: 

Workbench  Disk  Special 

-  Bewegen     Sie     den     Mauscursor     mit     gedriickter     rechter 
Maustaste  auf  das  Wort  "Special". 

In  dem  Moment,  wo  der  Mauscursor  das  Wort  erreicht,  erscheint 
das  zugehorige  Pulldown-Menu.  Menu  klingt  ja  schon  sehr  nach 
Speisekarte.  Und  tatsachlich  werden  Ihnen  auch  in  einem  Com- 
puter-Menu verschiedene  Punkte  zur  Auswahl  angeboten.  Hier 
zum  Beispiel  lesen  Sie  die  Meniipunkte  "Clean  Up",  "Last  Error", 
"Redraw",  "Snapshot"  und  "Version".  Einige  dieser  Punkte  sind 
wieder  etwas  unleserlich  geschrieben:  Das  heiBt,  daB  sie  zur  Zeit 
nicht  angewahlt  werden  konnen,  weil  sie  nicht  aktiv  sind. 

-  Halten  Sie  die  rechte  Taste  gedruckt  und  bewegen  Sie  den 
Mauscursor  nach  unten. 

Wahrend  der  Mauscursor  uber  die  Meniipunkte  hinabwandert, 
sehen  Sie,  wie  jeweils  eine  Menu-Option  schwarz  hinterlegt 
wird.  Allerdings  nur  bei  den  Menupunkten,  die  aktiv  sind.  Pull- 
down nennt  man  diese  Art  von  Menu,  weil  das  Ganze  aussieht 
wie  ein  Rollo,  das  heruntergezogen  wird.  Die  rechte  Maustaste 
wird  auch  Menu-Taste  genannt,  weil  mit  ihr  die  Pulldown- 
Menus  bedient  werden.  Im  Gegensatz  dazu  hat  die  linke 
Maustaste  keinen  eindeutigen  Namen.  Falls  Sie  mal  in  anderen 
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Buchern  Ausdrucke  wie  "Auswahltaste",  "Aktionstaste"  oder 
"Aktivierungstaste"  lesen:  Damit  ist  die  linke  Taste  der  Maus 
gemeint.  Jetzt  aber  zu  den  Pulldowns  und  was  man  damit  ma- 
chen  kann: 

-  Verlassen  Sie  bitte  das  "Speciar-Pulldown,  und  schlieBen  Sie 
alle  Windows  auf  dem  Bildschirm. 

-  Aktivieren  Sie  dann  bitte  die  Workbench-Diskette.  (Also  nur 
einmal  klicken.) 

-  Wahlen   Sie    nun   bitte   aus   dem   "Workbench"-Pulldown   die 
Funktion  "Open". 

Noch  mal  schrittweise,  was  das  bedeutet:  Drucken  Sie  die  rechte 
Maustaste,  halten  Sie  sie  gednickt,  bewegen  Sie  den  Mauscursor 
auf  das  Wort  "Workbench"  und  ziehen  Sie  ihn  dann  im  Pull- 
down-Menu auf  das  Wort  "Open".  Wenn  "Open"  schwarz  hinter- 
legt  ist,  lassen  Sie  die  rechte  Maustaste  los.  Sie  sehen,  dafl  nun 
dasselbe  passiert,  was  Sie  auch  durch  den  Doppelklick  erreicht 
haben:  Das  Workbench- Window  wird  gectffnet.  Jetzt  kennen  Sie 
schon  zwei  Methoden,  ein  Disketten-Icon  zu  offnen. 

Sollte  die  Workbench-Diskette  nicht  mehr  schwarz  sein,  akti- 
vieren Sie  sie  bitte  wieder. 

-  WShlen  Sie  dann  bitte  "Clean  Up"  aus  dem  "Special"-Menu. 

"Clean  Up"  steht  fur  Aufraumen:  Das  bezieht  sich  naturlich  nur 
auf  den  Amiga  selbst.  Besser  gesagt,  auf  das  durch  diese  Funk- 
tion angesprochene  Window:  Die  Icons  darin  werden  geordnet. 
Diese  Funktion  ist  vor  allem  dann  hilfreich,  wenn  in  einem 
Window  viele  Icons  kreuz  und  quer  liegen.  Durch  "Clean  Up"  ist 
im  Nu  wieder  Ordnung  hergestellt. 

Eine  Erkiarung  sind  wir  Ihnen  jetzt  noch  schuldig:  Wie  werde 
ich  den  Mull  los,  den  ich  nicht  mehr  brauche?  Das  wollen  wir 
jetzt  gleich  beantworten,  aber  vorher  noch  eine  wichtige  War- 
nung: 
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Achtung:  Auf  Ihrer  Workbench-Diskette  ist  nichts  so 
unwichtig,  daB  Sie  es  wegwerfen  sollten.  Pro- 
bieren  Sie  also  bitte  die  "Empty  Trash"-Funk- 
tion  jetzt  nicht  aus.  AuBerdem  ist  es  empfeh- 
lenswert,  immer  nur  mit  einer  Kopie  der  Ori- 
ginal-Workbench zu  arbeiten.  Wie  Sie  zu  so  ei- 
ner Kopie  kommen,  erfahren  Sie  in  Kapitel  3.7 
im  Amiga- Anwender-Handbuch.  Auch  von 
den  anderen  Disketten  (Kickstart,  Extras)  soil- 
ten  Sie  Sicherheitskopien  anfertigen.  Wir  gehen 
ab  jetzt  in  unserem  Buch  davon  aus,  daB  Sie 
mit  Sicherheitskopien  arbeiten. 

Das  endgiiltige  Wegwerfen  von  Programmen  und  Dateien  geht 
ganz  einfach:  Wenn  Sie  alles  in  den  Trashcan  befGrdert  haben, 
aktivieren  Sie  das  Trashcan-Icon  und  w§hlen  dann  aus  dem 
Pulldown- Menu  "Disk"  die  Funktion  "Empty  Trash".  Jetzt  wird 
alles,  was  sich  im  Miilleimer  befindet,  endgultig  geldscht.  Ubrig 
bleibt  nur  ein  frisch  geleerter  Miilleimer. 

Damit  sind  wir  auch  schon  am  Ende  unseres  kleinen  Work- 
bench-Ausflugs  angelangt.  Was  Sie  mit  der  Workbench  auBerdem 
noch  anstellen  kflnnen,  finden  Sie  im  Amiga-Anwender-Hand- 
buch  Oder  auch  in  unseren  Buchern  "Amiga  500  fur  Einsteiger" 
Oder  "Das  groBe  Amiga-2000-Buch". 

Mit  dem,  was  Sie  in  diesem  Kapitel  gelernt  haben,  sind  Sie  nun 
gut  auf  unsere  Expedition  ins  AmigaBASIC  vorbereitet.  Lesen 
Sie  nun  bitte  ab  Kapitel  1  weiter.  Es  ist  Ihnen  naturlich  auch 
nicht  verboten,  zus&tzlich  unser  Einleitungskapitel  fur  Fortge- 
schrittene  und  Profis  zu  lesen.  Keine  Sorge,  wenn  Sie  darin  noch 
nicht  alles  verstehen  -  alles  wirklich  Wichtige  zur  Workbench 
haben  Sie  bereits  gelernt. 


0.2        Workbench-Schnelldurchgang  fur  Fortgeschrittene 

Wenn  Ihre  Entscheidung  auf  diese  Einleitung  gefallen  ist,  sollten 
Sie  schon  ein  wenig  Erfahrung  mit  Computern  haben  oder  sich 
zumindest  ein  biBchen  mit  dem  Amiga  auskennen.  Wir  wollen 
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hier  kurz  erkiaren,  was  beim  Starten  des  Amiga  passiert,  und 
wir  wollen  auch  die  Grundfunktionen  der  Workbench  eriautern. 
Wenn  Sie  das  eine  oder  andere  nicht  verstehen,  scheuen  Sie  sich 
nicht,  auch  das  Kapitel  0.1  zu  lesen. 

Nach  dem  Einschalten  fuhrt  der  Amiga  zunachst  einen  Selbsttest 
durch.  Dazu  gehflrt  auch  eine  Uberprufung  der  Tonerzeugung: 
Sie  hflren  eine  kurze  Tonfolge.  Falls  Sie  nichts  hdren,  besteht 
mdglicherweise  keine  Verbindung  der  Tonausgange  zum  Moni- 
tor-Lautsprecher  bzw.  einer  Stereoanlage. 

Nach  diesem  Test  bencHigt  der  Amiga  1000  die  Kickstart-Dis- 
kette.  Auf  der  Kickstart  befindet  sich  das  Betriebssystem  des 
Amiga,  das  sogenannte  Kernel.  Das  Kernel  besteht  aus  einer 
groBen  Menge  verschiedener  Routinen,  die  von  der  Amiga- 
Software  benutzt  werden  konnen  (z.B.  zur  Bildschirmverwaltung, 
Steuerung  von  Ein-  und  Ausgaben  und  Uberwachung  des 
Multitasking).  Der  Inhalt  der  Kickstart-Diskette  wird  beim 
Amiga  1000  in  einen  256  KByte  groBen  RAM-Bereich  geschrie- 
ben,  der  nach  dem  Laden  elektronisch  verriegelt  wird  und  sich 
ab  dann  wie  ROM  verhait.  Der  Amiga  500  und  der  Amiga  2000 
werden  mit  dem  Kernel  auf  ROM-Bausteinen  ausgeliefert,  da- 
durch  f&Ht  das  Laden  der  Kickstart-Diskette  weg.  Allerdings  hat 
die  L6sung,  die  beim  Amiga  1000  verwendet  wurde,  den  Vor- 
teil,  daB  Verbesserungen  des  Betriebssystems  einfach  durch 
Austausch  der  Kickstart-Diskette  mSglich  sind.  Das  wird  bei 
Amiga  500  und  2000  nicht  mehr  so  problemlos  mdglich  sein. 

Nach  dem  Laden  der  Kickstart  (Amiga  1000)  bzw.  nach  dem 
Einschalten  (Amiga  500  &  2000)  fordert  der  Amiga  die 
Workbench-Diskette  an.  Von  dieser  Diskette  wird  die  Be- 
nutzeroberflache  "Workbench"  mit  ihren  verschiedenen  Pro- 
grammen  geladen.  AuBerdem  befinden  sich  auf  dieser  Diskette 
die  AmigaDOS-Befehle,  Systemprogramme  (z.B.  zur  Drucker- 
ansteuerung  oder  Spracherzeugung)  und  verschiedene  Utilities. 
Nach  dem  Laden  kommen  Sie  direkt  auf  die  Workbench,  wo  Sie 
den  Amiga  durch  die  Maus-  und  Windowtechnik  sehr  einfach 
bedienen  konnen. 


Was  bin  ich?  37 


Der  rote  Mauszeiger  bewegt  sich  synchron  zur  Bewegung  der 
Maus  auf  dem  Tisch.  Die  linke  Maustaste  dient  allgemein  zum 
Aktivieren  und  Starten,  die  rechte  Taste  wird  zur  Auswahl  der 
Pulldown-Menus  verwendet. 

Das  Diskettensymbol  in  der  rechten  oberen  Ecke  des  Bildschirms 
steht  fur  die  Workbench-Diskette.  Ein  solches  Symbol  heiBt 
Icon.  Wenn  Sie  den  Mauszeiger  auf  das  Workbench-Icon  bewe- 
gen  und  mit  der  linken  Maustaste  zweimal  klicken,  wird  die  zu- 
gehflrige  Diskette  geflffnet:  Das  Workbench-Window  erscheint. 
Es  enthait  weitere  Icons,  die  den  Inhalt  der  Workbench-Diskette 
vertreten.  Wenn  Sie  z.B.  das  Clock-Icon  anklicken,  wird  ein  Pro- 
gramm  gestartet,  das  ein  Window  mit  einer  Uhr  erzeugt. 

Die  Schubladen  (Demos,  Utilities,  System,  Empty)  stellen  Unter- 
Inhaltsverzeichnisse  dar.  Um  deren  Inhalt  zu  sehen,  muB  die  je- 
weilige  Schublade  angeklickt  werden.  In  den  Schubladen  konnen 
dann  wieder  Schubladen  sein  usw. 

Am  Rahmen  der  Windows  sehen  Sie  verschiedene  Symbole. 
Wenn  Sie  sich  mit  diesen  Symbolen  nicht  auskennen,  schauen  Sie 
sich  bitte  Bild  1  und  den  dazugehGrenden  Text  im  Kapitel  0.1 
an.  Die  Symbole  sind  sehr  wichtig  fur  die  Arbeit  mit  Windows 
und  werden  dort  ausfuhrlich  erklSrt. 

Mit  der  rechten  Maustaste  bedienen  Sie  die  Pulldown-Menus. 
Deshalb  heiBt  diese  Taste  "Menutaste".  Solange  Sie  die  Menutaste 
gedruckt  halten,  stehen  in  der  Kopfleiste  die  Titel  der  verfiig- 
baren  Pulldowns.  Wenn  Sie  den  Mauszeiger  mit  gedruckter 
rechter  Taste  auf  einen  dieser  Titel  bewegen,  erscheint  das  zu- 
gehdrige  Pulldown.  Um  einen  Menupunkt  auszuwahlen,  bewegen 
Sie  den  Zeiger  auf  die  gewiinsche  Funktion  und  lassen  dann  los. 
Nur  die  gut  lesbaren  Punkte  stehen  zur  Auswahl,  die  anderen, 
schlechter  lesbaren,  sind  zur  Zeit  nicht  aktiv.  Dasselbe  gilt  iibri- 
gens  auch  fur  Windows:  Aktive  Windows  erkennen  Sie  an  ihrem 
deutlich  lesbaren  Titel. 

Die  Funktionen  "Open"  und  "Close"  im  "Workbench"-Pulldown 
bieten  eine  weitere  Moglichkeit,  Icons  bzw.  Windows  zu  offnen 
und   zu   schlieBen.   "Duplicate"   dient   zum   Kopieren   von   Pro- 
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grammen  und  Disketten,  "Rename"  zum  Umbenennen  und 
"Discard"  zum  endgultigen  Loschen.  "Info"  6ffnet  ein  In- 
formations-Window, in  dem  Sie  Daten  wie  Gr5Be  des  Pro- 
gramms,  Programmtyp,  L6schschutz  und  Bemerkungen  zum  Pro- 
gramm  ansehen  konnen.  "Empty  Trash"  aus  dem  "Disk"-Menu 
loscht  den  Trashcan,  dazu  gleich  mehr.  "Initialize"  formatiert 
Disketten. 

Zum  "Speciar-Menii:  "Clean  Up"  raumt  ungeordnete  Windows 
auf,  "Last  Error"  wiederholt  die  letzte  Meldung  des  Betriebs- 
systems.  "Redraw"  baut  den  Bildschirm  neu  auf,  falls  durch 
einen  Programmfehler  Teile  geloscht  wurden.  "Snapshot"  fixiert 
aktivierte  Icons  an  ihrer  Bildschirmpositon  und  "Version"  gibt 
die  Versionsnummer  der  Workbench  aus. 

Nach  diesem  Schnelldurchgang  durch  die  Pulldown-Optionen 
noch  ein  Thema:  Der  Trashcan.  In  den  Trashcan  (deutsch: 
Mulleimer)  werfen  Sie  Programme,  die  geloscht  werden  sollen. 
Der  Trashcan  ist  im  Grunde  nichts  weiter  als  ein  besonderes  In- 
haltsverzeichnis.  Erst  wenn  Sie  ihn  aktiviert  haben  und  die  Pull- 
down-Funktion  "Empty  Trash"  anwahlen,  wird  sein  Inhalt  ge- 
loscht. Dieses  Loschen  ist  dann  allerdings  unwiderruflich.  Schon 
aus  diesem  Grund  sollten  Sie  immer  nur  mit  Sicherheitskopien 
Ihrer  Original-Disketten  arbeiten.  Wie  Sie  solche  Sicherheitsko- 
pien herstellen  konnen,  wird  im  Amiga-Anwender-Handbuch  im 
Kapitel  3.7  beschrieben.  Wir  gehen  ab  jetzt  in  diesem  Buch  da- 
von  aus,  da6  Sie  mit  Sicherheitskopien  Ihrer  Disketten  arbeiten. 

Und  damit  waren  alle  Vorbereitungen  fur  die  Arbeit  mit 
AmigaBASIC  getroffen.  Wir  konnen  anfangen.  Das  heiBt,  etwas 
fehlt  noch,  bevor  wir  richtig  einsteigen  konnen  ins 
AmigaBASIC. 


Zwischenspiel  1:  Formalitaten  -  Vorbereitung  fiir  die  Diskette 
im  Buch 

Zwischenspiele  wie  dieses  hier  werden  Sie  im  Buch  immer  wie- 
der  antreffen.  Zwischenspiele  nehmen  wichtige  Informationen 
auf,  die  aber  eigentlich  nicht  direkt  in  den  Ablauf  passen. 
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Bevor  wir  mit  Ihnen  gemeinsam  die  ersten  Versuche  mit 
AmigaBASIC  machen,  mussen  Sie  noch  eine  Vorbereitung  tref- 
fen.  Es  dreht  sich  dabei  um  unsere  Diskette  im  Buch.  Was  es 
damit  auf  sich  hat,  und  wann  Sie  sie  verwenden  konnen,  haben 
wir  ja  schon  in  unserem  Einleitungskapitel  beschrieben. 

Bevor  Sie  die  Programme  darauf  jedoch  durch  direktes  An- 
klicken  starten  kflnnen,  mussen  Sie  erst  noch  das  "AmigaBASIC" 
von  der  MExtrasD"-Diskette,  die  Ihnen  Commodore  geliefert  hat, 
auf  unsere  Diskette  kopieren.  Aus  rechtlichen  Grunden  war  es 
uns  namlich  leider  nicht  moglich,  die  Diskette  im  Buch  komplett 
mit  BASIC  auszuliefern. 

Aber  keine  Sorge.  Was  Sie  dabei  tun  mussen,  ist  ganz  einfach: 

-    Bitte  legen  Sie  die  Sicherheitskopie  Ihrer  "ExtrasD"-Diskette 
in  ein  Laufwerk  und  offnen  Sie  sie. 

Klicken  Sie  also  zweimal  auf  das  Disketten-Icon.  Daraufhin  off- 
net  sich  ein  Window,  in  dem  verschiedene  weitere  Icons  erschei- 
nen.  Vermutlich  ganz  links  oben  in  diesem  Window  werden  Sie 
das  Programm  "AmigaBASIC"  entdecken.  Sein  Icon  ist  ein 
weiCer  Quader  mit  orangen  Symbolen  auf  dem  Vordergrund. 

Noch  schnell  ein  Satz  zur  Sicherheitskopie:  Am  Ende  des  letzten 
Kapitels  haben  wir  Sie  gebeten,  von  Ihrer  "ExtrasD"-Diskette 
eine  Sicherheitskopie  anzufertigen.  Das  haben  Sie  ja  auch  sicher 
prompt  erledigt.  Oder  sollte  tatsachlich  noch  jemand  dabei  sein, 
der..,  Na,  dann  wird's  aber  Zeit.  Falls  das  noch  nicht  geschehen 
ist,  fertigen  Sie  bitte  gleich  jetzt  eine  Sicherheitskopie  Ihrer  Ori- 
ginal-"ExtrasD"  an.  Wie  das  geht,  finden  Sie  im  Amiga-Benut- 
zerhandbuch  im  Kapitel  3.7. 

Und  weil  wir  gerade  dabei  sind:  Auch  unsere  Diskette  im  Buch 
ist  genau  genommen  eine  Originaldiskette.  Deshalb  sollten  Sie 
bitte  auch  von  ihr  eine  Sicherheitskopie  anfertigen  und  nur  mit 
dieser  Kopie  arbeiten.  Wenn  Sie  namlich  auf  Ihrem  einzigen 
Exemplar  dieser  Diskette  versehentlich  etwas  loschen  oder  ein 
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Problem  mit  einem  Diskettenlaufwerk  auftritt,  dann  haben  Sie 
auch  hier  Arbeit  und  Zeitverlust,  urn  wieder  ein  Original  zu 
besorgen. 

So,  jetzt  aber  weiter  im  Text. 

-  Wenn  Sie  zwei  Diskettenlaufwerke  besitzen,  legen  Sie  bitte 
ins  andere  Laufwerk  unsere  Diskette  im  Buch  und  offnen  Sie 
sie  ebenfalls. 

Unsere  Diskette  hat  iibrigens  den  Namen  "BasicDisk". 

-  Wenn  Sie  nur  ein  Diskettenlaufwerk  haben,  ist  das  auch  kein 
Problem.  Bitte  lassen  Sie  in  diesem  Fall  die  "ExtrasD"-Dis- 
kette  im  Laufwerk  und  offnen  Sie  die  RAM-Disk. 

-  Wenn  Sie  zwei  Laufwerke  besitzen,  verschieben  Sie  mit  der 
Maus  nun  bitte  das  Icon  von  "AmigaBASIC"  auf  der  "Ex- 
trasD"-Diskette  in  das  Window  unserer  "BasicDisk". 

Wir  haben  in  der  linken  oberen  Ecke  des  Windows  einen  Platz 
fur  AmigaBASIC  freigehalten. 

-  Bei  nur  einem  Laufwerk  schieben  Sie  das  AmigaBASIC-Icon 
bitte  ins  Window  der  RAM-Disk. 

Bitte  warten  Sie  nun,  bis  die  roten  Laufwerkslampen  bei  alien 
Laufwerken  erloschen  sind. 

Bei  zwei  Laufwerken  sind  Sie  nun  fertig. 

-  Wenn  Sie  nur  ein  Laufwerk  besitzen,  entnehmen  Sie  bitte  die 
MExtrasD"-Diskette  und  legen  Sie  dann  unsere  "BasicDisk"  ein. 

-  Offnen  Sie  dann  das  Window  unserer  Diskette,  schieben  Sie 
das  AmigaBASIC-Icon  von  der  RAM-Disk  in  das  Window 
der  "BasicDisk"  und  warten  Sie  wieder,  bis  die  Laufwerks- 
lampe  erloschen  ist. 
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-  Wenn  Sie  liber  die  RAM-Disk  kopiert  haben,  aktivieren  Sie 
bitte  das  AmigaBASIC-Icon  dort  (einmal  klicken)  und  wahlen 
Sie  aus  dem  "Workbench"-Window  die  Option  "Discard".  Da- 
mit  wird  der  Platz  auf  der  RAM-Disk  wieder  freigegeben. 

Soweit  unsere  Startvorbereitungen.  Sie  konnen  unsere  Diskette 
nun  wieder  aus  dem  Laufwerk  entnehmen.  Im  nachsten  Kapitel 
benfltigen  Sie  zunachst  die  Sicherheitskopie  Ihrer  "ExtrasD"-Dis- 
kette.  Und  damit  geht's  dann  endgiiltig  los. 
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I.  Der  Grafik-Amiga 
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1 .     Es  bewegt  sich  was  -  Objekt-Animation 

In  den  folgenden  Kapiteln  dreht  sich  alles  urn  die  Grafik- 
mflglichkeiten  des  Amiga.  Gerade  auf  diesem  Gebiet  haben  Sie 
sicher  schon  einiges  gesehen.  Vieles  davon  ist  auch  in  BASIC  zu 
realisieren  -  mit  sehr  einfachen  Befehlen. 

Im  ersten  Teil  dieses  Buches  zeigen  wir  Ihnen,  was  AmigaBASIC 
zum  Thema  Animation,  also  zum  Thema  bewegte  Grafik,  zu 
bieten  hat.  Wenn  Sie  unsere  Beispiele  mit  abtippen,  haben  Sie 
am  Ende  sogar  ein  kleines  Programm,  mit  dem  Sie  bewegte  Ti- 
telbilder  fiir  Videos  erzeugen  konnen.  Aber  auch,  wenn  Sie  kei- 
nen  Videorecorder  besitzen,  werden  Ihnen  die  Ergebnisse  gefal- 
len.  Schnallen  Sie  sich  an  -  im  folgenden  geht  es  urn  fliegende 
Balle  und  wandernde  Sterne  -  oder  eben  um:  Computeranimation 
in  BASIC. 


1.1        Amiga  lernt  -  die  Extras-Diskette 

Zuerst  einmal  mussen  wir  dem  Amiga  aber  beibringen,  was 
BASIC  uberhaupt  ist.  Er  soil  ja  zum  SchluB  etwas  anfangen 
kdnnen  mit  Befehlen  wie  GOTO  oder  IF.. .THEN.  Moment  mal, 
werden  Sie  vielleicht  jetzt  sagen:  Wie  kann  ich  einem  Computer 
etwas  beibringen,  was  ich  selber  noch  nicht  kann?  Ganz  einfach: 
Wahrend  Sie  dieses  Buch  lesen  mussen,  um  BASIC  zu  verstehen, 
hat  es  der  Amiga  da  leichter.  Er  braucht  nur  eine  Diskette  na- 
mens  "ExtrasD"  -  in  der  findet  er  alles,  was  fiir  ihn  wichtig  ist. 

Suchen  Sie  bitte  aus  den  mitgelieferten  Disketten  diejenige  mit 
der  Aufschrift  "Amiga  Extras  D  1.2".  Wenn  Sie  glucklicher  Be- 
sitzer  eines  zweiten  Laufwerks  sind,  legen  Sie  die  Extras-Dis- 
kette bitte  in  das  externe  Laufwerk.  Andernfalls  entnehmen  Sie 
die  Workbench  und  schieben  Sie  "Extras"  in  das  interne  Lauf- 
werk. 

Achtung:  Da  besonders  Besitzer  eines  einzigen  Lauf- 
werks bereits  jetzt  Diskjockey-Tatigkeiten 
ausuben  mussen,  eine  Warnung  an  alle:  Dis- 
ketten diirfen  erst  dann  aus  dem  Laufwerk  ge- 
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nommen  werden,  wenn  die  rote  Lampe  am 
Disketten-Laufwerk  erloschen  ist.  Sie  laufen 
sonst  Gefahr,  den  Inhalt  der  gesamten  Diskette 
zu  zerstoren!  Auch  denjenigen,  die  sich  schon 
fur  Computer-Profis  halten,  sei  das  nach- 
drucklich  gesagt:  Bei  manchen  Computern  kann 
man  wahrend  des  Lesens  die  Disketten  ent- 
nehmen.  Der  Amiga  reagiert  darauf  ausge- 
sprochen  empfindlich!  Rote  Lampe  heiBt  nun 
mal  "Diskette  nicht  entnehmen".  Und  Ihr 
Amiga  meint,  was  er  sagt! 

Auf  dem  Workbench-Bildschirm  sehen  Sie  nun  die  beiden  Sym- 
bole  fur  die  Disketten  "Workbench  1.2"  und  "ExtrasD".  (Das  gilt 
auch  dann,  wenn  Sie  die  Workbench-Diskette  aus  dem  Laufwerk 
genommen  haben.  Zu  dieser  Diskette  hat  der  Amiga  eine  beson- 
dere  innige  Beziehung.  Deshalb  vergiBt  er  sie  nie!) 

-    Offnen  Sie  "Extras". 

Das  heiBt,  bewegen  Sie  den  Mauspfeil  auf  das  Symbol  der  Ex- 
tras-Diskette und  betStigen  Sie  zweimal  kurz  die  linke 
Maustaste.  Auf  dem  Bildschirm  erscheint  ein  Window,  das  etwa 
sieben  Icons  enthait:  Hinweise,  Tools,  FD1.2,  Terminal,  Trash- 
can,  AmigaBASIC  und  BasicDemos.  Uns  interessieren  jetzt  vor 
allem  die  letzten  beiden. 

Zu  den  anderen  Icons  sei  an  dieser  Stelle  nur  soviel  gesagt: 
"Hinweise"  ist  ein  Text,  den  Sie  sich  mit  dem  Notepad  der 
Workbench-Diskette  ansehen  konnen.  Sie  finden  dort  einige  Be- 
merkungen  zur  vorliegenden  Version  der  Extras-Diskette.  Die 
"Tools"-Schublade  beinhaltet  einige  Programme,  die  wir  Ihnen 
im  Anhang  C  genauer  vorstellen  werden.  Dasselbe  gilt  fur  das 
Programm  "Terminal".  Zum  Inhalt  der  Schublade  MFD1.2"  kom- 
men  wir  spSter,  Sie  durfen  diese  Schublade  auf  keinen  Fall  16- 
schen! 
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Der  weiBe  Quader  mit  den  orangen  Symbolen  auf  der  Vorder- 
seite  ist  das  Icon  zu  AmigaBASIC.  Klicken  Sie  ihn  an.  Nach 
kurzer  Zeit  ist  AmigaBASIC  geladen  und  Sie  sehen  folgendes 
Bild: 


Bild  2: 


So  meldet  sich  AmigaBASIC 


1.2        Diirfen  wir  vorstellen  -  AmigaBASIC 


Damit  hatten  wir  AmigaBASIC  erstmal  geladen.  Aber  was  soil 
dieser  Bildschirm  denn  nun  bedeuten?  Wir  sehen  da  zwei  Win- 
dows: Eines  heiBt  "BASIC,  das  andere  heiBt  "LIST".  Das  LIST- 
Window  ist  aktiv  (das  erkennt  man  an  der  klar  lesbaren  Schrift  - 
erinnern  Sie  sich?),  aber  ziemlich  leer.  Im  anderen  Window,  mit 
dem  Titel  BASIC,  steht  zu  lesen: 
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Commodore  Amiga  BASIC 
Version  1.2 
Created  6  Oct  1986 
Copyright  (c)  1985,  1986 

by  Microsoft  Corp. 

261048  Bytes  free  in  System 

25000  Bytes  free  in  BASIC 


Falls  sich  die  eine  oder  andere  Angabe  von  dem,  was  Sie  bei 
sich  auf  dem  Bildschirm  lesen,  unterscheidet,  macht  das  auch 
nichts.  In  "Commodore  Amiga  BASIC"  werden  wir  uns  wohl 
nicht  unterscheiden.  So  heiBt  unser  BASIC  namlich. 

Bei  der  Versionsnummer  kann  bei  Ihnen  schon  etwas  vflllig  an- 
deres  stehen.  Softwarefirmen  versehen  ihre  Produkte  immer  mit 
Versionsnummern.  Daran  kann  man  dann  leicht  erkennen,  auf 
welchem  Stand  das  jeweilige  Programm  ist.  Denn  mit  Program- 
men  ist  das  so  eine  Sache:  Selbst  wenn  die  Programmierer  das 
Gefuhl  haben,  nun  sei  alles  fertig  -  kaum  ist  das  Werk  verof- 
fentlicht,  finden  sich  Fehler,  die  vorher  ubersehen  wurden. 
AmigaBASIC  macht  da  keine  Ausnahme.  Wir  werden  deshalb  in 
diesem  Buch  auch  an  verschiedenen  Stellen  auf  Fehler,  die  es 
bei  AmigaBASIC  noch  gibt,  hinweisen. 

Die  erste  veroffentlichte  Version  heiBt  meistens  1.00.  Manchmal 
sieht  man  auch  Vorab-Veroffentlichungen  von  Programmen  mit 
Versionsnummern  wie  0.99.  Das  heiBt  dann,  daB  die  Programme 
zwar  noch  nicht  ganz  fertig  sind,  aber  ganz  kurz  vor  ihrer 
Vollendung  stehen.  Wenn  kleinere  Fehler  behoben  wurden,  fol- 
gen  bald  die  Versionen  1.01,  1.02  etc.  Wurde  dann  etwas  mehr 
geandert,  ist  Version  1.1  dran.  Um  eine  Version  2.0  zu  rechtfer- 
tigen,  mussen  schon  groBe  Anderungen  oder  starke  Erweiterun- 
gen  durchgefuhrt  worden  sein.   Aber  dabei  passieren  naturlich 
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auch  wieder  Fehler,  und  deshalb  laiJt  auch  Version  2.01  nicht 
lange  auf  sich  warten.  Und  so  geht  das  weiter.  Es  gibt  Pro- 
gramme, von  denen  es  die  Version  5.21  gibt.  So  hohe  Versions- 
nummern  heiflen  aber  nicht  unbedingt,  daB  das  Programm  am 
Anfang  sehr  fehlerhaft  war.  Sie  sprechen  vielmehr  fiir  groBen 
Erfolg,  denn  sonst  hatte  man  sich  nicht  so  viel  Miihe  mit  der 
Verbesserung  und  den  Erweiterungen  gemacht. 

Ihr  AmigaBASIC  sollte  die  Versionsnummer  1.2  haben.  Die 
Entwickler  von  Commodore  haben  die  Version  1.1  mehr  oder 
weniger  unter  den  Tisch  fallen  lassen,  um  sich  in  der  Bezeich- 
nung  den  Workbench-  und  Kickstartversionen  anzupassen.  Mit 
AmigaBASIC  1.0  sollten  Sie  nicht  mehr  arbeiten;  wenn  Sie  kein 
anderes  AmigaBASIC  haben,  besorgen  Sie  sich  die  neueste 
Version  der  "ExtrasDH-Diskette. 

In  der  nachsten  Zeile  der  Einschaltmeldung  lesen  Sie  "Created 
6  Oct  1986".  Die  Programmierer  von  AmigaBASIC  haben  den 
letzten  Tastendruck  fiir  diese  Version  am  06.10.1986  getan.  In 
spateren  Versionen  kann  dieses  Datum  geandert  oder  durch 
weitere  Daten  erganzt  werden. 

"Copyright  (c)  1985,  1986  by  Microsoft  Corp."  Die  amerikani- 
sche  Softwarefirma  Microsoft  Corporation  hat  also  unser  BASIC 
geschrieben.  Microsoft  hat  schon  fiir  viele  Computer  sehr  gute 
und  erfolgreiche  BASICS  hergestellt.  Der  IBM  PC,  der  Apple 
Macintosh,  fast  alle  Commodores  (vom  alten  PET  bis  zum  Com- 
modore 128)  -  alle  haben  sie  ihr  BASIC  von  dieser  Firma.  Auch 
der  Amiga  macht  da  keine  Ausnahme.  Und  weil  das  Schreiben 
eines  BASIC- Interpreters  (so  sagt  der  Fachmann  dazu;  wenn's 
Ihnen  nichts  sagt  -  bitte  im  Fachwortlexikon  im  Anhang  D 
nachlesen)  viel  Miihe  macht,  erhebt  die  Firma  auch  Urheber- 
schutz  (engl.:  Copyright)  darauf. 

Kommen  wir  zu  den  beiden  letzten  Angaben.  Und  die  konnen 
sich  jetzt  stark  von  unserer  obigen  Meldung  unterscheiden.  Denn 
hier  geht  es  um  Speicherplatz.  Speicherplatz  wird  allgemein  in 
Bytes  angegeben.  Was  ein  Byte  genau  bedeutet,  konnen  Sie 
ebenfalls  im  Fachwortlexikon  finden. 
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Die  erste  Zahl  gibt  den  freien  Speicher  im  "System"  an.  Das 
heiBt,  die  Anzahl  an  Bytes,  die  neben  AmigaBASIC,  dem 
Speicherbereich  fur  BASIC-Daten  und  dem  Speicherplatz,  der 
fur  andere  Aufgaben  verwendet  wird,  momentan  noch  frei  ist. 

Je  nachdem,  was  Sie  vorher  mit  dem  Amiga  getan  haben,  wie- 
viele  Disketten  und  wieviele  Windows  geftffnet  wurden,  und  ob 
vielleicht  andere  Programme  im  Hintergrund  laufen,  kann  sich 
dieser  Wert  sehr  stark  von  unseren  261048  Bytes  unterscheiden. 
AuBerdem  sollten  wir  noch  dazusagen,  daB  wir  einen  Amiga 
1000  mit  256  KByte-Erweiterung  benutzen.  Wir  haben  also  ins- 
gesamt  512  KByte  RAM  (d.h.:  Schreib-/Lesespeicher).  Beim 
Amiga  500  oder  2000  kann  der  freie  Speicherplatz,  je  nach  Aus- 
baustufe,  wesentlich  grfiBer  sein.  Aber  mit  512  KByte  RAM 
kommen  Sie  fiir  die  Programme,  die  wir  in  diesem  Buch  vor- 
stellen,  in  jedem  Fall  aus.  Die  zweite  Zahl  gibt  die  Anzahl  an 
Bytes  an,  die  BASIC  fiir  seine  Programme  und  Daten  zur  Verfii- 
gung  hat.  Das  sind  im  Normalfall  25000  Bytes. 

Jetzt  werden  Sie  sich  vielleicht  fragen,  warum  AmigaBASIC  re- 
lativ  wenig  von  dem  "SystenT-Speicher  fur  sich  nutzt,  der  doch 
offenbar  im  UberfluB  vorhanden  ist?  Dafur  gibt  es  mehrere 
Antworten:  Durch  das  Multitasking  konnen  andere  Programme 
auch  noch  Speicherplatz  beanspruchen.  AuBerdem  brauchen  die 
farbigen  Grafiken,  die  der  Amiga  darstellen  kann,  viel  Spei- 
cherplatz. Damit  Sie  im  Bedarfsfall  auch  mehrere  hochauflo- 
sende  Grafiken  in  der  hochstmoglichen  Anzahl  an  Farben  im 
Speicher  unterkriegen  (und  die  brauchen  immerhin  pro  Grafik 
128  KBytes),  ist  der  freie  Systemspeicher  im  Vergleich  zum 
BASIC-Speicher  sehr  groBziigig  bemessen.  Im  BASIC-Referenz- 
teil  werden  wir  Ihnen  beim  CLEAR-Befehl  zeigen,  wie  Sie  die 
Speicheraufteilung  nach  Ihren  Vorstellungen  verandern  konnen. 


1.3        Hallo  Amiga  -  Experimente  mit  AmigaBASIC 

Das  BASIC-Window  haben  wir  uns  jetzt  sehr  genau  angesehen. 
Sonst  gibt  es  da  erstmal  nichts  weiter  zu  entdecken.  Aber 
schauen  wir  uns  noch  mal  genauer  das  LIST-Window  an,  So 
ganz  leer,  wie  ursprunglich  behauptet,  ist  es  ja  gar  nicht.  In  der 
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linken  oberen  Ecke  des  Windows  sehen  Sie  einen  orangefarbigen 
Strich.  Dieser  Strich  ist  der  BASIC-Cursor,  der  sich  zur  Zeit  im 
LIST- Window  befindet. 

Trotzdem  -  das  BASIC-Window  ist  uns  mittlerweile  etwas  ver- 
trauter.  Also  wollen  wir  mal  sehen,  ob  man  damit  nicht  ein 
biBchen  was  anfangen  kann.  Es  ist  bisher  nicht  aktiv,  aber  dem 
kann  ja  abholfen  werden: 

-    Bringen  Sie  den  Mauscursor  an  irgendeine  Stelle  des  BASIC- 
Windows,  und  klicken  Sie  einmal  mit  der  linken  Taste. 

Sieh  an!  Unser  Computer  hat  uns  verstanden.  Zumindest  be- 
hauptet  er  das  mit  seinem  OK,  das  er  auf  den  Bildschirm  ge- 
schrieben  hat.  Und  der  BASIC-Cursor  steht  jetzt  auch  im  ande- 
ren  Window.  Ein  kurzer  Blick  auf  den  Window-Titel  beweist: 
das  BASIC-Window  ist  aktiv.  Wenn  wir  jetzt  ins  LIST-Window 
klicken,  haben  wir  dieses  Window  wieder  aktiviert.  Nochmal  ins 
BASIC-Window  -  aha,  er  hat's  wieder  verstanden. 

Bisher  verhalt  sich  unser  Amiga  so,  wie  wir  es  auch  von  der 
Workbench  gewohnt  sind.  Es  gibt  hier  zwei  Windows,  von  denen 
immer  nur  eines  aktiviert  sein  kann. 

Der  erste  Unterschied  besteht  in  der  Anzahl  der  Cursors,  die  wir 
zur  Verfiigung  haben.  Davon  gibt  es  jetzt  nSmlich  zwei.  Der 
Maus-Cursor  ist,  wie  der  Name  schon  sagt,  fur  die  Maus  zu- 
standig.  Und  der  andere?  Er  heiBt,  wie  schon  erwahnt,  BASIC- 
Cursor  und  wird  bei  Tastatureingaben  benotigt.  Er  zeigt,  an 
welcher  Stelle  des  Bildschirms  die  eingetippten  Zeichen  erschei- 
nen.  Diesen  Cursor  benotigen  wir  in  BASIC  haufig,  weil  beim 
Programmieren  viel  mit  der  Tastatur  gearbeitet  wird.  Sollten  Sie 
die  Tastatur  unter  Ihrem  Amiga  versteckt  haben,  wird  es  also 
jetzt  Zeit,  sie  aus  der  Versenkung  zu  holen.  Damit  Sie  bequem 
tippen  kflnnen,  empfehlen  wir  Ihnen,  die  FiiBchen  aufzuklappen, 
so  daB  die  Tastatur  mit  leichter  Neigung  vor  Ihnen  steht. 

Nach  all  diesen  Vorbereitungen  sind  wir  soweit  fur  unseren  er- 
sten  Versuche  mit  AmigaBASIC.  Tippen  Sie: 
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print  "Hallo" 

Die  obere  Zeile  sollte  jetzt  genauso  auf  dem  Bildschirm  stehen. 
Falls  Sie  sich  vertippt  haben,  konnen  Sie  die  Zeichen  links  vom 
Cursor  mit  der  Taste  <BACKSPACE>  wieder  loschen.  Wenn  Sie 
soweit  sind,  driicken  Sie  bitte  die  Taste  <RETURN>.  Diese  Ta- 
ste wird  auch  Eingabetaste  genannt.  Was  fur  einen  Sinn  hat  diese 
Taste?  Der  Amiga  kann  nicht  wissen,  wann  Sie  mit  dem  Tippen 
auf  dem  Bildschirm  fertig  sind.  Deshalb  kummert  er  sich  erstmal 
gar  nicht  um  das,  was  auf  dem  Bildschirm  steht.  Erst  durch  das 
Driicken  der  <RETURN>-Taste  sagen  Sie  ihm:  "So,  lieber 
Amiga,  nun  schau  Dir  an,  was  ich  da  geschrieben  habe." 

Das  tut  der  Amiga  auch  und  bringt  Ihnen  als  Antwort  ein 
freundliches  "Hallo"  entgegen,  gefolgt  von  seinem  bekannten 
OK.  Mit  unserer  Eingabe  haben  wir  ihm  aufgetragen,  daft  der 
Text,  der  hinter  dem  PRINT-Befehl  in  Anfuhrungszeichen  steht, 
auf  dem  Bildschirm  gedruckt  wird  (engl.:  print).  Dabei  ist  es 
dem  Amiga  egal,  ob  Sie  print  oder  PRINT  schreiben.  Groft-  und 
Kleinschreibung  ist  bei  BASIC-Befehlen  unwichtig.  Wenn  es  Ih- 
nen Spaft  macht,  konnen  Sie  sogar  pRiNt  schreiben.  Als  Zeichen 
dafur,  daft  der  Amiga  mit  alien  Aufgaben  fertig  ist,  folgt  noch 
ein  OK. 

Jetzt  ist  es  auch  nicht  mehr  schwierig  zu  beantworten,  was  wohl 
der  folgende  Befehl  bewirken  wird: 

print  "Wie  geht's?"  <RETURN> 

Vorsicht:  Sie  sollen  das  Obenstehende  jetzt  nicht  exakt  abtippen, 
sondern  diese  Schreibweise  bedeutet,  daft  hinter  dem  Befehl 
print  "Wie  geht's?"  noch  die  <RETURN>-Taste  gedruckt  werden 
muB. 

Hdfliche  Fragen  sollte  man  hdflich  beantworten.  Also  geben  Sie 
ein: 

Danke,  mir  geht  es  gut.  <RETURN> 
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Sie  werden  gleich  merken,  daB  man  mit  einem  Computer  nicht 
so  einfach  Konversation  machen  kann.  Zuniichst  beschwert  er 
sich  einmal  lautstark  mit  einem  Pieps,  dann  erscheint  ein  Kast- 
chen  mit  dem  Text  "Undefined  Subprogram"  und  einem  Feld 
"OK". 

Vielleicht  haben  Sie  es  sich  schon  gedacht:  Das  Ganze  ist  eine 
Fehlermeldung.  Der  Amiga  gibt  uns  zu  verstehen,  daB  der  ein- 
gegebene  Satz  ihm  nicht  viel  sagt.  Ist  ja  auch  kein  Wunder,  er 
versteht  ja  nur  BASIC  und  "Danke,  mir  geht  es  gut."  ist  zwar 
nett,  aber  mit  Sicherheit  kein  BASIC-Befehl.  Um  dem  Amiga 
mitzuteilen,  daB  wir  seine  Fehlermeldung  verstanden  haben, 
miissen  wir  mit  dem  Mauscursor  in  das  OK-Feld  klicken.  Dar- 
aufhin  verschwindet  das  Fehler-Kastchen.  Am  besten,  Sie  lassen 
den  Mauscursor  gleich  in  dieser  Gegend  stehen.  Denn  erfah- 
rungsgemiiB  produziert  man  beim  ersten  Experimentieren  in 
BASIC  ziemlich  viele  Errors. 

Die  nSchste  Frage,  die  sich  stellt,  ist,  warum  man  eigentlich  die 
Anfuhrungszeichen  braucht?  Wir  konnen's  ja  mal  ohne  ver- 
suchen: 

print  Hallo  <RETURN> 

Ihr  Amiga  wird  Ihnen  antworten: 
o 

OK 

Wie  ist  diese  0  jetzt  zu  verstehen?  Will  der  Amiga  uns  in  im 
Sinne  von  "Null,  kannste  vergessen!"  mitteilen,  daB  er  iiberhaupt 
keine  Lust  hat,  unserer  Anforderung  nachzukommen,  wenn  wir 
uns  nicht  an  die  Regel  mit  den  Anfuhrungszeichen  halten?  Oder 
ist  die  Null  etwa  als  Beleidigung  gemeint?  Bevor  Sie  Ihren 
Amiga  verargert  einpacken  und  wegen  unversch^mten  Beneh- 
mens  zum  Handler  zuruckbringen,  sollten  Sie  die  folgenden 
Zeilen  lesen.  Tippen  Sie  ein: 

let  Hallo  =  100  <RETURN> 
print  Hallo  <RETURN> 
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Diesmal  wird  uns  der  Amiga  keine  0,  sondern  die  Zahl  100  an- 
bieten.  Hat  schon  jemand  einen  Verdacht?  Vorhin  haben  wir 
geschrieben,  daJ3  Texte,  die  dem  PRINT-Befehl  folgen,  in  An- 
fuhrungszeichen  eingebettet  werden  miissen.  Demnach  ist  das 
Hallo  im  oberen  Fall  kein  Text.  Es  handelt  sich  dabei  vielmehr 
urn  eine  Variable.  Ja  richtig,  um  eines  dieser  Dinger,  die  im 
Mathematikunterricht  schon  immer  so  viele  Probleme  machten, 
weil  sie  meistens  unbekannt  sind.  In  BASIC  ist  das  nicht  so 
schwierig. 

Eine  der  Aufgaben  eines  BASIC-Programms  kann  es  sein,  Be- 
rechnungen  durchzufiihren.  Um  sich  die  Werte  und  Ergebnisse 
solcher  Berechnungen  zu  merken,  braucht  BASIC  aber  einen 
Namen  fur  das  Kind.  Dazu  dienen  die  Variablen.  Und  der  LET- 
Befehl  weist  den  Variablen  einen  Wert  zu.  Geben  Sie  bitte  ein: 

print  7+5  <RETURN> 

Der  Amiga  wird  Ihnen  als  Ergebnis  die  Zahl  12  liefern.  Wenn 
Sie  jetzt 

let  Hallo  =  7+5 
print  Hallo 

eingeben,  wird  der  Amiga  Ihnen  dasselbe  Ergbnis  liefern.  Aber 
diesmal  hat  er  sich  das  Ergebnis  der  Berechnung  in  einer  Va- 
riablen namens  Hallo  gemerkt.  Wenn  Sie  das  nicht  glauben,  kon- 
nen  Sie's  ja  nochmal  nachpriifen: 

print  Hallo  <RETURN> 

Wieder  wird  das  Ergebnis  12  sein.  Und  so  kam  auch  die  0  vor- 
hin zustande:  Wir  haben  den  Inhalt  einer  Variablen  abgefragt, 
die  es  iiberhaupt  noch  nicht  gab.  Logischerweise  kam  als  Ergeb- 
nis 0  heraus,  denn  alle  Variablen  haben  erstmal  als  Grund- 
belegung  den  Wert  0. 

Ubrigens,  wenn  Ihnen  die  Tipperei  allmahlich  etwas  zu  viel 
wird,    hier   sind   zwei   Tips,   die   Ihnen   auf   Dauer   eine   ganze 
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Menge  Arbeit  abnehmen.  Erstens:  Den  Befehl  LET  kdnnen  Sie 
auch  weglassen: 

let  Hallo  =  5 

und 

Hallo  =  5 

bewirken  genau  dasselbe.  Zweitens:  Fur  den  PRINT-Befehl,  der 
ja  offensichtlich  sehr  h&ufig  benotigt  wird,  gibt's  eine  Abkur- 
zung,  n&mlich  das  Fragezeichen  (?). 

print  "Hallo" 

und 

?  "Hallo" 

bewirken  auch  dasselbe,  nur  daB  man  sich  mit  der  Abkiirzung 
einiges  an  Tipperei  spart. 

Alles,  was  wir  bisher  gelernt  haben,  laBt  sich  natiirlich  auch 
kombinieren,  etwa  in  der  Art: 

?  "Das  Ergebnis  von  5+7  ist"  5+7 

Allerdings  werden  Sie  beim  Eingeben  wahrscheinlich  ein  Pro- 
blem haben:  Etwa  nach  dem  zweiten  Anfuhrungszeichen  ist  Ih- 
nen  das  LIST-Window  im  Weg.  Und  Ihr  BASIC-Cursor  ver- 
schwindet  auf  einmal  dahinter,  ohne  Sie  auch  nur  eines  Ab- 
schiedswortes  zu  wiirdigen.  Mit  unseren  Workbench-Kenntnissen 
ist  es  uns  aber  ein  leichtes,  das  BASIC-Window  in  den  Vorder- 
grund  zu  holen:  Einfach  das  rechte  der  beiden  Vordergrund- 
/Hintergrund-Symbole  am  BASIC-Window  anklicken.  (Zur  Hil- 
festellung:  Das  ist  das  Symbol  ganz  rechts  oben  in  der  Ecke.) 
Schon  fullt  das  BASIC-Window  den  ganzen  Bildschirm  aus  und 
wir  haben  genug  Platz  fur  unsere  Eingaben.  Also  weiter  im 
Text: 
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?  "Das  Ergebnis  von  5+7  ist"  5+7  <RETURN> 

Na,  das  sieht  doch  ganz  gut  aus,  oder?  Wahrscheinlich  ist  Ihnen 
schon  aufgefallen,  daB  das  BASIC-Window  durch  unsere  Expe- 
rimente  etwas  unaufgeraumt  aussieht.  Uberall  sind  Fragmente 
unserer  vorherigen  Versuche.  Auch  dagegen  gibt  es  Abhilfe: 

els  <RETURN> 

Sieht  gleich  viel  ordentlicher  aus,  oder?  Der  CLS-Befehl  loscht 
den  Bildschirm  (engl.:  Clear  Screen)  und  setzt  den  Cursor  ins 
linke  obere  Eck.  Das  ist  immer  dann  sinnvoll,  wenn  der  Bild- 
schirm schtin  sauber  aussehen  soil,  damit  es  genug  Platz  gibt  fur 
das,  was  danach  passieren  soil.  Wenn  Sie  sicherstellen  wollen, 
daB  der  Bildschirm  gel6scht  wird,  bevor  eine  Ausgabe  erfolgt, 
erreichen  Sie  das  so: 

els   :  ?  "Hallo! »•  <RETURN> 

Damit  haben  wir  gleich  wieder  etwas  gelernt:  Man  kann  mehrere 
BASIC-Befehle  in  eine  Zeile  schreiben,  indem  man  sie  mit  ei- 
nem  Doppelpunkt  voneinander  trennt. 

Wenn  Sie  sich  jetzt  sagen,  MDas  ist  ja  alles  gut  und  schSn,  aber 
ein  biBchen  mehr  Aktion  ware  schon  nicht  schlecht!",  dann  kann 
Ihnen  geholfen  werden:  Als  Kostprobe,  was  bei  AmigaBASIC 
mit  Animation  zu  erreichen  ist,  wollen  wir  Ihnen  zunSchst  ein 
kleines  Programm  vorstellen,  das  ein  paar  fliegende  Balle  er- 
zeugt.  Der  erste  Schritt  dazu  ware,  den  Namen  des  Programms 
auf  den  Bildschirm  schreiben  zu  lassen. 

?  "Fliegende  Balle"  <RETURN> 

Jetzt  steht  zwar  der  Titel  unseres  zukiinftigen  Werks  auf  dem 
Bildschirm,  aber  so  ganz  glucklich  sind  Sie  wahrscheinlich  noch 
nicht  daruber:  Das  bisher  Getippte  hat  sich  ja  als  ziemlich  ver- 
ganglich  erwiesen  -  spatestens,  wenn  es  am  oberen  Bildschirm- 
rand  verschwunden  ist,  weil  Sie  neue  Eingaben  gemacht  haben. 
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Aber  es  kann  ja  wohl  kaum  Sinn  von  BASIC  sein,  ein  Programm 
nach  jedem  Lauf  neu  abzutippen,  oder?  Richtig.  Deshalb  kommt 
jetzt  die  groOe  Stunde  des  LIST- Windows. 


1.4        Die  erste  Kostprobe:  Nur  Fliegen  ist  schoner 

Das  LIST-Window  liegt  ja  zur  Zeit  etwas  unbeachtet  hinter  dem 
BASIC-Window,  mit  dem  wir  die  ganze  Zeit  gearbeitet  haben. 
Ein  Klick  ins  Hintergrund-Symbol  (das  linke  der  beiden  Sym- 
bole)  befdrdert  es  wieder  zu  Tage.  Genauer  gesagt,  wird  das 
BASIC-Window  ganz  nach  hinten  gelegt.  Deshalb  werden  Sie 
jetzt  wahrscheinlich  zwei  neue  Windows  sehen:  Das  gesuchte 
LIST-Window  und  das  Window  der  Extras-Diskette.  Letzteres 
konnen  wir  zur  Zeit  wirklich  nicht  brauchen.  Es  mu(3  also  wie- 
der verschwinden.  Am  besten,  Sie  schlieBen  es  ganz  (ein  Klick 
ins  SchlieB-Symbol,  links  oben  am  Window). 

So,  wenn  jetzt  alle  soweit  sind,  konnen  wir  anfangen,  unser  er- 
stes  eigenes  Programm  zu  schreiben.  Es  ist  wirklich  ganz  ein- 
fach.  Aktivieren  Sie  bitte  das  LIST-Window  (irgendwo  ins  Win- 
dow klicken).  Jetzt  verschwindet  der  BASIC-Cursor  aus  dem 
BASIC-Window  und  erscheint  im  LIST-Window.  Tippen  Sie: 

?  "Ftiegende  Balle"  <RETURN> 

Der  Amiga  reagiert  nun  anders  als  bisher  gewohnt:  Anstatt  den 
Befehl  direkt  auszufiihren,  hat  er  aus  dem  ?  ein  PRINT  ge- 
macht.  Der  Cursor  steht  eine  Zeile  tiefer  und  wartet  auf  weitere 
Eingaben.  Na,  damit  konnen  wir  dienen: 

?  "von  Franz  Maier"  <RETURN> 

Naturlich  konnen  Sie  hier  Ihren  eigenen  Namen  einsetzen.  Ha- 
ben Sie  keine  Skrupel,  sich  ein  wenig  mit  fremden  Federn  zu 
schmucken:  SchliefMich  soil  Ihnen  fur  die  ganze  Arbeit,  die  Sie 
bisher  hatten,  ja  auch  ein  wenig  Ruhm  zuteil  werden.  (Ihre  Fa- 
milie  sollten  Sie  aber  erst  rufen,  wenn  das  Programm  abgetippt 
ist  und  l&uft!!)  Der  Amiga  reagiert  wieder  genauso  wie  gerade 


Ob jekt- Animation  57 


eben  auf  unsere  Eingabe:  Er  iibersetzt  das  ?  und  kummert  sich 
nicht  weiter  urn  das  Getippte. 

Es  gibt  noch  weitere  Punkte,  in  denen  sich  das  LIST-Window 
vom  BASIC-Window  unterscheidet.  Drucken  Sie  zum  Beispiel 
mal  eine  der  vier  Cursor-Tasten.  (Das  sind  die  vier  Tasten  mit 
den  Pfeilen  darauf,  die  rechts  unter  bzw.  neben  der 
<RETURN>-Taste  auf  der  Tastatur  angeordnet  sind.)  Je  nach- 
dem,  welche  Taste  Sie  erwischt  haben,  bewegt  sich  der  Cursor 
im  LIST-Window.  Wenn  er  sich  nicht  bewegt,  und  der  Amiga 
stattdessen  einen  protestierenden  Piepser  von  sich  gibt,  haben  Sie 
versucht,  den  Cursor  in  eine  Richtung  zu  bewegen,  in  der  es  fur 
ihn  zur  Zeit  kein  Fortkommen  gibt.  Die  Pfeile  auf  den  Tasten 
entsprechen  der  Richtung,  in  die  sich  der  Cursor  bewegt. 

Mit  den  Cursor-Tasten  und  der  <BACKSPACE>-Taste  konnen 
Sie  Tippfehler  an  jeder  Stelle  innerhalb  des  Windows  korri- 
gieren.  Wenn  die  <BACKSPACE>-Taste  auf  Ihrer  Tastatur  nicht 
beschriftet  ist,  dann  erkennen  Sie  sie  daran,  daB  sie  direkt  liber 
der  <RETURN>-Taste  liegt  und  einen  Pfeil  nach  links  tragt.  Die 
Korrekturmoglichkeiten  verdanken  Sie  dem  Bildschirm-Editor. 
Der  heiBt  so,  weil  Sie  den  Cursor  frei  auf  dem  ganzen 
Bildschirm  bewegen  konnen.  Im  BASIC-Window  haben  Sie  im 
Gegensatz  dazu  einen  Zeilen-Editor,  weil  Korrekturen  nur  in- 
nerhalb der  aktuellen  Zeile  erfolgen  konnen. 

Geben  Sie  nun  bitte  folgende  Programmzeilen  im  LIST-Window 
ein: 

p$  =  "ExtrasDiBasicDemos/BaU"  <RETURN> 
open  p$  for  input  as  1  <RETURN> 
object. shape  1, input$(lof<1),1>  <RETURN> 
close  1  <RETURN> 

Start:  <RETURN> 
for  x=2  to  5  <RETURN> 
object. shape  x,1  <RETURN> 
object. x  x,320  <RETURN> 
object. y  xf60  <RETURN> 
object. hit  x,0,0  <RETURN> 
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object. ax  x,  (<x=2  or  x=4)+.5>*6  <RETURN> 
object. ay  x,  (<x>3)+.5)*1.5  <RETURN> 
next  x  <RETURN> 

for  x=2  to  5  <RETURN> 

object. on  x  :  object. start  x  <RETURN> 

next  x  <RETURN> 

for  x=1  to  3500  :  next  x  <RETURN> 

goto  Start  <RETURN> 

Bravo!  Sie  haben  soeben  Ihr  erstes  AmigaBASIC-Programm  ge- 
schrieben.  Bitte  achten  Sie  darauf,  daB  Sie  alles  so  eingeben,  wie 
es  oben  abgedruckt  ist.  Der  Amiga  wird  die  BASIC-Befehle 
beim  Driicken  der  <RETURN>-Taste  zwar  in  GroGbuchstaben 
umwandeln,  aber  ansonsten  sollte  alles  genau  ubereinstimmen. 
Wenn  Sie  Fehler  finden,  wissen  Sie  ja:  Mit  den  Cursor-Tasten 
und  <BACKSPACE>  kann  man  sie  korrigieren. 

Klicken  Sie  jetzt  ins  BASIC-Window  und  geben  Sie  ein: 

run  <RETURN> 

Wenn  Sie  sich  nicht  vertippt  haben,  sehen  Sie  jetzt  vier  kleine 
Balle,  die  von  der  Mitte  des  Bildschirms  in  alle  Richtungen  da- 
vonfliegen.  Es  kann  aber  auch  sein,  daB  der  Amiga  einen  prote- 
stierenden  Piepser  von  sich  gibt  und  das  schon  bekannte  Kast- 
chen  im  oberen  Teil  des  Bildschirms  erscheint.  In  diesem  Fall 
haben  Sie  doch  noch  einen  Fehler  in  Ihrer  Eingabe  ubersehen. 
Bewegen  Sie  dann  den  Mauscursor  in  das  Feld  OK  und  klicken 
Sie  einmal  mit  der  linken  Maustaste.  Vergleichen  Sie  dann  bitte 
die  Eingaben  im  LIST-Window  nochmals  genau  mit  unserem 
Programm  und  verbessern  Sie  eventuelle  Tippfehler. 

So,  das  war  doch  schon  was,  oder? 

Wahrscheinlich  haben  Sie  vieles  von  dem,  was  Sie  eintippten, 
noch  nicht  verstanden.  Aber  das  macht  uberhaupt  nichts.  Es 
sollte  ja  nur  eine  Kostprobe  sein.  Sie  sehen  hier,  was  mit  recht 
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geringem  Aufwand  erreicht  werden  kann.  Die  einzelnen  Befehle 
und  Funktionen  werden  Sie  im  Grafik-Kapitel  alle  erklart  be- 
kommen. 

WShlen  Sie  jetzt  bitte  die  Option  "Save  As"  aus  dem  "Project- 
Menu.  Dazu  driicken  Sie  die  Meniitaste,  also  die  rechte 
Maustaste,  und  fahren  Sie  mit  dem  Mauscursor  auf  das  dann 
erschienene  Wort  "Project"  in  der  Kopfleiste.  Ziehen  Sie  den 
Mauszeiger  im  entstandenen  Pulldown  hinunter  auf  das  Wort 
"Save  As",  bis  diese  Option  schwarz  hinterlegt  ist.  Lassen  Sie 
dann  die  Meniitaste  los.  In  der  linken  oberen  Ecke  des  Bild- 
schirms  erscheint  ein  Kastchen.  Bewegen  Sie  den  Mauscursor  in 
dieses  Kastchen,  klicken  Sie  einmal  mit  der  linken  Maustaste 
und  tippen  Sie  auf  der  Tastatur: 

Ballprogramm  <RETURN> 

Das  Kastchen  wird  wieder  verschwinden,  und  das  Diskettenlauf- 
werk  des  Amiga  wird  kurz  arbeiten.  Bitte  warten  Sie,  bis  die 
rote  Lampe  am  Laufwerk  wieder  erloschen  ist.  Wir  haben  unser 
kleines  Ballprogramm  jetzt  fur  zukiinftige  Experimente  auf  Dis- 
kette abgespeichert.  Das  ist  wichtig:  Ein  BASIC-Programm  ist  ab 
dem  Augenblick  auf  Nimmerwiedersehen  verloren,  in  dem  der 
Amiga  ausgeschaltet  wird.  Egal,  ob  Sie  das  mit  Absicht  machen 
oder  Ihre  Katze  bei  der  Jagd  nach  einer  Fliege  den  Stecker  aus 
der  Dose  reiBt.  Nur  auf  einer  Diskette  kann  das  Programm  fur 
die  Zukunft  aufgehoben  werden. 

Klicken  Sie  nun  bitte  ins  BASIC-Window  und  geben  Sie  ein: 

new  <RETURN> 

Sie  sehen,  daB  der  Inhalt  von  beiden  Windows  geldscht  wurde 
und  der  BASIC-Cursor  nun  der  Dinge  harrt,  die  da  kommen 
mogen. 
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1.5        Mai  hier,  mal  da...  -  BASIC- Window  und  LIST- Window 

Was  passiert  iiberhaupt  im  LIST-Window  mit  unseren  Eingaben, 
wenn  sie  nicht  direkt  ausgefiihrt  werden?  Oder  -  anders  gefragt 
-  welche  unterschiedlichen  Funktionen  haben  eigentlich  BASIC- 
Window  und  LIST-Window?  Unsere  Experimente  im  BASIC- 
Window  fanden  im  sogenannten  Direktmodus  statt.  Der  Name 
kommt  daher,  daB  der  Amiga  die  Eingaben,  die  hier  stattfinden, 
direkt  nach  dem  <RETURN>  ausfuhrt.  Im  LIST-Window  befin- 
den  wir  uns  im  Gegensatz  dazu  in  einem  Programmier-Modus. 
Hier  merkt  sich  der  Amiga  die  Eingaben  solange,  bis  das  Pro- 
gramm  mit  RUN  gestartet  wird. 

Vielleicht  haben  Sie  sich  aber  schon  einmal  abgedruckte  Pro- 
gramme -  in  Zeitschriften  oder  Buchern  werden  sie  Listings  ge- 
nannt  -  angesehen.  Dann  sind  Ihnen  sicher  zuerst  die  vielen 
Zeilennummern  aufgefallen,  die  jeweils  vor  den  BASIC-Befeh- 
len  stehen.  Wo  sind  also  unsere  Zeilennummern?  Nein,  wir  wol- 
len  Ihnen  nichts  unterschlagen!  Die  Erklarung  ist  einfach:  Es 
gibt  sie  nicht.  Sie  sind  beim  Amiga  uberfliissig.  HerkSmmliche 
Computer  brauchen  sie,  und  zwar  aus  mehreren  Griinden.  Einer 
davon  ist,  um  zwischen  Eingaben  im  Direktmodus  und  Pro- 
grammiermodus  zu  unterscheiden. 

Normalerweise  signalisiert  ein  Befehl  mit  Zeilennummer  dem 
Computer,  daB  das  Folgende  nicht  sofort  ausgefuhrt  werden  soil: 
Programmiermodus.  Ein  Befehl  ohne  Zeilennummer  heiBt  fur 
den  Computer:  Direktmodus.  Fur  diese  Unterscheidung  gibt  es 
aber  beim  Amiga  ja  schon  die  beiden  Windows.  Das  heiBt  aber 
nicht,  daB  Sie  bei  AmigaBASIC  keine  Zeilennummern  verwen- 
den  durfen.  Wenn  Sie  unbedingt  mftchten,  geht  das  auch.  Doch 
zu  diesem  Thema  kommen  wir  etwas  sp&ter. 

Nach  unserem  kleinen  Programm  von  vorhin  ist  es  nun  an  der 
Zeit,  etwas  Umfangreicheres  anzugehen.  Fangen  wir  am  besten 
mit  unserem  Videotitel-Programm  an.  Bitte  tippen  Sie  alles  fol- 
gende auch  wirklich  ab.  Zum  SchluB  ergibt  sich  daraus  n&mlich 
ein  Programm.  Und  fast  nebenbei  lernen  Sie,  mit  Ihrem  Amiga 
in  einer  der  beliebtesten  Computersprachen  zu  sprechen:  BASIC. 
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Klicken  Sie  also  bitte  ins  LIST- Window  und  geben  Sie  dort  ein: 

?  "Videotitel-Programm"  <RETURN> 
?  "von  Franz  Maier"  <RETURN> 

Damit  sind  die  ersten  Zeilen  unseres  Videoprogrammes  auch 
schon  programmiert.  Und  eigentlich  miiBten  Sie  auch  alles,  was 
da  steht,  schon  verstehen.  Wir  haben  bis  jetzt  programmiert,  daB 
der  Amiga  den  Titel  unseres  zukiinftigen  Programms  und  Ihren 
Namen  auf  dem  Bildschirm  darstellt.  (Bei  Franz  Maier  sollten 
Sie  wieder  Ihren  Namen  einsetzen.) 

Wenn  Sie  jetzt  iiberprufen  wollen,  ob  das  Programm  auch  funk- 
tioniert:  Der  BASIC-Befehl,  der  Programme  startet,  heiBt  RUN. 
Diesen  Befehl  diirfen  Sie  in  diesem  Fall  aber  nicht  einfach  ins 
LIST-Window  tippen,  da  sich  der  Amiga  sonst  erst  mal  gar  nicht 
darum  kummern  wurde.  Bei  RUN  handelt  sich  urn  einen  Befehl, 
der  meist  im  Direktmodus  eingegeben  wird.  Also  aktivieren  wir 
das  BASIC-Window  und  tippen: 

run  <RETURN> 

Wenn  Sie  alles  so  eingegeben  haben  wie  besprochen,  dann  ist 
nun  folgendes  passiert:  Das  LIST-Window  ist  vom  Bildschirm 
verschwunden,  im  BASIC-Window  ist  unser  Text  erschienen, 
darunter  steht  OK  und  der  Cursor.  Die  Ausgaben  eines  BASIC- 
Programms  (was  ein  Programm  druckt,  nennt  man  eine  Ausgabe) 
erscheinen  also  auch  im  BASIC-Window.  Und  wohin  ist  mein 
Programm  verschwunden?  Denken  Sie  daran,  daB  AmigaBASIC 
mit  Windows  arbeitet.  Und  Windows  konnen  bekanntlich  hin- 
tereinander  liegen.  Genau  das  ist  auch  passiert.  Jetzt  gibt  es 
mehrere  Moglichkeiten,  wieder  an  das  Listing  heranzukommen. 
Eine  ist: 

list  <RETURN> 

Wenn  Sie  diesen  Befehl  im  BASIC-Window  eintippen,  erscheint 
das  LIST-Window  wieder. 
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Fur  alle,  denen  das  jetzt  schon  wieder  zu  viel  Tipperei  war,  ha- 
ben  die  Amiga-Programmierer  einige  Hilfen  eingebaut:  Wie  wir 
es  von  der  Workbench  schon  kennen,  gibt  es  auch  bei  Amiga- 
BASIC  Pulldown-Menus.  Wenn  Sie  die  rechte  Maustaste 
driicken,  sehen  Sie,  was  da  zur  Auswahl  steht.  Es  gibt  vier 
Meniititel: 

Project   Edit   Run    Windows 

Das  "Project"-Menu  dient  zur  Verwaltung  der  BASIC-Pro- 
gramme.  Hier  gibt  es  Optionen  zum  Loschen,  Laden  und  Spei- 
chern  der  Programme.  Eine  dieser  Funktionen  haben  wir  vorhin 
beim  Abspeichern  unseres  Ballprogrammes  schon  einmal  benutzt, 
erinnern  Sie  sich?  Wir  werden  spater  noch  genauer  auf  dieses 
Pulldown  eingehen. 

Das  "Edif-Menii  bietet  Hilfen  beim  Editieren,  sprich  Verbessern 
und  Andern  von  Programmen. 

Das  "Run"-Menii  soil  uns  gleich  naher  interessieren.  Hier  gibt  es 
verschiedene  Optionen,  um  Programme  zu  starten,  anzuhalten 
und  wahrend  der  Ausfuhrung  zu  beeinflussen. 

Das  "Windows"-Menu  schlieBlich  hilft  uns  beim  Umgang  mit 
dem  LIST-Window  und  dem  BASIC-Window. 

Um  unser  Programm  zu  starten,  konnen  wir  auch  die  Option 
"Start"  aus  dem  "Run"-Menu  anwahlen.  Sie  wissen  ja  noch: 
Rechte  Maustaste  gedruckt  halten,  mit  dem  Mauscursor  auf 
"Run"  fahren,  dann  bis  "Start"  im  Pulldown  herunterziehen  und 
loslassen. 

Und  schon  ist  das  Programm  wieder  gelaufen  -  und  das  Listing 
weg.  Weil  Sie  aber  das  Listing  sehen  wollten,  konnen  Sie  jetzt 
im  "Windows"-Menu  die  Option  "Show  List"  auswahlen.  Sie  tut 
das',  was  der  Name  schon  vermuten  lafit:  Sie  zeigt  das  LIST- 
Window  an.  Umgekehrt  zeigt  "Show  Output"  das  Ausgabe-Win- 
dow,  also  in  unserem  Fall  das  BASIC-Window. 
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Vielleicht  ist  Ihnen  aufgefallen,  daB  in  den  Pulldowns  neben  den 
Optionen  "Start"  und  "Show  List"  noch  etwas  anderes  zu  sehen 
ist:  Ein  blau  hinterlegtes  A  und  daneben  ein  Buchstabe.  Bei 
"Start"  ein  R  und  bei  "Show  List"  ein  L.  Diese  Kurzel  weisen  auf 
eine  dritte  MGglichkeit  hin,  Programme  zu  starten  oder  das 
LIST-Window  anzuzeigen.  Zwischen  der  Leertaste  -  dem  lang- 
lichen  Barren  ganz  unten  an  der  Tastatur  -  und  der  rechten 
<ALT>-Taste  sehen  Sie  eine  Taste  mit  einem  roten,  nicht  aus- 
gefullten  A.  Diese  Taste  ist  eine  der  beiden  Amiga-Tasten.  Wir 
wollen  Sie  in  Zukunft  rechte  oder  "offene"  Amiga-Taste  nennen, 
wogegen  die  andere  Taste  mit  dem  ausgefullten  roten  A  die 
linke  oder  "geschlossene"  Amiga-Taste  ist. 

Wenn  Sie  also  die  offene  Amiga-Taste  gedriickt  halten  und  dann 
die  Taste  <R>  driicken,  erreichen  Sie  dasselbe  wie  durch  Aus- 
wahl  der  "Start"-Option  aus  dem  "Run"-Menti.  Entsprechend 
bringt  die  Kombination  <offene  Amiga-Taste>  und  <L>  das 
LIST-Window  genauso  auf  den  Bildschirm  wie  die  "Show  List"- 
Option  aus  dem  "Windows"-Menu.  Sie  werden  bei  Ihrer  zukunf- 
tigen  Arbeit  am  Amiga  noch  weitere  solcher  Tasten-Kurzel 
kennenlernen.  Gerade  bei  Programmen,  die  vorwiegend  mit  der 
Tastatur  und  weniger  mit  der  Maus  bedient  werden,  konnen  sie 
sehr  niitzlich  sein. 

Welche  der  vorgestellten  Moglichkeiten  Sie  verwenden,  wenn  es 
in  Zukunft  heiBt,  "Starten  Sie  bitte  das  Programm"  oder  "Holen 
Sie  das  LIST-Window  auf  den  Bildschirm",  bleibt  ganz  Ihnen 
uberlassen. 


1.6        Es  geht  voran  -  weitere  BASIC-Funktionen 

Nachdem  wir  nun  schon  ganz  gut  mit  den  beiden  Windows  und 
dem  Starten  von  Programmen  zurechtkommen,  ware  es  eigentlich 
an  der  Zeit,  wieder  ein  wenig  fur  unser  Videotitel-Programm  zu 
tun.  Geben  Sie  bitte  im  LIST-Window  die  folgenden  Zeilen  ein: 

?  "Auswahl:"  <RETURN> 

?  "1  Text  eingeben"  <RETURN> 

?  "2  Objects  efnlesen"  <RETURN> 
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?  "3     Obj.Bewegung  festlegen"  <RETURN> 
?  "4     Farben  festlegen"  <RETURN> 
?  "5     Titel  wiedergeben"  <RETURN> 

Sechs  neue  Zeilen  Programm  -  und  Sie  verstehen  sie  alle.  Das 
zeigt  zwei  Dinge:  Erstens,  daB  BASIC  doch  nicht  so  schwer  ist, 
wie  Sie  vielleicht  gedacht  hatten,  und  zweitens,  daB  der  PRINT 
Befehl  ziemlich  haufig  verwendet  wird.  Mit  ihm  haben  wir  jetzt 
eine  Art  Auswahl-Menii  erstellt.  Gleichzeitig  sehen  Sie  auch 
schon,  was  unser  Programm  zum  SchluB  k5nnen  soil:  Man  soil 
Texte  bzw.  einen  Titel  eingeben  konnen.  Dann  gibt  es  einen 
Punkt,  um  Objekte  einzulesen,  und  einen,  um  ihre  Bewegung 
festzulegen.  Ein  wenig  Farbe  kdnnte  auch  nicht  schaden,  deshalb 
der  Programmpunkt  4,  und  zu  guter  Letzt  brauchen  wir  einen 
Programmteil,  der  uns  dann  alles  vorspielt,  damit  wir  unseren 
Titel  auch  ansehen  und  spater  eventuell  auf  Video  aufzeichnen 
kflnnen. 

Wie  sieht  das  alles  jetzt  auf  dem  Bildschirm  aus?  Am  besten 
starten  wir  unser  Programmfragment  gleich  mal.  Dazu  noch  ein 
Tip:  Wenn  Sie  das  LIST-Window  aktiviert  lassen  (also  nicht  ins 
BASIC-Window  klicken)  und  dann  "Start"  aus  dem  "Run"-Menii 
w&hlen  bzw.  <offene  Amiga-Taste>  und  <R>  driicken,  erscheint 
das  Programmlisting  nach  dem  Programmlauf  automatisch  wie- 
der  auf  dem  Schirm.  Falls  Sie  das  nicht  wollen,  einfach  vorher 
das  BASIC-Window  aktivieren. 

Starten  Sie  das  Programm. 

Naja,  sieht  ja  ganz  htibsch  aus,  hangt  aber  vielleicht  ein  wenig 
eng  aufeinander.  Da  muBte  sich  doch  etwas  machen  lassen.  Ho- 
len  Sie  bitte  das  LIST-Window  auf  dem  Bildschirm  und  aktivie- 
ren Sie  es.  Bewegen  Sie  nun  den  BASIC-Cursor  hinter  das  An- 
fuhrungszeichen  am  Ende  Ihres  Namens.  Wenn  er  dort  steht, 
driicken  Sie  bitte  <RETURN>  -  schon  ist  eine  freie  Zeile  ent- 
standen.  So  einfach  schafft  man  sich  mehr  Platz. 

Bitte  geben  Sie  an  diese  Stelle  ein: 
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Also  einfach  einen  PRINT-Befehl,  ohne  <RETURN>  oder 
irgendetwas  anderes.  Drucken  Sie  dann  die  Cursor-Taste,  auf 
der  der  Pfeil  nach  unten  zeigt.  Wieder  wurde  aus  dem  ?  ein 
PRINT. 

Wenn  Sie  das  Programm  starten,  werden  Sie  sehen,  daB  zwischen 
Ihrem  Namen  und  dem  Wort  "Auswahl:"  eine  Leerzeile  ausge- 
geben  wird.  Ein  PRINT-Befehl  ohne  einen  Text  oder  eine  Va- 
riable dahinter  erzeugt  also  eine  Leerzeile. 

Es  gibt  auch  eine  Moglichkeit,  die  das  genaue  Gegenteii  bewirkt: 
Bewegen  Sie  den  BASIC-Cursor  im  LIST-Window  hinter  das 
Wort  "Videotitel-Programm".  Schreiben  Sie  jetzt  bitte  hinter  das 
Anfuhrungszeichen  einen  Strichpunkt  (;).  Die  ersten  beiden  Zei- 
len  sehen  dann  so  aus: 

PRINT  "Videotitel-Programm"; 
PRINT  "von  Franz  Maier" 

Starten  Sie  das  Programm  bitte.  Wenn  Sie  auf  die  erste  Zeile 
achten,  werden  Sie  sehen,  daB  nun  der  Programmtitel  und  Ihr 
Name  in  einer  Zeile  stehen.  Ein  Strichpunkt  hinter  einem 
PRINT-Befehl  bewirkt,  daB  die  nfcchste  PRINT-Ausgabe  nahtlos 
an  die  letzte  angeschlossen  wird.  Ein  kleiner  Schonheitsfehler 
bleibt:  Aus  "Programm"  und  "von"  ist  ein  Wort  geworden.  Das  ist 
auch  logisch,  denn  wir  haben  dem  Amiga  nirgends  gesagt,  daB 
er  dazwischen  eine  Leerstelle  drucken  soil.  Ftigen  Sie  bitte  im 
LIST-Window  vor  dem  Anfuhrungszeichen  am  Ende  der  ersten 
Zeile  eine  Leerstelle  ein.  Dazu  rmissen  Sie  den  BASIC-Cursor 
nur  zwischen  das  Mm"  von  "Programm"  und  das  Anfuhrungs- 
zeichen setzen  und  dann  die  Leertaste  drucken.  Was  immer  Sie 
im  LIST-Window  tippen,  wird  automatisch  an  der  Stelle  ein- 
gefiigt,  wo  der  Cursor  steht. 

Auf  dem  Bildschirm  stehen  jetzt  die  Punkte,  die  wir  in  unserem 
Programm  zur  Auswahl  haben.  Als  nachstes  mussen  wir  dem 
Amiga  mitteilen  konnen,  fur  welchen  Punkt  wir  uns  entschieden 
haben.  Dazu  geben  wir  im  LIST-Window  folgende  Zeilen  ein: 
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?  <RETURN> 

?  "Ihre  Wahl:";  <RETURN> 

input  a  <RETURN> 

Das  einzig  Neue  ist  der  INPUT-Befehl.  Lassen  Sie  das  Pro- 
gramm  probehalber  einmal  laufen.  Dabei  wird  Ihnen  auffallen, 
daB  im  BASIC-Window  nun  der  Cursor  hinter  dem  Text  "Ihre 
Wahl:?"  steht.  Ja,  das  stimmt,  aber  wo  kommt  das  Fragezeichen 
her?  Das  Fragezeichen  erscheint  automatisch,  um  anzuzeigen, 
daB  der  Computer  auf  eine  Eingabe  wartet.  Das  ist  nSmlich  ge- 
nau  die  Funktion  von  INPUT,  der  Benutzer  wird  nach  etwas 
gefragt.  Geben  Sie  bitte  eine  Zahl  ein,  gefolgt  von  <RETURN>. 
Sollte  das  nicht  funktionieren  und  stattdessen  der  Bildschirm 
kurz  aufblitzen,  beachten  Sie:  Wenn  Eingaben  erfolgen  sollen, 
muB  das  BASIC-Window  aktiv  sein. 

Danach  ist  das  Programm  fertig,  es  erscheint  ein  OK  im  BASIC- 
Window. 

INPUT  ist  ein  Befehl,  der  es  mSglich  macht,  innerhalb  eines 
Programmes  Daten  einzugeben,  also  mit  dem  Amiga  zu  sprechen. 
Aber  was  macht  der  Computer  dann  mit  diesen  Daten?  Geben 
Sie  bitte  im  BASIC-Window  (nicht  im  LIST-Window!!!)  ein: 

?  a  <RETURN> 

Als  Antwort  werden  Sie  Ihre  Zahl  erhalten.  Der  Befehl  INPUT  a 
weist  also  der  Variablen  'a'  den  Wert  zu,  den  Sie  eingegeben  ha- 
ben.  (Deshalb  iibrigens  auch  "input",  engl.:  eingeben). 

Wenn  Sie  ein  freundlicher  Computer-Benutzer  sind,  haben  Sie 
naturlich  eine  Zahl  zwischen  1  und  5  eingetippt.  Es  soil  aber 
auch  weniger  freundliche  Leute  geben,  die  Computerprogramme 
gern  dazu  bringen  wollen,  "abzustiirzen"  oder  "sich  aufzuhangen". 
Nein,  nein,  Sie  haben  nicht  "Die  Schreckensinsel  des  Dr.  Fran- 
kenstein" gekauft.  Dies  ist  ein  ganz  normales  AmigaBASIC- 
Buch.  Und  "absturzen"  oder  "sich  aufhangen"  sind  Ausdrucke, 
die  sich  Programmierer  einfallen  lieBen,  um  bestimmte  prekare 
Zust&nde  zu  beschreiben,  in  die  Computer  nun  mal  kommen 
kflnnen.  Absturz  heiBt  zum  Beispiel,  daB  ein  Computer  inner- 
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halb  einer  Rechenoperation  vollig  durcheinander  kommt.  Der 
Amiga  sendet  dann  beispielsweise  als  letztes  Lebenszeichen  einen 
dicken  roten  Kasten  auf  den  Bildschirm,  in  dem  steht  "Guru 
Meditation"  und  dahinter  ein  Gewirr  von  Zahlen  und  Zeichen. 
Dieser  Text  hat  dem  Systemabsturz  auch  den  Spitznamen  "Guru" 
gebracht.  Wenn  also  ein  Amiga  in  der  Nahe  ist,  und  Sie  horen 
einen  Spruch  wie  "Jetzt  macht  er  den  Guru!",  dann  suchen  Sie 
gar  nicht  erst  nach  einem  der  freundlichen,  r6tlich  gekleideten 
Inder,  die  in  einem  Rolls  Royce  vorbeifahren.  Sie  mussen  auch 
keine  Angst  haben,  daB  jeder,  der  Ihr  Programm  bedient,  so 
einen  Fehler  produzieren  kann,  indem  er  statt  einer  Zahl  zwi- 
schen  1  und  5  -  wie  erwartet  -  zum  Beispiel  6  eingibt.  Das  Er- 
gebnis  ware  zwar  eine  Fehlermeldung,  aber  die  ist  bei  weitem 
nicht  so  schlimm  wie  ein  Guru.  Trotzdem  ist  es  bei  der 
Programmerstellung  immer  ratsam,  alle  Fehler  miteinzuplanen, 
die  ein  Benutzer  -  absichtlich  oder  unabsichtlich  -  machen 
konnte. 

Die  Aufgabe  ist  also,  abzufragen,  ob  eine  Zahl  kleiner  als  1  oder 
grGBer  als  5  eingegeben  wurde.  Wenn  ja,  soil  das  Programm  halt 
noch  mal  anfangen.  Auf  BASIC  heiBt  das  so: 

if  a<1  or  a>5  then  run  <RETURN> 

Hangen  Sie  diese  Zeile  bitte  im  LIST-Window  an  Ihr  Programm 
an. 

Mit  dem  BASIC-Befehl  IF.. .THEN  konnen  Sie  das  Programm 
Jintscheidungen  treffen  lassen,  oder  wie  der  Fachmann  sagt: 
verzweigen  lassen.  Zwischen  IF  und  THEN  steht  dabei  eine  be- 
liebige  Bedingung.  Hinter  THEN  steht,  was  der  Computer  tun 
soil,  wenn  die  Bedingung  zutrifft.  Also: 

IF  (Bedingung  trifft  zu)  THEN  (tu  irgendwas) 

In  unserem  Beispiel  heiBt  die  Bedingung  (a<l  or  a>5).  Das  OR 
bewirkt,  daB  die  Bedingung  vom  Computer  dann  als  zutreffend 
betrachtet  wird,  wenn  entweder  a<l  oder  a>5  ist.  Beides  kann  ja 
nie  auf  einmal  eintreten,  denn  eine  Zahl  kann  nicht  kleiner  als  1 
und  gleichzeitig  groBer  als  5  sein.  Das  RUN  hinter  THEN  laBt 
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das  Programm  neu  anfangen,  wenn  eine  falsche  Zahl  eingegeben 
wurde.  Diesen  Befehl  kennen  Sie  ja  schon  aus  dem  BASIC-Win- 
dow.  Neu  ist  bloB,  dafl  man  ihn  auch  innerhalb  eines  Program- 
mes anwenden  kann.  Ab  jetzt  konnen  Sie  nach  Herzenslust 
Zahlen  eingeben.  Starten  Sie  das  Programm  und  geben  Sie 
zunachst  Zahlen  wie  0,  6  oder  10  ein.  Der  Amiga  wird  Sie  so- 
lange  fragen,  bis  Sie  eine  der  erlaubten  Zahlen  eingeben.  Auch 
wenn  Sie  ihm  Tausende  bieten  -  Computer  sind  unbestechlich, 
im  Gegensatz  zu  manchen  Programmierern.  Er  ist  erst  dann  zu- 
frieden,  wenn  die  Zahl  stimmt. 

Nur  so  am  Rande:  Mit  der  Handvoll  an  BASIC-Befehlen,  die  Sie 
bis  jetzt  gelernt  haben,  kdnnten  Sie  zum  Beispiel  schon  ein  Pro- 
gramm schreiben,  mit  dem  Kinder  Rechnen  uben  kSnnten.  Sie 
muBten  nur  die  Aufgaben  stellen,  den  Amiga  das  Ergebnis  vor- 
her  ausrechnen  und  in  einer  Variablen  ablegen  lassen.  Dann 
wartet  der  Amiga  auf  das  Ergbnis,  das  die  Kinder  eintippen  und 
vergleicht  es  mit  seinem  Ergebnis.  Wenn  das  Ergebnis  richtig  ist, 
schreibt  Amiga  "STIMMT"  auf  den  Bildschirm,  wenn  nicht  "Lei- 
der  Falsch."  und  startet  das  Programm  neu.  Das  alles  geht  mit 
ein  paar  PRINT  und  IF.. .THEN  Befehlen.  Jetzt  aber  zuruck  zu 
unserem  Videotitel-Programm. 

Vielleicht  wollen  Sie  ja  einen  etwas  verschlafenen  Benutzer,  der 
eine  falsche  Zahl  eingibt,  drastischer  auf  seinen  Fehler  auf- 
merksam  machen.  Da  bietet  sich  zum  Beispiel  der  hiibsche 
Piepser  an,  mit  dem  der  Amiga  sonst  auch  auf  Fehler  hinweist. 
Fugen  Sie  hinter  dem  THEN  folgendes  ein: 

beep  : 

Das  sieht  dann  im  Listing  so  aus: 

IF  a<1  OR  a>5  THEN  BEEP  :  RUN 

Jetzt  piept's  also,  wenn  ein  Eingabefehler  gemacht  wurde.  Und 
ein  kurzes  Bildschirmblitzen  bekommen  Sie  auch  noch  gratis:  Es 
gehort  mit  zum  BEEP-Befehl  dazu.  Sollten  Sie  es  vergessen  ha- 
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ben:  Der  Doppelpunkt  hinter  dem  BEEP  dient  dazu,  verschie- 
dene  Befehle,  die  in  einer  Zeile  vorkommen,  voneinander  zu 
trennen. 

Bisher  funktioniert  ja  alles  ganz  gut.  Aber  ist  es  in  groBen  Pro- 
grammen  immer  sinnvoll,  das  Programm  beim  kleinsten  Fehler 
des  Benutzers  neu  beginnen  zu  lassen?  Stellen  Sie  sich  mal  ein 
Textverarbeitungsprogramm  vor,  das,  wenn  sich  der  Benutzer 
einmal  vertippt  und  auf  zwei  Tasten  gleichzeitig  driickt,  sofort 
den  gesamten  Text  15scht  und  von  vorne  anfangt.  Der  zustandige 
Programmierer  sollte  dann  wohl  sein  Haus  mit  Stacheldraht  um- 
zaunen  und  einen  Wassergraben  drumherum  ausheben... 

Es  gibt  jedoch  Moglichkeiten,  das  Programm  an  andere  Punkte 
als  den  Programmanfang  zu  schicken.  Beispielsweise  mit  dem 
Befehl  GOTO.  Mit  GOTO  kann  man  das  Programm  an  jede  be- 
iiebige  Stelle  springen  lassen.  (Dieses  "springen  lassen"  ist  auch 
so  ein  beliebtes  Bild  bei  Programmierern  -  ganz  wortlich  darf 
man  sich  das  nicht  vorstellen.)  Aber  vorher  brauchen  wir  eine 
Methode,  dem  GOTO-Befehl  klarzumachen,  wo  er  eigentlich  hin 
soil.  Bei  den  BASICs  von  manchen  anderen  Computern  dienen 
dazu  wieder  die  Zeilennummern.  Aber  wir  haben  Ihnen  ja  vor- 
hin  gesagt,  daB  die  beim  Amiga  unn6tig  sind.  Also  muB  es  an 
ihrer  Stelle  noch  irgendetwas  anderes  geben.  Das  Zauberwort 
heiBt  Labels,  auf  Deutsch:  Sprungmarken.  Es  ist  ganz  einfach: 
Die  Programmteile,  die  das  Ziel  von  GOTO-  oder  anderen 
Sprungbefehlen  sind,  bekommen  einen  Namen.  Holen  Sie  bitte 
das  LIST-Window  auf  dem  Bildschirm,  bewegen  Sie  den  Cursor 
direkt  an  den  Anfang  des  INPUT-Befehls,  schaffen  Sie  mit 
<RETURN>  eine  Zeile  Platz  und  geben  Sie  dort  ein: 

abfrage: 

Wichtig  ist  der  Doppelpunkt  hinter  dem  Wort.  Er  zeigt  an,  daB 
es  sich  hierbei  um  ein  Label  handelt.  Wir  hatten  den  Programm- 
teil  natiirlich  auch  "Hallo:",  "Trallalla:",  "Hannes-KIeines-Nacht- 
programm:"  oder  "Programmanfang:"  nennen  kdnnen.  Alle  Wor- 
ter,  die  keine  BASIC-Befehle  sind,  sind  erlaubt.  Es  ist  aber 
sinnvoll,  Programmteile  immer  nach  ihrer  Funktion  zu  benen- 
nen,  damit  man  sich  auch  hinterher  noch  auskennt. 


70 Ami gaB ASIC 

Aus  dem  RUN-Befehl  in  der  letzten  Zeile  machen  wir  jetzt  ein 

goto  abfrage 

Das  geht  ganz  einfach:  BASIC-Cursor  hinter  RUN,  dann  dreimal 
<BACKSPACE>  und  den  neuen  Text  tippen.  Dabei  kann  es  pas- 
sieren,  daB  Sie  iiber  die  rechte  Seite  des  LIST-Windows  hinaus- 
schreiben  miissen.  In  diesem  Fall  wird  der  gesamte  Inhalt  des 
Windows  nach  links  verschoben.  Wenn  Sie  mit  dem  Cursor  zu- 
ruckgehen,  kommt  der  alte  Inhalt  wieder  zum  Vorschein.  Die 
einfachste  Lcjsung  ist,  das  LIST-Window  auf  dem  Bildschirm  zu 
verschieben  und  zu  vergrGBern.  Das  geht  so,  wie  Sie  es  auf  der 
Workbench  auch  von  jedem  anderen  Window  gewohnt  sind. 

Noch  ein  Nachtrag  zum  Thema  Labels:  Es  sind  alle  Buchstaben 
und  Zahlen  erlaubt,  nur  Leerstellen  diirfen  nicht  innerhalb  eines 
Labels  vorkommen.  Satzzeichen  sind  teilweise  miBverstandlich, 
konnen  zu  Fehlern  fiihren  (z.B.  das  Komma  oder  der  Doppel- 
punkt)  und  sollten  deshalb  vermieden  werden.  Labels  diirfen  bis 
zu  40  Zeichen  lang  sein.  Alles,  was  dariiber  hinausgeht,  wird 
vom  Amiga  ignoriert.  Das  gilt  ubrigens  auch  fur  Variablen.  Es 
muB  also  nicht  immer  'a'  sein,  sondern  es  kann  auch  'amiga' 
sein.  Eine  Anmerkung  zur  Schreibweise  in  unserem  Buch:  Die 
Namen  von  Variablen  drucken  wir  in  einfachen  Anfiihrungs- 
strichen,  (z.B:  ...die  Variable  'Anfangswert'...),  um  sie  eindeutig 
zu  kennzeichnen.  Diese  Anfuhrungsstriche  diirfen  Sie  bei  den 
Variablennamen  nicht  miteingeben. 

GroB-  und  Kleinschreibung  ist  AmigaBASIC  egal:  Hallo,  hallo 
und  hALLO  vertreten  alle  dasselbe  Label  bzw.  dieselbe  Variable. 
Im  LIST-Window  sorgt  AmigaBASIC  jedoch  dafiir,  daB  die 
Schreibweisen  innerhalb  des  Programms  einheitlich  sind.  Machen 
Sie  folgendes  Experiment:  Geben  Sie  in  der  letzten  Zeile 

goto  Abfrage 

ein.  Den  Labelnamen  haben  wir  diesmal  mit  einem  GroBbuch- 
staben  am  Anfang  geschrieben.  Driicken  Sie  nun  <RETURN> 
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und  schauen  Sie  gleichzeitig  das  Label  zwei  Zeilen  dariiber  an 
(hier  ist  "abfrage"  noch  kleingeschrieben.) 

AmigaBASIC  ubernimmt  im  Hinblick  auf  Gro6-/Klein- 
schreibung  die  Schreibweise  des  zuletzt  eingebenen  Namens  fur 
alle  gleichlautenden  Namen  im  Programm.  Aus  "abfrage"  wurde 
auch  oben  "Abfrage". 

Wenn  Sie  wollen,  kdnnen  Sie  jetzt  weitere  Labels  einfugen. 
AuOerdem  ist  es  durch  Einfugen  von  Leerzeilen  mdglich,  Pro- 
grammteile  deutlicher  voneinander  abzugrenzen.  AmigaBASIC 
unterstiitzt  diese  Moglichkeiten  der  Programmstrukturierung  sehr 
stark.  Bei  uns  sieht  das  Programm  jetzt  zum  Beispiel  so  aus: 

Anfang: 

PRINT  "Videotitel -Programm  "; 

PRINT  "von  Franz  Maier" 

PRINT 

Auswahl: 

PRINT  "Auswahl:" 

PRINT  "1  Text  eingeben" 

PRINT  "2  Objects  einlesen" 

PRINT  "3  Obj.Bewegung  festlegen" 

PRINT  "4  Farben  festlegen" 

PRINT  "5  Titel  wiedergeben" 

PRINT 

PRINT  "Ihre  Wahl:"; 

Abfrage: 

INPUT  a 

IF  a<1  OR  a>5  THEN  BEEP  :  GOTO  Abfrage 


Aber  wir  waren  ja  vorhin  bei  den  Fehlern  gewesen,  die  ein  An- 
wender  in  unserem  Programm  machen  kann.  Einen  da  von  haben 
Sie  vielleicht  auch  schon  gemacht,  namlich  einen  Buchstaben 
anstatt  einer  Zahl  eingegeben.  Dann  wird  Ihnen  aufgefallen  sein, 
daB  der  Amiga  die  Meldung  "?Redo  from  Start"  auf  den  Bild- 
schirm  brachte.  Sie  sehen,  Amiga  legt  einen  erstaunlichen  Ein- 
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fallsreichtum  an  den  Tag,  wenn  es  darum  geht,  neue  Fehler- 
meldungen  zu  produzieren.  Was  soil  also  "?Redo  from  Start" 
schon  wieder  heiBen?  Je  nach  Schul-Englisch  kommt  man  auf 
eine  Ubersetzung  wie  "Noch  mal  von  vorne  anfangen."  Das  ist 
auch  gemeint. 

Mit  Variablen  hatten  wir  ja  schon  zu  tun.  Erinnern  Sie  sich  an 
'Hallo'  oder  'a'?  Wir  haben  diesen  Variablen  aber  bisher  immer 
Zahlen  zugewiesen.  Ist  ja  auch  der  Normalfall,  oder  haben  Sie 
wahrend  Ihrer  Schulzeit  jemals  in  der  Mathe-Stunde  Lob  geern- 
tet,  wenn  Sie  sagten:  "Der  Wert  von  y  ist  'Hallo'!"?  Aus  diesem 
Grund  ist  es  nicht  moglich,  einer  Variablen  wie  'a'  oder  'Hallo' 
ein  Wort  oder  einzelne  Buchstaben  zuzuweisen. 

"Ach?!  Was  ist  aber,  wenn  ich  genau  das  tun  will?"  Kein  Pro- 
blem, dafur  gibt  es  einen  eigenen  Variablentyp,  die  sogenannten 
Stringvariablen.  String  ist  englisch  und  heiBt  "Kette",  gemeint  ist 
eine  "Zeichenkette",  also  eine  Kette  aus  einzelnen  Zeichen  und 
Buchstaben.  Stringvariablen  werden  durch  ein  $-Zeichen 
gekennzeichnet.  Der  Variablen  'a$'  oder  'Hallo$'  kann  man  also 
beliebige  Buchstabenkombinationen  zuweisen.  Geschieht  eine 
solche  Zuweisung  innerhalb  eines  Programms,  muB  die  Zeichen- 
kette in  Anfuhrungszeichen  geschrieben  werden.  Wenn  wir  die 
beiden  letzten  Zeilen  des  Programmteils  'Abfrage:'  folgender- 
maBen  andern,  sind  wir  auch  gegen  Buchstaben-Eingaben  ge- 
wappnet: 

input  a$ 

IF  a$<"1H  OR  a$>"5"  THEN  BEEP  :  GOTO  Abfrage 

Sie  fragen  sich  mftglicherweise,  warum  wir  soviel  Zeit  damit 
verbringen,  das  Programm  gegen  Fehleingaben  abzusichern. 
Aber  es  ist  wirklich  besser,  einen  mdglichen  Fehler  zuviel  als 
einen  zuwenig  zu  beriicksichtigen:  Wer  ein  Programm  nicht 
kennt  und  bereits  bei  der  ersten  Eingabe  einen  Error  prSsentiert 
bekommt,  der  wird  sicher  kein  allzugroBes  Vertrauen  mehr  in 
dieses  Programm  haben.  Und  auch  Sie  werden  sich  beim  Arbei- 
ten  argern,  wenn  ein  kleiner  Vertipper  vielleicht  das  ganze  Pro- 
gramm zum  Abbruch  bringt. 
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1.7        "Star  Wars,  Teil  I"  - 

Texteingabe  im  Videotitel-Programm 

Ein  anderer  wichtiger  Punkt,  um  ein  Programm  professionell 
erscheinen  zu  lassen,  ist  die  Optik.  Unsere  Auswahl  sieht  ja 
schon  ganz  gut  aus.  Das  einzige,  was  vielleicht  noch  stort,  ist, 
daB  nach  einer  Fehleingabe  das  Fragezeichen  immer  eine  Zeile 
tiefer  erscheint.  Ein  permanenter  Fehlbediener  hat  es  bereits 
nach  einigen  Eingaben  geschafft,  daB  die  Ubersicht  oben  aus 
dem  Bildschirm  verschwindet,  und  dann  weiB  ja  erst  recht  kei- 
ner,  welche  Eingaben  erlaubt  sind.  Aus  diesem  Grund  wollen 
wir  noch  ein  letztes  Mai  an  unserer  Auswahl-Routine  herum- 
basteln. 

Damit  wir  uns  die  Arbeit  dabei  wieder  so  einfach  wie  moglich 
machen  konnen,  gibt  es  noch  etwas  liber  das  LIST-Window  zu 
lernen:  Bisher  haben  wir  immer  die  Cursor-Tasten  benutzt,  um 
den  Cursor  zu  bewegen.  Es  geht  aber  auch  anders,  namlich  mit 
der  Maus.  Sie  haben  sicher  schon  einmal  beim  Aktivieren  des 
LIST-Windows  gemerkt,  daB  der  BASIC-Cursor  immer  dort  er- 
scheint, wo  Sie  mit  der  Maus  hinklicken.  So  ist  es  moglich,  sich 
innerhalb  des  Programms  schneller  als  mit  den  Cursor-Tasten  zu 
bewegen. 

Falls  Sie  aber  die  Maus  versehentlich  dabei  verschieben  und  die 
rechte  Maustaste  gedriickt  halten,  entdecken  Sie  noch  etwas  vol- 
lig  anderes:  Vom  BASIC-Cursor  bis  zum  aktuellen  Standpunkt 
des  Mauscursors  erscheint  ein  oranger  Balken  oder  ein  ganzes 
Feld,  von  dem  der  dort  stehende  Text  hinterlegt  wird.  Gratula- 
tion,  Sie  haben  soeben  zufallig  eine  weitere  Funktion  des  Bild- 
schirm-Editors  entdeckt.  Jetzt  wollen  wir  es  mal  mit  Absicht 
machen. 

Schreiben  Sie  bitte  irgendwo  im  Programm  einen  beliebigen  Text 
und  fahren  Sie  mit  der  Maus  dorthin.  Positionieren  Sie  den 
BASIC-Cursor  an  den  Anfang  des  Textes,  halten  Sie  die  rechte 
Maustaste  gedriickt  und  bewegen  Sie  die  Maus  nun  vorsichtig 
zum  Ende  dieses  Textes.  Passen  Sie  dabei  auf,  daB  der 
Mauscursor  in  der  richtigen  Zeile  bleibt,  sonst  werden  dariiber- 
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oder  darunterliegende  Zeilen  auch  noch  hervorgehoben.  Wenn 
genau  der  von  Ihnen  geschriebene  Text  hervorgehoben  ist,  lassen 
Sie  die  rechte  Maustaste  bitte  los. 

Geben  Sie  nun  auf  der  Tastatur  irgendeinen  anderen  Text  ein. 
Sie  sehen,  wie  der  alte  Text  verschwindet  und  durch  den  neuen 
ersetzt  wird.  Heben  Sie  nun  bitte  auf  dieselbe  Weise  den  neuen 
Text  hervor  und  driicken  Sie  dann  die  <BACKSPACE>-Taste. 
Der  gesamte  Text  wird  verschwinden.  So  ist  es  mSglich,  ganze 
Teile  eines  BASIC-Programms  zu  loschen.  Sie  sollten  dabei  aber 
verstandlicherweise  vorsichtig  sein.  Geldscht  ist  so  ein  Stuck 
Programm  schnell,  aber  das  Wiederherstellen  ist  sehr  muhsam. 
Uberzeugen  Sie  sich  vor  dem  Loschen  davon,  daB  nur  der  Text 
hervorgehoben  ist,  den  Sie  auch  loschen  wollten.  Wenn  Sie  ver- 
sehentlich  zu  viel  loschen,  ist  bei  dieser  Methode  der  Text  nam- 
lich  nicht  mehr  wiederzubekommen. 

Doch  Loschen  ist  noch  lange  nicht  alles,  was  Sie  mit  dieser 
Funktion  erreichen  kdnnen.  Heben  Sie  bitte  den  gesamten  Ab- 
frage-Teil  mit  der  Maus  hervor.  Lassen  Sie  ihn  hervorgehoben 
und  wfthlen  Sie  das  Pulldown-Menu  "Edit"  an.  Aktivieren  Sie 
nun  bitte  die  Option  "Cut".  Wenn  Sie  nur  ein  Laufwerk  besitzen, 
wird  der  Amiga  Sie  bitten,  die  Extras-Diskette  zu  entnehmen 
und  die  Workbench  einzulegen.  Um  die  Funktionen  des  "Edit"- 
Meniis  ausfiihren  zu  konnen,  braucht  AmigaBASIC  ein  Pro- 
gramm, das  sich  auf  der  Workbench-Diskette  befindet.  (Es  heiflt 
iibrigens  "clipboard.device".)  Wenn  dieses  Programm  einmal  ge- 
laden  ist,  konnen  Sie  die  Extras-Diskette  zuriick  ins  Laufwerk 
schieben,  da  die  Edit-Routinen  nun  im  Speicher  des  Amiga  ste- 
hen.  Der  Amiga  merkt  selbstandig,  welche  Diskette  im  Laufwerk 
liegt.  Darum  brauchen  Sie  sich  gar  nicht  weiter  zu  kiimmern. 

Wenn  die  Cut-Funktion  ausgefiihrt  ist,  sehen  Sie,  dafi...  -  der 
Abfrage-Teil  verschwunden  ist!  Haben  wir  jetzt  so  einen  Auf- 
wand  mit  Diskettenwechseln  und  Pulldown-Funktion  treiben 
miissen,  nur  damit  ein  Teil  unseres  schonen  Programms  ver- 
schwindet? Keine  Sorge,  das  gute  Stuck  ist  noch  da.  Es  befindet 
sich  in  einem  speziellen  Speicherbereich  des  Amiga,  dem  so- 
genannten  Clipboard  (deutsch:  Notizbrett). 
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Wahlen  Sie  nun  -  ohne  die  Position  des  BASIC-Cursors  im 
LIST-Window  zu  ver&ndern  -  "Paste"  aus  dem  "Edit"-Menu. 
Schon  ist  der  Text  wieder  da.  Den  Inhalt  des  Clipboards  konnen 
Sie  an  derselben  oder  jeder  anderen  Stelle  wiedereinsetzen.  Und 
zwar  beliebig  oft.  Wenn  Sie  das  ausprobieren  mtfchten,  kSnnen 
Sie  ja  nochmal  "Paste"  anwahlen.  Schon  sehen  Sie  den  Auswahl- 
Teil  doppelt  -  ohne  eine  Tropfen  Alkohol.  Jetzt  kflnnen  Sie 
einen  der  beiden  Auswahl-Teile  wieder  mit  "Cut"  ausschneiden. 

Die  dritte  Funktion  dieses  Menus,  "Copy",  wirkt  genauso  wie 
"Cut",  nur  daB  der  aktivierte  Teil  nicht  vom  Bildschirm  ver- 
schwindet,  sondern  ins  Clipboard  kopiert  wird.  Das  ist  besonders 
hilfreich,  um  Programm-Teile  zu  vervielfiiltigen. 

Noch  ein  Trick  zum  SchluB:  Um  einzelne  Worter  oder  Aus- 
driicke  zu  aktivieren,  geniigt  es,  den  Mauscursor  an  eine  belie- 
bige  Stelle  des  Wortes  zu  positionieren  und  dann  zweimal  mit 
der  linken  Taste  zu  klicken. 

Bitte  bauen  Sie  mit  diesem  Wissen  das  Programm  so  um  und  er- 
weitern  es  so,  daB  es  folgendermaflen  aussieht: 


Anfang: 

PRINT  "VideotiteL-Programm  "; 

PRINT  "von  Franz  Maier" 

PRINT 

Auswah I : 

PRINT  "Auswahl:" 

PRINT  "1 

Text  eingeben" 

PRINT  "2 

Objects  einlesen" 

PRINT  "3 

Obj.Bewegung  festlegen" 

PRINT  "4 

Farben  festlegen" 

PRINT  "5 

Titel  wiedergeben" 

PRINT 

Abfrage: 

LOCATE  10 

,1 

PRINT  "Ih 

re  Wahl:»; 

INPUT  a$ 
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IF  a$<"1"  OR  a$>"5"  THEN  BEEP  :  GOTO  Abfrage 
IF  a$="1"  THEN  Texteingabe 
PRINT  "Punkt  "a$"  noch  nicht  vorhanden." 
GOTO  Abfrage 

Was  hat  sich  jetzt  geSndert?  Solange  unser  Programm  noch  "im 
Bau"  ist,  soil  darauf  hingewiesen  werden,  wenn  einzelne  Punkte 
noch  nicht  vorhanden  sind.  Den  Texteingabe-Teil  wollen  wir 
gleich  schreiben,  die  anderen  Eingaben  (2  bis  5)  fiihren  zu  der 
Nachricht  "Punkt  "a$"  noch  nicht  vorhanden",  die  auf  dem  Bild- 
schirm  ausgegeben  wird.  Im  String  'a$'  steht  ja  die  gewahlte 
Nummer.  Hier  sehen  Sie  auch,  wie  man  Text  in  Anfiihrungs- 
strichen  und  Texte  Oder  Zahlen  von  Variablen  miteinander  mi- 
schen  kann. 

Ein  neuer  Befehl  ist  auch  noch  dabei:  LOCATE  10,1.  Normaler- 
weise  werden  die  Ausgaben  bei  PRINT  zeilenweise  unterein- 
ander  gedruckt.  Mit  LOCATE  kann  eine  Position  am  Bildschirm 
(in  unserem  Fall  die  10.  Zeile  und  dort  die  1.  Zeichenposition) 
angegeben  werden,  ab  der  die  nachste  Ausgabe  gedruckt  wird. 
So  haben  wir  es  auf  recht  einfache  Weise  erreicht,  daB  der  Text 
"Ihre  Wahl:"  bei  Fehleingaben  immer  wieder  in  dieselbe  Zeile 
gedruckt  wird,  anstatt  nach  einiger  Zeit  das  ganze  Auswahlmenu 
nach  oben  zu  dr&ngen.  Sie  konnen  im  Direktmodus  (also  im 
BASIC-Window)  einige  LOCATE-Befehle  ausprobieren.  Zum 
Beispiel: 

locate  5,20  :  ?  "Hallo" 

Doch  zuriick  zu  unseren  Videotiteln:  Wenn  Sie  das  Programm 
starten  und  andere  Werte  als  1  eingeben,  werden  Sie  sehen,  was 
jeweils  passiert.  Jetzt  sieht  das  ganze  schon  professioneller  aus, 
und  ziemlich  narrensicher  ist  es  auch.  Nur  bei  der  Eingabe  von 
1  gibt  es  noch  eine  Fehlermeldung.  Kunststiick,  denn  das  Label 
'Texteingabe:'  auf  das  wir  das  Programm  mittels  GOTO  springen 
lassen,  existiert  ja  noch  gar  nicht.  Das  ist  ungefahr  so,  als  wur- 
den  Sie  jemanden  zum  Haus  Nummer  15  in  einer  StraBe 
schicken,  in  der  es  nur  die  Hausnummern  1  bis  4  gibt. 


Ob  jekt- Animation 77 


Noch  etwas:  Sollte  das  der  erste  Fehler  sein,  den  Sie  innerhalb 
eines  BASIC-Programms  fabriziert  haben,  beachten  Sie  bitte, 
daB  AmigaBASIC  das  LIST-Window  auf  den  Bildschirm  bringt 
und  die  Zeile,  in  der  der  Fehler  auftrat,  hervorhebt.  Durch 
Klicken  ins  OK-Feld  der  Fehlermeldung  best&tigen  Sie,  daB  Sie 
die  Meldung  gelesen  haben.  Um  diesen  Fehler  zu  umgehen,  gibt 
es  nur  eine  Losung:  Den  fehlenden  Texteingabe-Teil  schreiben. 
H£ngen  Sie  ihn  bitte  im  LIST-Window  an  das  bisherige  Pro- 
gramm  an: 

Texteingabe: 

CLS  :  INPUT  "Uieviele  Zeiten  (1 -15)";Zei Len$ 

IF  Zeilen$=""  THEN  CLS  :  GOTO  Anfang 

Zeilen=VAL(Zeilen$) 

IF  ZeUen<1  OR  ZeiLen>15  THEN  BEEP  :  GOTO  Texteingabe 

DIM  Text$(Zeilen) 

FOR  x=1  TO  ZeiLen 

LINE  INPUT  "Text:";Text$(x) 

NEXT  x  :  CLS  :  GOTO  Anfang 

Da  gibt  es  jetzt  wieder  einiges  an  Neuigkeiten.  Gehen  wir  es  der 
Reihe  nach  durch.  Ein  Hinweis  noch:  Die  folgenden  kurzen  Pro- 
gramme und  Programmzeilen  miissen  Sie  nicht  abtippen  -  sie 
dienen  nur  der  Demonstration  der  einzelnen  Befehle  und  geho- 
ren  nicht  zum  Videotitel-Programm. 


Die  Funktion  VAL: 

Wir  kennen  ja  schon  den  Unterschied  zwischen  Zahienvariablen 
vom  Typ  'a1  und  Stringvariablen  vom  Typ  'a$\  Es  kann  in 
BASIC-Programmen  notwendig  werden,  diese  Variablentypen 
ineinander  umzurechnen.  Um  aus  einer  Stringvariablen  eine 
Zahlenvariable  zu  machen,  gibt  es  die  Funktion  VAL.  Das  sieht 
dann  so  aus: 

Z  =  VAL   <z$> 

Wenn  der  String  'z$'  als  Text  eine  Zahl  beinhaltet  (z.B.  "19"), 
nimmt  V  den  Wert   19  an.  Beginnt  der  String  aber  mit  einem 
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Buchstaben  ("al23"),  wird  das  Ergebnis  0.  Folgen  im  String  einer 
Zahl  Buchstaben,  wird  der  Wert  bis  zu  dieser  Stelle  berechnet. 
Ein  Beispiel:  Die  VAL(M123a")  ergibt  123,  VAL(H123a456")  ergibt 
ebenfalls  123. 


Der  Befehl  DIM: 

Damit  lernen  wir  einen  dritten  Variablentyp  kennen,  die  so- 
genannten  Felder.  Felder  werden  verwendet,  wenn  viele  ver- 
schiedene  Daten  unter  einem  gemeinsamen  Namen  gespeichert 
werden  sollen.  Vorher  muB  BASIC  mitgeteilt  werden,  wieviele 
Elemente  dieses  Feld  haben  wird.  Dazu  dient  der  Befehl  DIM. 

Dazu  ein  Beispiel,  daB  leider  etwas  mathematisch  sein  muB:  Sie 
haben  mit  DIM  t$(10)  ein  Feld  dimensioniert.  Dieses  Feld  kann 
11  verschiedene  Elemente  haben,  namlich  t$(0),  t$(l),  t$(2), 
t$(3),...  usw.  bis  t$(10).  Und  jedes  dieser  Elemente  kann  einen 
String  beinhalten  -  also  eine  eigene  Zeichenkette.  Beachten  Sie 
aber,  daB  das  Feld  't$(z)'  mit  der  "normalen"  Variable  't$'  uber- 
haupt  nichts  zu  tun  hat. 

Felder  k6nnen  auch  mehrdimensional  sein,  z.B.  DIM  a$(2,2). 
Dann  gibt  es  folgende  9  Elemente: 

a$(0,0)  a$(0,l)  a$(0,2) 
a$(l,0)  a$(l,l)  a$(l,2) 
a$(2,0)    a$(2,l)    a$(2,2) 

Und  jedes  davon  beinhaltet  wieder  eine  eigene  Zeichenkette,  die 
man  frei  zuweisen  kann.  Ein  dreidimensionales  Feld  kann  man 
sich  als  wiirfelformiges  Gitter  vorstellen,  an  dessen  Kreuzungs- 
punkten  sich  jeweils  ein  String  befindet.  In  AmigaBASIC  kon- 
nen  Felder  bis  zu  255  Dimensionen  haben.  Dafur  laflt  sich  dann 
aber  beim  besten  Willen  kein  praktisches  Beispiel  mehr  finden. 
Wir  werden  spSter  noch  mehr  mit  Feldern  zu  tun  haben. 
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FOR. ..NEXT: 

Dieser  wichtige  Befehl  dient  dazu,  den  Wert  einer  Variable  von 
einem  Anfangswert  bis  zu  einem  Endwert  hochzuzahlen.  Das 
folgende  Beispiel  druckt  alle  Zahlen  von  1  bis  50: 

for  x=1  to  50 
?  x 
next  x 

Beim  ersten  Durchlauf  ist  V=l,  das  Programm  trifft  auf  den 
NEXT-Befehl,  kehrt  zum  zugehGrigen  FOR  zuruck,  erhdht  V 
urn  1,  beim  zweiten  Durchlauf  ist  V=2  usw.  Ist  der  Endwert  50 
erreicht*  macht  das  Programm  hinter  dem  NEXT-Befehl  weiter. 
Aber  weil  da  nichts  mehr  zum  weitermachen  ist,  h6rt  es  sicher- 
heitshalber  mal  auf. 


LINE  INPUT: 

Bei  einem  normalen  INPUT  a$  gibt  es  einige  EinschrSnkungen, 
so  durfen  z.B.  keine  Anfuhrungszeichen  oder  Kommas  innerhalb 
des  eingegebenen  Texts  vorkommen.  Der  LINE  INPUT-Befehl 
erlaubt  die  Eingabe  einer  beliebigen  Zeichenkette,  ohne  irgend- 
welche  EinschrSnkungen.  Alles,  was  bis  zum  Drucken  der 
<RETURN>-Taste  eingegeben  wurde,  wird  dem  angegebenen 
String  zugewiesen. 

Jetzt  kennen  wir  die  einzelnen  Bestandteile  des  Texteingabe- 
Teils.  Im  Programm  haben  wir  statt  einzelner  Buchstaben  wie  V 
oder  't$'  langere  Variablennamen  verwendet,  die  auf  die  Funk- 
tion  der  Variablen  schlieBen  lassen  (z.B.:  'Text$\  'Zeilen').  Das 
andert  jedoch  nichts  an  den  verschiedenen  Variablentypen  und 
Funktionen,  die  wir  gerade  erk&rt  haben. 

Wie  funktioniert  der  Programmteil  nun  uberhaupt?  Zuerst  fragt 
das  Programm,  wieviele  Zeilen  Text  eingegeben  werden  sollen. 
Eine  Zeile  ist  der  Mindestwert,  15  die  HGchstgrenze.  Wenn  die- 
ser Wert  bekannt  ist,  wird  ein  Stringfeld  namens  Text$(x)'  mit 
der  angegebenen  Anzahl  an  Elementen  dimensioniert.  Mit  so- 
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vielen  LINE  INPUT-Befehlen,  wie  Zeilen  angegeben  wurden, 
werden  dann  die  Texte  in  dem  Stringfeld  Text$(x)'  abgelegt. 
Von  dort  konnen  sie  spater  wieder  abgerufen  werden.  Wenn  alies 
fertig  ist,  loscht  das  Programm  den  Bildschirm  und  kehrt  zur 
Auswahl  zuruck. 

Auf  diese  Weise  konnen  Sie  spater  Texte  eingeben,  die  vor  dem 
sich  bewegenden  Objekt  erscheinen.  Wenn  Sie  damit  einen 
Videotitel  produzieren  wollen,  wurden  Sie  zum  Beispiel  hier  den 
Titel  des  Filmes  eingeben.  Zum  Beispiel  einen  Zweizeiler:  "Star 
Wars"  und  "Teil  I". 


1.8        Safety  first  -  Abspeichern 

Mittlerweile  ist  unser  Videotitel-Programm  doch  recht  betracht- 
lich  angewachsen.  Doch  noch  ist  es  sehr  verg&nglich.  Wenn 
nSmlich  der  Amiga  ausgeschaltet  wird,  egal  ob  durch  verargerte 
Eltern,  gelangweile  Ehepartner  oder  interessierte  Kinder,  dann 
wird  das  Programm  nicht  mehr  wiederzubekommen  sein.  Es 
empfiehlt  sich  deswegen  dringend,  Programme  schon  wShrend 
ihrer  Entwicklung  ofter  auf  Diskette  abzuspeichern.  Nach  Voll- 
endung  eines  Teils  oder  eines  ganzen  Programms  ist  es  absolut 
notwendig. 

Zu  diesem  Zwecke  gibt  es  im  "Projecf-Pulldown  zwei  Optionen: 
"Save"  und  "Save  As".  Beide  dienen  dazu,  das  Programm,  das 
gerade  im  Speicher  steht,  auf  Diskette  zu  sichern.  Worin  unter- 
scheiden  sie  sich  dann?  Wahlen  Sie  bitte  "Save  As"  aus.  Auf 
Deutsch  also  "Speichere  als...".  Sollten  Sie  nur  ein  Laufwerk  be- 
sitzen,  und  eine  andere  Diskette  als  die  "ExtrasD"  eingelegt  ha- 
ben,  wird  Sie  der  Amiga  zunachst  auffordern,  die  Diskette  zu 
wechseln.  Danach  erscheint  ein  Kastchen  im  linken  oberen  Bild- 
schirmeck,  in  dem  steht:  "Save  program  as:".  Darunter  befindet 
sich  ein  weiteres,  leeres  Kastchen.  Bewegen  Sie  den  Mauscursor 
bitte  in  dieses  Feld  und  klicken  Sie  einmal.  Damit  haben  Sie  das 
Kastchen  aktiviert,  ein  Text-Cursor  erscheint. 
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Programme,  die  auf  einer  Diskette  gespeichert  werden  sollen, 
brauchen  einen  Namen,  damit  sie  der  Amiga  spater  auch  wie- 
derfinden  kann.  Unser  Programm  konnten  wir  -sinnvollerweise 
"Videotitel"  nennen.  Tippen  Sie  diesen  Namen  in  das  Kastchen. 
SoIIten  Sie  sich  dabei  vertippen,  haben  Sie  diesmal  gleich  zwei 
Tasten,  mit  denen  Sie  ldschen  k5nnen:  Die  Taste 
<BACKSPACE>  loscht  von  der  Cursorposition  nach  links.  Die 
Taste  <DEL>  16scht  nach  rechts.  Das  werden  Sie  zwar  bei  so 
kurzen  Eingaben  wie  Programmnamen  nicht  unbedingt  brau- 
chen, aber  dieses  Prinzip  ist  bei  Korrekturen  langerer  Eingaben 
sehr  hilfreich.  Wenn  Sie  den  Namen  eingetippt  haben,  klicken 
Sie  bitte  einmal  ins  Kastchen  "OK".  Das  Kastchen  verschwindet 
vom  Bildschirm.  Danach  beginnt  der  Amiga,  das  Programm  auf 
die  Diskette  zu  schreiben. 

Der  Unterschied  beim  Punkt  "Save"  ist  schnell  erklart:  Wenn  der 
Name  des  Programms  einmal  angegeben  wurde,  geniigt  es,  die 
"Save"-Option  zu  wahlen.  Dann  wird  das  Programm  automatisch 
unter  demselben  Namen  abgespeichert.  Nur  wenn  sich  der  Name 
andern  soil,  brauchen  Sie  wieder  "Save  As".  Beim  Abspeichern 
unter  einem  neuen  Namen  wird  das  alte  Programm  nicht  ge- 
loscht. 

Wie  so  oft  beim  Amiga,  gibt  es  noch  eine  Alternative  zum  Pull- 
down: Der  Befehl  SAVE  kann  auch  direkt  im  BASIC-Window 
eingegeben  werden.  Dabei  bewirkt 

save  <RETURN> 

dasselbe,  wie  die  gleichnamige  Pulldown-Option; 

save  "Name"  <RETURN> 

entspricht  der  Option  "Save  As".  Der  Name  des  Programms  muB 
dabei  in  Anfiihrungszeichen  angegeben  werden. 

Jetzt  steht  unser  Programm  auf  Diskette.  Wenn  wir  den  Amiga 
jetzt  ausschalten  wurden,  ktfnnten  wir  das  Programm  spater  wie- 
der von  der  Diskette  einlesen.  Aber  wer  will  schon  jetzt,  wenn's 
gerade  spannend  wird,  ausschalten? 
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1.9        Alles  neu  macht  das  NEW  -  L6schen  von 
BASIC-Programmen 

Nachdem  unser  Programm  jetzt  sicher  auf  der  Diskette  liegt, 
konnen  wir  es  im  Speicher  des  Amiga  erst  mal  loschen.  Der  Be- 
fehl,  der  BASIC-Programme  16scht,  heiBt  NEW.  Sie  konnen  ihn 
wieder  direkt  im  BASIC-Window  eingeben  oder  die  gleich- 
namige  Option  im  "Projecf-Pulldown  wahlen.  AmigaBASIC 
loscht  daraufhin  beide  Windows  und  bringt  den  Text-Cursor  in 
das  Window,  das  zuletzt  aktiv  war.  Das  Programm  ist  damit 
vollstandig  geloscht,  es  befindet  sich  nicht  mehr  im  internen 
Speicher  des  Amiga.  (Als  "internen"  Speicher  bezeichnet  man  die 
eingebauten  Speicherbausteine.  "Externe"  Speicher  sind  Dis- 
kettes Festplatten  etc.) 

AmigaBASIC  ist  bereit  fiir  neue  Eingaben.  Sicher  denken  Sie 
jetzt:  "Und  was  ist,  wenn  der  Spanik  und  der  Rugheimer  mal 
vergessen,  mir  zu  sagen,  dafl  ich  das  Programm  abspeichern  soil, 
und  dann  gebe  ich  NEW  ein..." 

Ja,  eigentlich  ware  das  Programm  dann  unwiederbringlich  ver- 
loren.  Aber  Sie  konnen  es  ja  schon  heraushdren  an  unserem  "ei- 
gentlich" und  dem  "ware":  Auch  hier  hat  AmigaBASIC  vor- 
gesorgt.  Lassen  Sie  uns  einmal  ein  ganz  kurzes  BASIC-Programm 
im  LIST- Window  schreiben.  Zum  Beispiel: 

FOR  x=1  to  100 
PRINT  x 
NEXT  x 

Nach  den  Erkiarungen  aus  dem  letzten  Kapitel  konnen  Sie  schon 
selbst  erkennen,  was  dieses  Programm  tut.  Es  schreibt  alle  Zah- 
len  von  1  bis  100  auf  den  Bildschirm.  Das  ist  zwar  nicht  gerade 
atemberaubend,  soil  aber  zur  Demonstration  geniigen.  Wenn  Sie 
Lust  haben,  schauen  Sie  sich's  vorher  noch  an.  Jetzt  versuchen 
Sie  bitte,  das  Programm  zu  loschen:  Entweder  mit  NEW  im 
BASIC-Window  oder  im  "Projecf-Pulldown.  Was  hatten  Sie  er- 
wartet?  DaB  das  Programm  einfach  so  verschwindet? 
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Nein,  nein,  der  Amiga  erlaubt  uns  nicht  einfach,  mit  offenen 
Augen  ins  Ungluck  zu  rennen.  Statt  den  Speicher  zu  leeren,  laBt 
der  Amiga  ein  Kastchen  auf  dem  Bildschirm  erscheinen,  in  dem 
es  heiBt:  "Current  program  is  not  saved.  Do  you  want  to  save  it 
before  proceeding?"  Also  auf  deutsch:  "Das  aktuelle  Programm 
wurde  nicht  gespeichert.  Wollen  Sie  es  speichern,  bevor  Sie 
weitermachen?" 

Dann  gibt  es  drei  verschiedene  Kastchen,  in  die  Sie  klicken 
kdnnen:  YES  bedeutet:  "Ja,  ich  mdchte  das  Programm  speichern." 
In  diesem  Fall  erscheint  das  bekannte  Kastchen,  das  uns  fragt, 
wie  das  Programm  heiBen  soil.  NO  bedeutet:  "Nein,  das  Pro- 
gramm taugt  eh'  nichts.  Ich  will  es  nicht  speichern."  Erst  jetzt 
wird  die  NEW-Funktion  wirklich  ausgefiihrt.  CANCEL  bedeu- 
tet: "Eigentlich  wollte  ich  das  Programm  iiberhaupt  nicht  \6- 
schen,  ich  mftchte  lieber  daran  weiterarbeiten." 

Das  funktioniert  aber  nicht  nur  so,  wenn  wir  ein  v51Iig  neues 
Programm  eingegeben  haben,  sondern  auch,  wenn  man  an  einem 
alten  Programm  etwas  verandert  hat.  AmigaBASIC  merkt,  daB 
sich  was  getan  hat.  Und  wenn  Sie  dann  versuchen,  ein  NEW 
durchzufuhren,  stellt  es  Ihnen  erstmal  wieder  die  Gewissenfrage, 
wie  oben  beschrieben.  Sie  sehen:  Der  Amiga  hilft  uns  wirklich, 
wo  er  nur  kann.  Unser  kleines  Demo-Programm  konnen  Sie  jetzt 
iibrigens  wirklich  loschen,  wir  brauchen  es  nicht  mehr. 

Die  Methode  NEW  ist  aber  nicht  die  einzige  Art,  ein  aktuelle 
BASIC-Programm  in  die  ewigen  Jagdgninde  zu  schicken.  Es  ist 
auch  moglich,  ganz  aus  AmigaBASIC  auszusteigen  und  danach 
etwas  vollig  anderes  zu  tun.  Auch  dafiir  gibt  es  wieder  verschie- 
dene Mdglichkeiten:  Entweder  Sie  geben  im  Direktmodus  den 
Befehl  SYSTEM  ein.  Dieser  Befehl  beendet  AmigaBASIC  und 
bringt  Sie  zuriick  auf  die  Workbench.  Oder  Sie  wahlen  die  Op- 
tion "Quit"  im  "Project"-Pulldown.  Damit  erreichen  Sie  dasselbe. 
Sie  kdnnen  schlieBlich,  das  ist  die  dritte  Methode,  das  BASIC- 
Window  und  das  LIST-Window  jeweils  mit  dem  SchlieBsymbol 
ausklicken:  Auch  dann  verlassen  Sie  BASIC  und  kehren  auf  die 
Workbench-Oberfiache  zuriick.  In  alien  Fallen  wiirde  Sie 
AmigaBASIC  ubrigens  wieder  daran  erinnern,  wenn  Sie  Ihr  Pro- 
gramm noch  nicht  abgespeichert  hatten. 
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Wie  Sie  es  tun,  bleibt  Ihnen  uberlassen,  aber  bitte  verlassen  Sie 
jetzt  AmigaBASIC  fur  die  Dauer  eines  Zwischenspiels. 


Zwischenspiel  2:  Jetzt  wird  abger&umt  -  Anlegen  einer 
Programm-Schublade 

Und  wieder  einmal  ist  die  Zeit  reif  ftir  ein  Zwischenspiel.  In 
diesem  hier  wollen  wir  eine  Schublade  fur  unsere  BASIC-Pro- 
gramme  anlegen  -  und  das  hat  naturlich  nicht  soviel  mit  Amiga- 
Grafik  zu  tun.  Trotzdem  ist  es  zum  Weiterarbeiten  notwendig. 
Jetzt  aber  von  der  Theorie  zur  Praxis.  Das  zweite  Zwischenspiel 
kann  beginnen. 

Auf  der  Workbench  wird  jetzt  im  Vergleich  zu  dem  gesch&ftigen 
Treiben  auf  dem  BASIC-Bildschirm  ziemliche  Leere  herrschen. 
Bestenfalls  ist  das  Window  der  Extras-Diskette  noch  zu  sehen. 
Sollte  dies  der  Fall  sein,  schlieBen  Sie  bitte  auch  dieses  Window 
durch  Klicken  in  das  SchlieBsymbol.  Bitte  offnen  Sie  dann  das 
Extras-Window  wieder. 

"Window  zu,  Window  auf...  -  Was  denn  jetzt?"  Wenn  Sie  das 
Gefiihl  haben,  wir  wissen  nicht  so  recht,  was  wir  wollen:  Eine 
der  Eigenheiten  von  Workbench  ist,  dafi  neue  Icons  erst  dar- 
gestellt  werden,  wenn  ein  Window  neu  geoffnet  wird.  Beim 
zweiten  Offnen  werden  Sie  jetzt  acht  Icons  sehen:  Die  sechs,  die 
wir  schon  kennen  (Tools,  FD1.2,  Hinweise,  AmigaBASIC, 
Trashcan  und  BasicDemos)  sowie  zwei  weitere:  Zum  einen  das 
Ballprogramm  aus  unserer  Vorspeise  und  zum  anderen  ein  Icon, 
das  den  Namen  trSgt,  den  Sie  dem  Videotitel-Programm  gegeben 
haben.  Um  diese  Icons  vollstandig  zu  sehen,  mussen  Sie  das  Ex- 
tras-Window vielleicht  etwas  vergrGBern.  Sie  sehen,  die  Icons 
sehen  aus  wie  ein  Blatt  Papier  aus  einem  Computerdrucker 
(deutlich  zu  erkennen  an  der  "Lochung"  am  Rand  des  Papiers). 
Und  die  orangen  Symbole  darauf  haben  groBe  Ahnlichkeit  mit 
denen  auf  dem  AmigaBASIC-Icon.  So  sehen  Icons  von  BASIC- 
Programmen  aus. 
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Falls  Sie  schon  mal  aus  Interesse  die  Schublade  mit  dem  Namen 
"BasicDemos"  angeklickt  haben,  werden  Sie  dort  bereits  viele 
dieser  Icons  gesehen  haben.  Um  die  "BasicDemos"-Schublade 
werden  wir  uns  im  nachsten  Kapitel  etwas  genauer  kiimmern. 
Dort  sind  eine  Reihe  sehr  interessanter  Beispielprogramme  zu 
finden. 

Wie  Sie  wissen,  dient  eine  Schublade  auf  der  Workbench  dazu, 
Dinge  aufzunehmen  und  so  fur  ein  gewisses  Mafi  an  Ordnung  zu 
sorgen.  Von  Ordnung  kann  man  bei  uns  aber  nicht  gerade 
sprechen.  Immerhin  liegen  da  einfach  zwei  einzelne  Programme 
auf  der  sonst  so  aufgeraumten  Benutzeroberflache  herum...  Wir 
wollen  uns  deshalb  eine  eigene  Schublade  anlegen  -  fur  die  Pro- 
gramme, die  im  Verlauf  dieses  Buches  noch  entstehen  werden. 

Achtung:  Wir  gehen  davon  aus,  da/3  Sie  mit  einer  Kopie 
Ihrer  Extras-Diskette  arbeiten.  Auf  die  Origi- 
nal-Extras-Diskette sollten  Sie  keine  eigenen 
Programme  schreiben.  Wie  man  Disketten  ko- 
piert,  steht  im  Amiga- Anwender-Handbuch, 
Kapitel  3.7.  Um  auch  versehentlichen  Schreib- 
operationen  vorzubeugen,  sollten  Sie  auf  den 
Original-Disketten,  die  Sie  mit  Ihrem  Amiga 
erhalten  haben,  den  Schreibschutz-Schieber  auf 
"Schreibschutz"  stellen.  Sie  sehen  in  der  rechten 
unteren  Ecke  auf  der  Unterseite  einer  Diskette 
einen  kleinen  Plastik-Schieber.  Dieser  Schieber 
kann  zwei  Stellungen  haben:  Wenn  er  so  steht, 
daB  das  kleine  viereckige  Loch  in  der  Diskette 
geschlossen  ist,  konnen  Sie  auf  dieser  Diskette 
Programme  und  Daten  abspeichern.  Wenn  Sie 
das  Plastik-Stiickchen  so  verschieben,  daB  das 
kleine  Loch  frei  wird,  ist  die  Diskette  schreib- 
geschutzt. 

Offnen  Sie  jetzt  bitte  die  Workbench.  Besitzer  eines  einzigen 
Laufwerks  miissen  dazu  die  Extras-Diskette  entnehmen  und  die 
Workbench  einlegen.  Lassen  Sie  das  Extras-Window  aber  bitte 
unbedingt  of  fen!  Sie  werden  im  Workbench- Window  eine 
Schublade  namens  "Empty"  entdecken.  Diese  Leerschublade   ist 
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extra  dazu  gedacht,  von  ihr  Kopien  zu  machen.  Aktivieren  Sie 
also  bitte  die  Schublade  "Empty".  Wahlen  Sie  dann  aus  dem  Pull- 
down "Workbench"  die  Option  "Duplicate".  Damit  duplizieren  Sie 
die  Schublade.  Nach  wenigen  Augenblicken  wird  im  Work- 
bench-Window eine  neue  Schublade  namens  "copy  of  Empty" 
entstehen.  Verschieben  Sie  bitte  die  Windows  so,  daB  beide  (Ex- 
tras und  Workbench)  vollstandig  auf  dem  Bildschirm  zu  sehen 
sind. 

Klicken  Sie  dann  auf  die  neue  Schublade  und  halten  Sie  die 
linke  Maustaste  gedruckt.  Sie  sehen,  daB  aus  dem  Mauscursor 
eine  Kopie  des  Schubladen-Icons  geworden  ist.  Sie  namlich  ge- 
rade  dabei,  ein  Objekt  zu  bewegen.  Fahren  Sie  mit  diesem  Sym- 
bol ins  Extras-Window  und  lassen  Sie  Ios.  Nun  wird  die 
Schublade  auf  die  Extras-Diskette  kopiert.  Das  macht  Amiga 
automatisch,  und  Sie  miissen  dabei  eigentlich  nichts  mehr  tun. 
Nur  wer  kein  Zweitlaufwerk  besitzt,  muB  dazu  insgesamt  drei- 
mal  zwischen  den  Disketten  "ExtrasD"  und  "Workbench"  wech- 
seln.  Der  Amiga  sagt  Ihnen  immer  genau,  welche  Diskette  er 
gerade  haben  will.  Denken  Sie  dabei  aber  bitte  unbedingt  daran', 
zu  warten,  bis  die  rote  Lampe  am  Laufwerk  erloschen  ist,  auch 
wenn  auf  dem  Bildschirm  schon  die  Nachricht  steht,  daB  Sie  die 
andere  Diskette  einlegen  sollen. 

Alles  fertig?  Prima,  dann  schlieBen  Sie  bitte  das  Workbench- 
Window.  Aktivieren  Sie  die  neue  Schublade  und  wahlen  Sie  die 
Option  "Rename"  aus  dem  "Workbench"-Pulldown.  In  der  Mitte 
des  Bildschirms  erscheint  eine  Zeile  mit  dem  Inhalt  "copy  of 
Empty"  und  einem  Textcursor.  Bevor  Sie  hier  tippen  konnen, 
miissen  Sie  unter  Umstanden  mit  der  Maus  in  diese  Zeile  klik- 
ken.  Loschen  Sie  dann  mit  der  <DEL>-Taste  den  alten  Namen 
und  taufen  Sie  die  Schublade  auf  einen  Namen,  der  Ihnen  sinn- 
voll  erscheint.  (Wie  w£re  es  zum  Beispiel  mit  "Meine  Pro- 
gramme"?) SchlieBen  Sie  die  Eingabe  mit  <RETURN>  ab. 

Schon  haben  wir  eine  eigene  Programmschublade.  Jetzt  konnen 
wir  auch  unser  Videotitel-Icon  und  das  Ballprogramm-Icon 
darin  verschwinden  lassen.  Verschieben  Sie  dazu  zun^chst  eines 
der  Icons  so,  daB  es  fiber  der  Schublade  liegen  wiirde  und  lassen 
Sie  dann  die  Maustaste  los.  Auf  diese  Weise  ist  es  moglich,  Icons 
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in  Schubladen  bzw.  im  Trashcan  oder  in  anderen  Disketten  ab- 
zulegen.  Um  alles  weitere  kummert  sich  der  Amiga  selbstandig. 
Wenn  der  Mauscursor  wieder  seine  gewohnte  Form  annimmt, 
wiederholen  Sie  den  Vorgang  bitte  mit  dem  anderen  Icon. 

Durch  unsere  Arbeiten  haben  wir  allerdings  die  Extras-Diskette 
ein  biBchen  in  Unordnung  gebracht.  R&umen  wir  doch  noch 
schnell  auf,  bevor  wir  zum  nSchsten  Kapitel  gehen.  Dazu  wer- 
den  die  Icons  einfach  so  lange  verschoben,  bis  alles  einiger- 
maBen  ordentlich  nebeneinander  liegt.  Damit  ist  es  allerdings 
noch  nicht  ganz  getan.  Beim  Thema  Ordnunghalten  ist  der 
Amiga  namlich  einer  von  der  eher  vergeBlichen  Sorte.  Man  muB 
ihm  erst  ausdrucklich  klarmachen,  daB  die  gegenw&rtige  Anord- 
nung  endgultig  ist. 

Aktivieren  Sie  dazu  alle  Icons  innerhalb  des  Extras-Windows. 
"Halt,  Halt  -  geht  gar  nicht.  Wenn  ich  ein  Icon  aktiviere,  schalte 
ich  doch  damit  das  andere  wieder  ab."  Stimmt,  aber  es  gibt 
einen  Trick,  um  genau  das  zu  verhindern.  Halten  Sie  dazu  die 
<SHIFT>-Taste  auf  der  Tastatur  gedruckt  und  aktivieren  Sie 
dann  mit  der  Maus  ein  Icon  nach  dem  anderen.  Sie  sehen  nun 
etwas,  was  es  eigentlich  gar  nicht  geben  durfte:  Alle  Icons  blei- 
ben  aktiviert.  Jetzt  miissen  wir  dem  Amiga  bloB  noch  mitteilen, 
daB  er  alle  aktivierten  Icons  in  Zukunft  so  und  nicht  anders  an- 
ordnen  soil,  wenn  er  das  Fenster  offnet.  Das  bewirkt  die  Option 
"Snapshot"  im  "Speciar-Menu.  Mit  diesem  SchnappschuB  foto- 
grafiert  der  Amiga  sozusagen  die  gegenwartige  Anordnung, 
schreibt  sie  auf  die  Diskette  und  merkt  sie  sich  somit  fur  die 
Zukunft.  Unser  Schreibtisch  wird  von  solange  auf  die  festgelegte 
Weise  aufger&umt  bleiben,  bis  wir  einen  neuen  Snapshot  aus- 
fiihren  lassen  oder  neue  Programme  dazukommen. 


1.10      Und  es  bewegt  sich  doch!  -  Bobs  und  Sprites 

Wir  k6nnen  uns  eigentlich  kaum  vorstellen,  daB  Sie  nicht  schon 
einmal  aus  Neugier  in  die  Schublade  "BasicDemos"  geschaut  ha- 
ben. In  dieser  Schublade  finden  Sie  namlich  eine  ganze  Menge 
interessanter  Beispielprogramme,  die  allesamt  in  AmigaBASIC 
geschrieben  sind.  Es  gibt  da  eine  ganze  Menge  zu  sehen  und  zu 
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hdren.  Wenn  Ihre  Experimente  in  dieser  Richtung  bei  einigen 
Programmen  bisher  daran  scheiterten,  daB  Sie  nicht  verstanden, 
wie  sie  funktionieren  bzw.  was  sie  tun,  diirfen  wir  Sie  in  den 
Anhang  verweisen.  Genauer  gesagt,  in  den  Anhang  C,  wo  wir 
die  einzelnen  Programme  der  BasicDemos-Schublade  vorstellen. 

Zunachst  soil  uns  aber  nur  ein  einziges  Programm  interessieren. 
Bitte  6ffnen  Sie  jetzt  die  Schublade  "BasicDemos".  Der  Aufbau 
des  Windows  wird  ein  Stuck  dauern,  weil  sich  hier  eine  groBe 
Anzahl  verschiedener  Programme  tummelt.  Bitte  suchen  Sie  das 
Programm,  das  den  Namen  "ObjEdit"  tragt.  Auch  wenn  Sie  es 
auf  den  ersten  Blick  nicht  finden  -  es  ist  sicher  da  irgendwo 
unter  all  den  anderen.  Sobald  Sie  es  gefunden  haben,  starten  Sie 
es  bitte.  Das  heifit,  klicken  Sie  zweimal  auf  das  Programm,  ge- 
nauso  wie  sie  es  auch  von  AmigaBASIC  Oder  einem  anderen 
Amiga-Programm  gewohnt  sind. 

Das  Laden  wird  einen  Augenblick  dauern.  Das  ist  auch  kein 
Wunder,  denn  der  Amiga  ladt  nicht  nur  das  Programm,  sondern 
auch  AmigaBASIC.  Wenn  Sie  namlich  ein  BASIC-Programm  auf 
der  Workbench  anklicken,  wird  BASIC  gleich  automatisch  mit- 
geladen.  Das  macht  die  ganze  Angelegenheit  sehr  einfach.  Auch 
Leute,  die  absolut  nichts  von  AmigaBASIC  verstehen,  kfinnen  so 
BASIC-Programme  benutzen. 

Mittlerweile  muBte  Ihr  Amiga  auch  soweit  sein: 

1  eingeben,  wenn  Sie  Sprites  erstellen  wollen. 
0  eingeben,  wenn  Sie  BOBs  erstellen  wollen  > 

sollten  Sie  jetzt  auf  dem  Bildschirm  lesen  konnen,  und  dahinter 
sehen  Sie  den  Cursor,  der  Ihnen  Ihre  Wiinsche  von  den  Tasten 
ablesen  mochte.  Ihr  Amiga  fragt  also,  ob  Sie  Sprites  oder  Bobs 
hatten.  Sprites  oder  Bobs? 

Beim  Amiga  gibt  es  Objekte,  die  sich  unabh&ngig  vom  Bild- 
schirm-Hintergrund  bewegen  konnen.  Mit  einem  solchen  Objekt 
haben  Sie  iibrigens  schon  die  ganze  Zeit  zu  tun,  ohne  es  richtig 
zu  wissen:  Dem  Mauscursor  n&mlich.  Der  Mauscursor  kann  sich 
ja  immer  auf  dem   Bildschirm   bewegen,   egal,   ob   da   nun   ein 
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Workbench-Fenster,  ein  Fenster  von  AmigaBASIC  Oder  irgend- 
etwas  anderes  im  Hintergrund  liegt.  Objekte,  die  sich  unabhan- 
gig  vom  Hintergrund  bewegen  kflnnen,  sind  eine  wichtige  Vor- 
aussetzung  fur  Computer-Animation. 

Was  heiBt  eigentlich  "unabh&ngig  vom  Hintergrund"?  Nun,  bei 
friiheren  Computern  gab  es  solche  beweglichen  Objekte  nicht. 
Wenn  auf  dem  Bildschirm  eine  Bewegung  dargestellt  werden 
sollte,  muBte  eine  kleine  Grafik  an  einer  bestimmten  Stelle  ge- 
zeichnet  werden,  gelflscht  werden,  an  einer  Ieicht  versetzten 
Stelle  neu  gezeichnet  werden,  wieder  geldscht  werden  und  so 
weiter.  Durch  diesen  Trick  entstand  dann  wie  bei  einem  Zei- 
chentrickfilm  die  Illusion  einer  Bewegung. 

Dieses  Prinzip  hat  aber  einen  entscheidenden  Nachteil:  Vom 
Zeichnen  und  Loschen  wird  auch  der  Hintergrund  betroffen, 
also  der  Rest  des  Bildschirms,  der  sich  eigentlich  nicht  veran- 
dern  soil.  An  der  Stelle,  wo  einmal  eine  bewegte  Grafik  war, 
war  plotzlich  nichts  mehr  zu  sehen  -  sozusagen  nur  ein 
schwarzes  Loch.  Stellen  Sie  sich  mal  vor,  uberall,  wo  der 
Mauscursor  vorbeikommt,  verschwindet  der  Bildschirminhalt. 
Bald  wiirde  der  Amiga-Bildschirm  ausssehen  wie  ein  Emmen- 
taler.  Deshalb  gab  es  lange  Zeit  nur  ganz  einfache  Animationen. 

Erinnern  Sie  sich  zum  Beispiel  noch  an  einen  der  Veteranen  des 
Computerspieles?  Er  hie/3  PONG  oder  bei  uns  "Tischtennis".  Al- 
les  was  man  sehen  konnte,  war  ein  weiBes  Viereck,  eine  Mittel- 
linie  und  zwei  schmale  Rechtecke  links  und  rechts,  die  von  den 
Spielern  mit  DrehknSpfen  bewegt  werden  konnten.  Immer  wenn 
das  kleine  Viereck  auf  die  eigene  Seite  kam,  versuchte  man,  es 
zu  treffen  und  so  zuriickzuschlagen,  daB  der  Mitspieler  es  nicht 
mehr  erwischte.  Jaja,  eine  Mark  pro  Spiel  gab  damals  der  eine 
oder  andere  aus.  (Nebenbei  bemerkt:  Es  mussen  viele  "eine  oder 
andere"  gewesen  sein,  denn  der  Erfinder  des  Spieles,  ein  gewis- 
ser  Mister  Nolan  Bushnell  grundete  mit  diese  Markstiicken  ein 
Unternehmen,  das  gerade  wieder  sehr  erfolgreich  ist:  Atari...). 

Aber  zuruck  zum  Thema:  Bei  der  ersten  Version  von  PONG  gab 
es  keinen  Hintergrund,  weil  damals  einfach  kein  billiger  Rech- 
ner  in  der  Lage  war,  schnell  genug  zu  rechnen.  "Warum  schnell? 
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Was  hat  das  damit  zu  tun?"  werden  Sie  jetzt  wissen  wollen.  Nun, 
Schnelligkeit  war  lange  Zeit  das  uberhaupt  einzige  Mittel,  urn 
Animation  mit  Hintergund  moglich  zu  machen.  Die  Program- 
mierer  hatten  sich  namlich  folgende  LOsung  fiir  das  Problem 
ausgedacht:  Objekte  wurden  bei  Bewegungen  nicht  mehr  nur 
einfach  geloscht,  sondern  die  Programme  so  geschrieben,  daB  sie 
sich  den  Hintergrund  merken  und  ihn  nach  Vorbeiziehen  des 
bewegten  Teils  restaurieren.  Darunter  aber  lift  wieder  die  Ge- 
schwindigkeit,  weil  ja  nun  ein  erhebliches  MaB  an  Rechnerei 
nDtig  war.  Computeranimation  war  also  mit  verniinftigem  Auf- 
wand  auf  kleineren  Computern  nicht  zu  realisieren. 

Irgendwann  haben  sich  die  Ingenieure  dann  uberlegt,  daB  es  gar 
nicht  schlecht  ware,  einen  Grafik-Chip  zu  konstruieren,  der  ei- 
nem  diesen  ganzen  Aufwand  abnimmt.  Solche  Chips  wurden 
entwickelt  und  unter  anderem  in  die  damals  gerade  aufkommen- 
den  Homecomputer  eingebaut:  Nun  war  es  mSglich,  kleinere 
Grafikobjekte  vor  den  normalen  Bildschirminhalt  einzublenden 
und  zu  bewegen,  ohne  sich  weiter  um  den  Hintergrund  kum- 
mern  zu  miissen.  Bei  den  verschiedenen  Geraten  gab  es  dafiir 
verschiedene  Namen.  Die  bekanntesten  sind:  Player-Missile- 
Grafiken  (z.B.  bei  den  Atari  400/800-Computern)  oder  Sprites 
(z.B.  beim  Commodore  64). 

Auch  im  Amiga  finden  sich  solche  Grafikobjekte.  Hier  gibt  es 
sogar  gleich  zwei  verschiedene  Arten:  Zum  einen  die  Sprites  (sie 
heiBen  nicht  nur  so  wie  beim  C64,  sie  funktionieren  groBtenteils 
auch  so)  und  zum  anderen  die  Bobs,  die  Blitter-Object-Blocks. 
Was  die  Vor-  und  Nachteile  jeder  Art  sind,  werden  wir  spater 
noch  kUiren. 

Und  damit  sind  wir  wieder  beim  Object  Editor.  Dieses  Hilfs- 
programm  erlaubt  Ihnen  namlich,  bewegte  Grafikobjekte  zu  de- 
finieren,  und  zwar  sowohl  Sprites  als  auch  Bobs.  Alles,  was  das 
Programm  jetzt  von  Ihnen  wissen  m6chte,  ist,  ob  Sie  einen  Bob 
oder  einen  Sprite  zeichnen  mfichten.  Die  Entscheidung  nehmen 
wir  Ihnen  vorerst  noch  ab. 
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1.11      Wir  machen  einen  Star  -  der  Object  Editor 

Wir  wollen  ein  wenig  Bewegung  in  unser  Videotitel-Programm 
bringen.  Dazu  wollen  wir  ein  beliebiges  Objekt,  sagen  wir  einen 
Stern,  iiber  unseren  Titel-Bildschirm  fliegen  lassen.  Zu  diesem 
Zweck  verwenden  wir  einen  Bob.  Geben  Sie  jetzt  bitte  eine  '0' 
ein,  gefolgt  von  <RETURN>.  Es  wird  nun  ein  Bildschirm  er- 
scheinen,  auf  dem  Sie  in  erster  Linie  ein  Art  Window,  eine 
Auswahl  aus  vier  Farben  und  den  Text  "Bob-Gr6Be  X:31  Y:31 
Stiff  sehen. 

Wenn  Sie  Schwierigkeiten  damit  haben,  in  dem  Linien-Gebilde 
in  der  linken  oberen  Ecke  des  Bildschirms  ein  Window  zu  er- 
kennen,  dann  klicken  Sie  bitte  mit  der  Maus  in  das  kleine  Feld, 
wo  bei  einem  "normalen"  Window  das  GroBen-Symbol  ist.  Bewe- 
gen  Sie  nun  die  Maus  bei  gedriickter  Taste.  Sie  sehen,  der  Rah- 
men  des  Windows  wird  orange  und  bewegt  sich.  Wenn  Sie  los- 
lassen,  bleibt  das  Window  in  der  neuen  GrdBe  stehen.  Wahr- 
scheinlich  haben  Sie  es  schon  erraten:  Innerhalb  dieses  Feldes 
kann  unser  Bob  definiert  werden. 

Wenn  Sie  noch  ein  wenig  mit  der  GrGBen-Funktion  experimen- 
tieren,  werden  Sie  feststellen,  daB  es  horizontal  und  vertikal  eine 
Begrenzung  gibt,  iiber  die  das  Window  nicht  hinauskommt.  In 
diesem  Fall  verschwindet  der  orange  Rahmen,  wahrend  Sie 
versuchen,  ihn  zu  vergr6Bern.  Wenn  Sie  sich  auBerdem  in  der 
unteren  Zeile  die  Zahlen  hinter  X:  und  Y:  ansehen,  stellen  Sie 
fest,  daB  sich  diese  Zahlen  nach  dem  Verandern  der  Window- 
Gr5Be  ebenfalls  andern.  Diese  Zahlen  geben  die  momentane 
Ausdehnung  des  Windows  in  horizontaler  (X:)  und  vertikaler 
(Y:)  Richtung  an.  Drucken  Sie  jetzt  bitte  die  Menutaste  der 
Maus.  Am  oberen  Bildschirmrand  sind  drei  Menupunkte  zu  se- 
hen: 

File      Werkzeuge      GrbBe 

Wir  interessieren  uns  zunachst  fiir  das  "WerkzeugeH-Menu.Nach 
Hammer,  Meiflel  und  ahnlichem  werden  Sie  hier  aber  lang  su- 
chen  miissen.  Hier  finden  Sie  stattdessen: 
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Stift 

Dieser  Modus  ist  nach  dem  Starten  des  Object  Editors  aktiv.  Der 
jeweils  aktive  Modus  steht  am  Ende  der  Zeile,  wo  auch  die 
Window-Ausdehnung  zu  sehen  ist.  Im  Stift-Modus  kCnnen  Sie 
freihandzeichnen:  Der  Object  Editor  funktioniert  im  Prinzip  ge- 
nauso  wie  die  Zeichenprogramme  Graphicraft  Oder  DeluxePaint, 
die  es  fur  den  Amiga  gibt.  Nur,  dafi  dieses  BASIC-Programm 
naturlich  wesentlich  einfacher  und  lange  nicht  so  komfortabel 
ist.  Wenn  Sie  im  Stift-Modus  den  Mauscursor  bei  gedriickter 
linker  Taste  in  dem  stilisierten  Window  bewegen,  sehen  Sie,  wie 
Sie  mit  der  Spitze  des  Mauspfeils  einen  Strich  zeichnen.  So  ist  es 
mit  ein  wenig  Ubung  und  Geduld  moglich,  beliebige  Figuren  zu 
erstellen. 


Linie 

Da  es  im  Stift-Modus  sehr  schwer  ist,  gerade  Linien  zu  ziehen, 
gibt  es  diese  Option.  Sie  klicken  mit  der  Maus  den  Anfangs- 
punkt  der  Linie  an,  halten  die  linke  Taste  gedruckt  und  bewe- 
gen den  Mauspfeil  zum  Endpunkt  der  Linie.  Anfangs-  und 
Endpunkt  werden  bereits  wahrend  des  Verschiebens  der  Maus 
durch  eine  bewegliche  orange  Linie  miteinander  verbunden.  So 
sehen  Sie  gleich,  wie  die  Linie  spater  verlaufen  wird. 


Oval 

Mit  Oval  ist  es  m6glich,  Kreise  oder  Ellipsen  zu  zeichnen.  Sie 
geben  dabei  mit  der  Maus  die  Eckpunkte  eines  Rechtecks  an. 
Nach  dem  Loslassen  der  linken  Maustaste  wird  innerhalb  dieses 
Rechtecks  der  gewunschte  Kreis  gezeichnet. 
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Rechteck 

Solange  Sie  die  Maus  bewegen,  sieht  diese  Option  genauso  aus 
wie  die  Oval-Funktion.  Aber  in  diesem  Fall  wird  kein  Kreis, 
sondern  das  dargestellte  Rechteck  gezeichnet. 


Radierer 

Da  man  sich  ja  mal  verzeichnen  kann,  gibt  es  auch  einen  Ra- 
diergummi.  Er  radiert,  solange  die  linke  Maustaste  gedruckt 
wird. 


Fuellen 

Damit  ist  es  m6glich,  umrandete  Flachen  auszumalen.  Zeigen  Sie 
einfach  mit  dem  Mauspfeil  in  die  Flache  und  klicken  Sie  einmal. 
Bei  dieser  Funktion  ist  jedoch  Vorsicht  geboten,  weil  man  sich 
damit  sehr  schnell  unbeabsichtigt  Bilder  zerstoren  kann.  Zum 
einen  miissen  Sie  beachten,  daB  der  Fuellen-Befehl  als  Begren- 
zung  einer  auszumalenden  Flache  nur  Linien  anerkennt,  die  in 
der  gerade  aktiven  Farbe  gezeichnet  sind  (Zur  Farbauswahl 
kommen  wir  gleich).  Zum  anderen  kann,  wenn  die  Begrenzung 
auch  nur  an  einem  einzigen  Bildpunkt  offen  ist,  die  Farbe  "aus- 
Iaufen",  das  heiBt,  sie  malt  auch  Teile  des  Bildes  auBerhalb  der 
angegebenen  Begrenzung  aus.  Sicherheitshalber  sollte  man  also 
beim  Arbeiten  mit  diesem  Befehl  sehr  hSufig  abspeichern. 

Unterhalb  des  Windows  sehen  Sie  vier  Farbfliichen  (Blau,  WeiB, 
Schwarz  und  Orange).  Wenn  Sie  in  eines  dieser  Kastchen 
klicken,  kftnnen  Sie  die  aktuelle  Zeichenfarbe  andern.  Das  Wort 
"Farbe:"  vor  den  Kastchen  wird  in  der  jeweils  aktuellen  Farbe 
geschrieben.  Wenn  Sie  Blau  als  Zeichenfarbe  wShlen,  verschwin- 
det  "Farbe:"  natiirlich,  denn  blaue  Schrift  auf  blauem  Grund  ist 
nicht  gerade  gut  lesbar.  Wahlen  Sie  zunSchst  WeiB  als  Zeichen- 
farbe. 

Falls  Sie  unseren  kleinen  Durchgang  durch  das  "Werkzeuge"- 
Menii  mit  einigen  Experimenten  verfolgt  haben,  miissen  Sie  jetzt 
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bitte  zunSchst  Ihre  so  entstandene  Zeichnung  loschen.  Wir  neh- 
men  nicht  an,  daB  schon  ein  so  tolles  Kunstwerk  herausgekom- 
men  ist,  daB  Sie  es  unbedingt  aufheben  wollen.  Wahlen  Sie  zum 
Lflschen  des  Bildes  die  Option  "New"  aus  dem  HFile"-Menu. 
Dann  erscheint  folgender  Text  auf  dem  Bildschirm: 

Aktuelle  Daten  sind  nicht  abgespeichert. 
Wollen  Sie  sie  speichern? 

Y-Taste  betatigen  zum  Speichern, 

N-Taste  speichert  nicht  (Daten  weg), 

C-Taste  bricht  Befehl  ab. 

Wenn  Ihnen  das  jetzt  irgendwie  bekannt  vorkommt,  denken  Sie 
mal  dran,  was  BASIC  macht,  wenn  Sie  NEW  eingeben  und  Ihre 
gegenwartige  Arbeit  noch  nicht  abgespeichert  haben.  Der  einzige 
Unterschied  ist,  daB  diesmal  die  Tastatur  und  nicht  die  Maus 
zur  Eingabe  verwendet  wird.  Drucken  Sie  also  bitte  <N>,  um 
Ihre  Absicht  zu  bekraftigen,  daB  Sie  nichts  abspeichen  wollen. 
Danach  erscheint  wieder  die  wohlbekannte  Frage:  Bobs  oder 
Sprites?  Wir  bleiben  bei  Bobs,  also  geben  Sie  ein:  0  <RETURN>. 
(Falls  Sie  seit  dem  Start  des  Object  Editors  nichts  gemalt  haben, 
entfallen  diese  Dinge  natiirlich.) 

Bitte  vergrSBern  Sie  das  stilisierte  Window  jetzt  so,  daB  X  in  der 
Gegend  von  140  und  Y  in  der  Gegend  von  70  liegt.  Genau 
miissen  Sie  diese  Werte  nicht  treffen.  Das  ist  nur  in  etwa  die 
GrflBe,  in  der  wir  unseren  Stern  programmieren  wollen. 

WShlen  Sie  dann  die  "LinieM-Option  aus  dem  MWerkzeugeM-Menii. 
Mit  diesen  Linien  zeichnen  wir  nun  zunachst  die  Zacken  unseres 
Sternes.  Da  wir  den  Stern  sp&ter  ausmalen  wollen,  achten  Sie 
bitte  schon  jetzt  darauf,  daB  keine  Lucken  entstehen.  Das  ge- 
lingt  am  besten,  wenn  Sie  die  Maus  zwischen  dem  Ziehen  der 
Linien  gar  nicht  bewegen,  so  daB  der  Endpunkt  einer  Linie  im- 
mer  zugleich  auch  der  Anfangspunkt  der  n&chsten  Linie  ist.  Wie 
das  ungefahr  aussehen  sollte,  zeigt  unser  Bild. 
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Bild  3: 


Der  Object  Editor 


Wenn  Sie  mit  dem  Ergebnis  zufrieden  sind,  wollen  wir  daran- 
gehen,  den  Stern  in  dieser  Form  abzuspeichern.  Auch,  wenn  er 
noch  nicht  ganz  fertig  ist.  Man  sollte  namlich  Zeichenprogram- 
men  immer  ein  gewisses  MaB  an  MiBtrauen  entgegenbringen. 
(Und  sich  selbst  gegeniiber  natiirlich  auch  -  denn  wer  macht 
schlieBlich  keine  Fehler?  Eine  kleine  Unachtsamkeit  und  ein 
Kunstwerk  ist  der  Welt  genommen...) 


Wahlen  Sie  also  "Save  As"  aus  dem  "File"-Menu.  Auf  dem  Bild- 
schirm  heiBt  es  nun  "Dateinamen  eingeben  >".  Taufen  wir  unse- 
ren  Stern  ruhig  auf  den  Namen  "Star",  schlieBlich  hat  er  noch 
eine  groBe  Zukunft  vor  sich.  SchlieBen  Sie  den  Namen  mit 
<RETURN>  ab.  Jetzt  wird  die  rote  Laufwerkslampe  aufleuch- 
ten:  Der  Bob  wird  gespeichert.  Bitte  machen  Sie  in  dieser  Zeit 
nichts  mit  dem  Object  Editor.  Es  ist  zwar  moglich,  ihn  auch 
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wahrend  des  Speicherns  zu  bedienen,  aber  solange  der  Amiga 
mit  Abspeichern  beschaftigt  ist,  ist  es  sicherer,  ihn  in  Ruhe  zu 
lassen. 

Schauen  Sie  jetzt  Ihren  Stern  noch  mal  genau  an:  Finden  Sie 
irgendwo  ein  Loch  in  der  Umrandung?  Wenn  ja,  stopfen  Sie  es 
bitte  mit  der  Stift-Funktion.  Dann  aktivieren  Sie  die  "Fuellen"- 
Option  im  "Werkzeuge"-Menii.  Am  Ende  der  untersten  Zeile 
steht  nun  "Fuellen".  Bewegen  Sie  den  Mauscursor  in  die  Mitte 
unseres  Sternes  und  klicken  Sie  einmal. 

Wenn  der  Stern  jetzt  hell  und  stolz  vor  Ihnen  aufleuchtet,  hat 
alles  geklappt.  Falls  aber  stattdessen  das  ganze  Window  weiB 
ausgefullt  ist,  war  doch  noch  eine  Liicke  in  der  Umrandung. 
Manchmal  geht  es  einem  da  wie  der  Bundesregierung:  Man 
weiB,  irgendwo  gibt  es  eine  undichte  Stelle,  aber  man  findet  sie 
einfach  nicht...  In  diesem  Fall  hat  sich  unsere  Vorsicht  gelohnt. 
Wenn  Sie  jetzt  n&mlich  "Open"  aus  dem  "File"-Menu  wahlen, 
k6nnen  Sie  unseren  "Star"  wieder  einlesen  und  erneut  nach 
eventuellen  Leeks  suchen.  Versuchen  Sie's  danach  einfach  noch- 
mal  mit  dem  Ausmalen. 

Falls  Sie  versehentlich  bei  "Open"  einen  falschen  Namen  ein- 
geben,  wird  der  Object  Editor  mit  einer  Fehlermeldung  ab- 
brechen.  Klicken  Sie  in  diesem  Fall  ins  OK-Feld  des  Errors  und 
geben  Sie  RUN  im  BASIC- Window  ein.  Dann  wird  der  Object 
Editor  wieder  gestartet. 

Wenn  beim  Ausmalen  alles  geklappt  hat,  konnen  wir  unser  Werk 
mit  der  "Save"-Option  aus  dem  "File"-Menu  abspeichern.  Diese 
Option  funktioniert  ebenfalls  genauso  wie  von  BASIC  gewohnt: 
Da  wir  schon  einmal  einen  Dateinamen  angegeben  haben,  wird 
jetzt  automatisch  unter  demselben  Namen  abgespeichert. 

Damit  ist  unser  Star  fertig.  Wenn  Sie  jetzt  noch  ein  wenig  mit 
dem  Object  Editor  spielen  wollen:  Eine  Funktion  haben  wir  bis- 
her  noch  nicht  erkl&rt.  Im  "GroBe"-Menu  gibt  es  die  Option 
"4*4".  Damit  konnen  Bobs  vergrflBert  werden,  allerdings  nur, 
wenn  Y  kleiner  als  31  und  X  kleiner  als  100  ist.  Bei  groBeren 
Bobs  bringt  der  Amiga  eine  entsprechende  Meldung.  Sie  mussen 
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diese  Meldung  durch  einen  Tastendruck  best&tigen.  Vergessen 
Sie  das  nicht,  sonst  kann  der  Object  Editor  sich  manchmal  recht 
seltsam  verhalten.  Im  Gr66e-Modus  ist  nur  die  Stift-Funktion 
moglich.  Mit  der  ,!l*r'-Option  schalten  Sie  diesen  Modus  wieder 
aus. 

Zum  Verlassen  des  Object  Editors  klicken  Sie  bitte  einfach  ins 
SchlieBsymbol  des  BASIC-Windows.  Falls  wShrend  des  Pro- 
grammlaufs  ein  Fehler  aufgetreten  ist,  miissen  Sie  unter  Um- 
stSnden  auch  noch  das  LIST-Window  ausklicken. 

Ja,  und  das  war  es  auch  schon. 

Nein,  das  Buch  ist  natiirlich  noch  nicht  zu  Ende  -  wir  meinten, 
das  war  es  auch  schon,  wenn  es  darum  geht,  ein  Objekt  zu  defi- 
nieren.  So  einfach  geht  das.  Wo  man  bei  anderen  Computern  mit 
vielen  Tricks,  PEEKs  und  POKEs  und  dergleichen  arbeiten 
mufi,  genugt  beim  Amiga  einfach  Drauflosmalen.  SchOn,  nicht 
wahr?  Aber  warten  Sie  erstmal  ab,  wie  einfach  es  ist,  beim 
Amiga  etwas  zu  bewegen. 

Wenn  Sie  den  Object  Editor  verlassen  haben,  dann  sehen  Sie 
jetzt  wieder  die  Workbench-Oberfiache.  Bevor  wir  ins  BASIC 
zuriickkehren,  sollten  wir  noch  kurz  fur  Ordnung  sorgen.  Dazu 
miissen  Sie  das  BasicDemos-Window  schlieften  und  gleich  danach 
wieder  offnen.  Verschieben  Sie  nun  bitte  das  sichtbar  gewordene 
MStarM-Icon  in  die  "Meine  Programme"-Schublade  (oder  wie  auch 
immer  Sie  die  Schublade,  die  wir  vorhin  angelegt  haben,  ge- 
nannt  hatten).  Sollten  Sie  beim  Experimentieren  weitere  Bobs 
erzeugt  haben,  bringen  Sie  diese  bitte  auch  in  Ihre  eigene 
Schublade.  Dann  konnen  Sie  das  BasicDemos-Window  endgiiltig 
zuklicken. 

Wenn  Sie  wollen,  rSumen  Sie  mit  der  Snapshot-Funktion  ruhig 
noch  Ihre  Programm-Schublade  auf,  Ordnung  ist  ja  schlieBlich 
das  halbe  Leben.  Die  andere  Halfte  sollte  dafiir  vorwiegend  SpaB 
machen.  Und  dafiir  wollen  wir  jetzt  sorgen:  Offnen  Sie  bitte 
wieder  AmigaBASIC. 
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1.12      Rollenverteilung  -  noch  mehr  iiber  die  Grafikobjekte 

Wir  haben  ja  nun  schon  mitbekommen,  daB  es  zwei  verschiedene 
Arten  von  Grafikobjekten  auf  dem  Amiga  gibt.  Aber  welche  ist 
nun  wofur  am  besten  geeignet?  Gibt  es  irgendwelche  Vorteile 
bei  der  einen  oder  anderen  Art?  Oder  umgekehrt  irgendwelche 
Einschrankungen?  Diese  Fragen  wollen  wir  jetzt  beantworten. 

Die  Tatsache,  daB  es  uberhaupt  zwei  verschiedene  Arten  von 
Grafikobjekten  im  Amiga  gibt,  erklfcrt  sich  in  der  Entwick- 
lungsgeschichte  unseres  Computers.  Als  im  Jahre  1983  die  Ar- 
beiten  daran  begannen,  hatte  man  noch  im  Sinn,  einen  Spiel- 
computer  zu  bauen,  der  alles  bisher  dagewesene  in  den  Schatten 
stellen  sollte.  Die  relativ  kleine  amerikanische  Amiga  Corpora- 
tion engagierte  einen  Herrn  namens  Jay  Minor,  um  die  Spezial- 
chips  zu  entwerfen.  Dieser  Jay  Minor  (er  muBte  wirklich  mal 
erwahnt  werden,  denn  ihm  haben  wir  ja  die  meisten  Moglich- 
keiten  des  Amiga  zu  verdanken)  war  just  derjenige,  der  vorher 
schon  die  Grafikchips  fur  die  Atari  400/800-Serie  entworfen 
hatte.  Mit  dieser  Erfahrung  war  es  ihm  natiirlich  ein  Leichtes, 
den  Videochip  "Denise"  (so  heiBt  er  zumindest  heute)  so  zu 
konstruieren,  daB  er  neben  den  -  im  Vergleich  zu  den  Atari- 
Chips  -  sehr  viel  leistungsfahigeren  Farb-  und  Grafik- 
moglichkeiten  fast  nebenbei  auch  noch  Sprites  darstellen  konnte. 

"Denise"  ist  zwar  am  starksten  an  der  Bilderzeugung  des  Amiga 
beteiligt,  aber  alle  Ehre  gebiihrt  nicht  ihr  allein.  Es  gibt  da  zum 
Beispiel  auch  noch  den  Chip  "Agnus".  Dieser  Chip  hat  wiederum 
die  beiden  Unter-Baugruppen  "Blitter"  und  "Copper",  von  denen 
Sie  wahrscheinlich  schon  einmal  geh5rt  haben,  weil  es  genau 
diese  Chip-Funktionen  waren,  um  die  bei  der  Einfiihrung  des 
Amiga  (nicht  ganz  zu  Unrecht)  ziemlich  viel  Wind  gemacht 
wurde. 

Die  Hauptfunktion  des  Blitter  ist  es,  Speicher-  bzw.  Bildbereiche 
blitzschnell  zu  kopieren  oder  zu  bearbeiten.  Dabei  wird  er  vom 
Copper  unterstiitzt,  aber  wie  das  genau  funktioniert,  brauchen 
Sie  als  BASIC-Programmierer  wirklich  nicht  zu  wissen.  Dem 
Gespann  Blitter  und  Copper  haben  wir  iibrigens  auch  die 
schnelle  Verarbeitung  von  Windows  zu  verdanken.  Daran  konnen 
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Sie  auch  erkennen,  daB  solche  Grafikchips  eben  nicht  nur  bei 
den  reinen  Grafikanwendungen  Vorteile  bieten,  sondern  auch 
sonst  sehr  niitzlich  sein  k5nnen. 

Und  jetzt  kommt  etwas  eigentlich  sehr  Kurioses:  Durch  den 
Blitter,  den  hochmodernen  Superchip,  wurde  das  alteste  Konzept 
der  Computergrafik  fur  den  Amiga  wieder  aktuell:  Wenn  es  in 
schier  unglaublicher  Geschwindigkeit  mdglich  ist,  Bildbereiche 
zu  verschieben  und  zu  kopieren,  warum  sollte  man  dann  nicht 
doch  wieder  zeichnen,  verschieben  und  danach  den  Hintergrund 
restaurieren?  So  entstanden  als  Alternative  bzw.  ErgSnzung  zu 
den  Sprites  die  Bobs,  die  Blitter  Object  Blocks.  Grafikobjekte 
also,  die  durch  den  Blitter  gesteuert  werden. 

Wenn  man  nun  fragt,  welche  Objekte  besser  seien,  muB  man 
wissen:  Da  sie  von  vflllig  verschiedenen  Chips  erzeugt  und  ge- 
steuert werden,  unterscheiden  sich  Sprites  und  Bobs  in  verschie- 
denen Punkten  wesentlich  voneinander.  Beide  haben  Vor-  und 
Nachteile,  abhangig  von  der  jeweiligen  Anwendung. 

Uber  Sprites  beim  Amiga  gibt  es  folgendes  zu  wissen:  Sie  sind  in 
ihrer  horizontalen  Ausdehnung  auf  16  Bildpunkte  festgelegt.  Das 
ist  sehr  schmal,  es  entspricht  ungefahr  zwei  nebeneinander- 
liegenden  Zeichen  auf  dem  Bildschirm.  Dafur  sind  sie  in  ihrer 
vertikalen  GroBe  unbegrenzt.  Sie  sind  aber  auch  in  ihrer  Farb- 
auswahl  eingeschriinkt:  Ein  Sprite  kann  bis  zu  vier  verschiedene 
Farben  haben.  Normalerweise  gibt  es  8  Sprites.  Durch  verschie- 
dene Tricks  ist  es  aber  moglich,  mehr  als  8  Sprites  gleichzeitig 
auf  dem  Bildschirm  darzustellen.  AuBerdem  bewegen  sich  Spri- 
tes schneller  als  Bobs. 

Bobs  konnen  dagegen  jede  beliebige  GroBe  annehmen,  sowohl 
horizontal  als  auch  vertikal.  Sie  konnen  bis  zu  32  verschiedene 
Farben  haben,  und  die  Anzahl  der  Bobs  ist  nur  durch  den  zur 
Verfiigung  stehenen  Speicherplatz  begrenzt.  Aber  Bobs  sind 
deutlich  langsamer  als  Sprites,  insbesondere  dann,  wenn  viele 
Bobs  gleichzeitig  bewegt  werden  sollen.  Die  folgende  Tabelle 
stellt  die  beiden  Arten  von  Grafikobjekten  noch  einmal  gegen- 
uber. 
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Grafikobjekt: 

Sprite 

Bob 

Gesteuert  durch: 

Denise 

Agnus/Blitter 

maximale  Anzahl: 

8 

(aber  mehrfach 

darstellbar) 

unbegrenzt 

(soweit  Speicherplatz 

ausreichend) 

Farben: 

bis  zu  4 

bis  zu  32 

(fiir  jeweils 

2  Sprites  gleiche 

Farben) 

(beliebig  aus  den 
aktuellen  Farben 
auswShlbar) 

Geschwindigkeit: 

sehr  schnell 

etwas  langsamer 

Tabelle  1:          Vergleich 

von  Sprites  und  Bobs 

AmigaBASIC  macht  uns  die  ganze  Sache  bei  der  Programmie- 
rung  sehr  einfach:  Fur  Sprites  und  Bobs  werden  dieselben  Be- 
fehle  verwendet  -  die  Unterscheidung  ist  nur  ein  einziges  Mai 
interessant,  nSmlich  bei  der  Erzeugung  des  Objekts  mit  dem 
ObjectEditor. 

Ein  Nachtrag  fiir  uns  deutsche  Amiga-Anwender  ist  aber  noch 
notwendig:  Dafl  die  Bewegung  von  Bobs  fliissig  und  natiirlich 
aussieht,  ist  in  erster  Linie  eine  Frage  des  Timings.  Das  Zeich- 
nen  und  Verschieben  muB  innerhalb  kiirzester  Zeit  stattfinden, 
und  zwar  genau  dann,  wenn  es  der  Anwender  nicht  sieht.  Um 
dies  zu  erreichen,  werden  bestimmte  technische  Tricks  verwen- 
det. 


Doch  genau  damit  ergibt  sich  ein  Problem:  Der  Amiga  und 
AmigaBASIC  sind  in  Amerika  entwickelt  worden.  Dort  gibt  es 
andere  technische  Normen  als  in  Deutschland.  Fiir  Fachleute  und 
Interessierte:  Die  Netzfrequenz  ist  hSher  und  die  amerikanische 
Fernsehnorm  benutzt  weniger  Bildzeilen  als  die  deutsche.  Die 
ersten  Amigas,  die  es  in  Deutschland  gab,  waren  amerikanische 
GerSte.  Dort  funktionierte  auch  die  Bob-Darstellung  bei  jeder 
Bewegung  perfekt.  Die  Amigas,  die  jetzt  in  Deutschland  ver- 
kauft  werden,  wurden  natiirlich  auf  deutsche  Verhiiltnisse  ange- 
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paBt.  Das  bedeutet,  sie  laufen  mit  einer  etwas  niedrigeren  Netz- 
frequenz  und  mussen  mehr  Zeilen  auf  dem  Bildschirm  dar- 
stellen.  Dadurch  hat  es  sich  ergeben,  daB  sich  Bobs  nicht  mehr 
so  kontinuierlich  wie  gewohnt  bewegen.  Je  gr6Ber  ein  Bob  ist, 
bzw.  je  mehr  Bobs  verwendet  werden,  umso  starker  beginnen 
diese  Bobs  zu  flimmern.  Dieses  Problem  konnte  bisher  nicht  ge- 
16st  werden.  Es  ist  aber  zu  erwarten,  daB  durch  Modifikationen 
der  Software  (Kickstart,  Workbench  oder  AmigaBASIC)  der 
Flimmereffekt  abgestellt  werden  kann.  Zumindest  arbeitet  man 
bei  Commodore  und  Microsoft  daran.  Bisher  ist  allerdings  noch 
nicht  bekannt,  wann  das  Problem  geldst  werden  wird.  Es  kann 
also  bei  Bob-Animationen  in  BASIC  passieren,  daB  die  dar- 
gestellten  Objekte  wahrend  der  Bewegung  zittern. 

Im  Moment  sollten  Sie  also  noch  nicht  versuchen,  "Krieg  der 
Sterne"  in  AmigaBASIC  zu  programmieren.  Dazu  sollten  Sie 
vorerst  auf  fertige  Programme  wie  den  Aegis  Animator  oder 
Deluxe  Video  zuriickgreifen,  bei  denen  diese  Probleme  nicht 
auftreten. 


1.13      Ein  Bob  guckt  in  die  Rohre  -  Einlesen  von  Grafik- 
objekten 

Unser  Stern  ist  ein  Bob.  Und  zwar  einfach  deshalb,  weil  ein 
Sprite  fur  einen  ordentlichen  Stern  zu  klein  gewesen  ware.  Mit 
unserem  Bob  haben  wir  jetzt  ein  Objekt,  das  wir  bewegen  kon- 
nen.  Als  nSchstes  wollen  wir  den  Programmteil  schreiben,  in 
dem  die  Bewegung  festgelegt  wird.  Bevor  wir  daran  weiter- 
arbeiten  k6nnen,  muB  das  Videotitel-Programm  naturlich  erst 
wieder  in  den  Speicher  geladen  werden.  W&hlen  Sie  dazu  bitte 
die  Option  "Open"  aus  dem  "Project"-Pulldown. 

In  der  linken  oberen  Ecke  des  Bildschirms  erscheint  nun  ein 
Dialogfeld,  das  uns  nach  dem  Namen  des  Programms  fragt,  das 
wir  laden  wollen.  Klicken  Sie  bitte  in  das  langliche  leere  Kit- 
chen unterhalb  des  Satzes  "Name  of  program  to  load:".  Tippen 
Sie  zuerst  einen  Doppelpunkt  <;>  und  dann  den  Namen  der  Pro- 
grammschublade,  in  der  Sie  das  Videotitel-Programm  und  den 
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"Star"  abgelegt  haben.  Drucken  Sie  dann  die  Taste  </>  und  ge- 
ben  Sie  danach  den  Namen  des  Video-Titelprogramms  ein.  Bei 
uns  sieht  das  jetzt  zum  Beispiel  so  aus: 

Meine  Programme/Videotitel 

Wenn  Sie  alles  eingetippt  haben,  drucken  Sie  bitte  <RETURN>. 
Falls  der  Amiga  jetzt  nicht  ladt  und  stattdessen  eine  Fehlermel- 
dung  ausgibt  (wahrscheinlich  "File  not  found"  -  "Datei  nicht 
gefunden"),  haben  Sie  sich  entweder  beim  Schubladen-  oder 
beim  Programmnamen  geirrt.  Sollten  Sie  sich  nicht  mehr  an  den 
richtigen  Namen  erinnern  konnen,  verkleinern  Sie  einfach  das 
LIST-  und  das  BASIC-Window  und  schauen  Sie  auf  der  Work- 
bench nach.  Sekunden  nach  Ihrer  Eingabe  erscheint  das  geladene 
Programm  im  LIST-Window. 

Die  Methode,  wie  wir  unser  Programm  jetzt  gerade  geladen  ha- 
ben, ist  die  andere  Moglichkeit  neben  dem  direkten  Anklicken 
von  der  Workbench  aus.  Nachdem  es  beim  Speichern  zwei  Me- 
thoden  gibt,  konnen  Sie  sich  wahrscheinlich  schon  denken,  daB 
es  neben  der  Pulldown-Option  auch  moglich  ist,  im  Direktmodus 
einen  Befehl  zum  Laden  einzugeben.  Er  heiBt  LOAD  und  beno- 
tigt  dieselben  Angaben  wie  das  Dialogfeld.  Sie  hatten  also  auch 
eingeben  konnen: 

LOAD  "Meine  Programme/Videotitel"  <RETURN> 

Was  Sie  lieber  verwenden  wollen,  bleibt  wieder  Ihnen  uberlassen. 
Wenn  Sie  sich  eher  mit  der  Tastatur  verbunden  fiihlen,  Ziehen 
Sie  wahrscheinlich  den  gerade  eben  gezeigten  Befehl  vor.  Wenn 
Sie  eher  ein  Freund  der  Maus  sind,  durfte  das  Pulldown  das 
Richtige  fur  Sie  sein.  Sie  sehen,  das  lauft  allmahlich  auf  eine 
Grundsatzentscheidung  heraus.  AmigaBASIC  unterstutzt  jeden- 
falls  beide  Moglichkeiten. 

Wir  wollen  nun  das  zweite  Unterprogramm  schreiben.  Das  erste 
echte  Unterprogramm  war  ja  unser  Texteingabeteil.  Genauso 
programmieren  wir  jetzt  das  Einlesen  des  Grafikobjektes.  Dazu 
nehmen  wir  zunfcchst  den  entsprechenden  Punkt  in  unser  An- 
fangsmenii  mit  auf.  Bisher  hieB  es  ja  immer,  wenn  eine  andere 
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Zahl  als  1  eingegeben  wurde,  daB  dieser  Programmteil  noch 
nicht  existiert.  Ab  sofort  soil  es  aber  mdglich  sein,  mit  2  die 
Eirileseroutine  zu  aktivieren.  Geben  Sie  also  bitte  im  Pro- 
grammteil 'Abfrage:'  unter  der  Zeile 

IF  aS=»1"  THEN  Texteingabe 

die  folgende  Zeile  ein: 

IF  a$=M2"  THEN  ObjEinlesen 

Drucken  Sie  dann  <ALTxPfeil  nach  unten>.  Halten  Sie  also  die 
<ALT>-Taste  gedruckt  und  drucken  Sie  die  unterste  der  vier 
Cursortasten:  Der  Cursor  springt  augenblicklich  ans  Programm- 
ende.  Mit  <ALTxPfeil  nach  unten>  gelangen  Sie  immer  ans 
Ende  des  Programms.  Entsprechend  kommen  Sie  mit 
<ALTxPfeil  nach  oben>  an  den  Anfang.  Und  durch  <ALT>  in 
Verbindung  mit  einer  der  Tasten  <Pfeil  nach  links>  oder  <Pfeil 
nach  rechts>  bringen  Sie  den  Cursor  an  das  linke  bzw.  rechte 
Ende  der  aktuellen  Zeile.  Diese  Tastaturfunktionen  sind  eine 
weitere  niitzliche  Hilfe,  den  Cursor  schneller  durchs  Programm 
zu  bewegen. 

Am  Ende  des  Programmes  geben  wir  jetzt  den  nachsten  Teil 
unseres  Videotitel-Programms  ein: 

ObjEinlesen: 

CLS 

PRINT  "Bitte  geben  Sie  den  Namen  des  Objekts  ein." 

INPUT  Ob j name$ 

IF  Objname$=»»  THEN  CLS  :  GOTO  Anfang 

OPEN  Ob j name$  FOR  INPUT  AS  1 

OBJECT. SHAPE  1 , INPUT$(L0F(1)f 1) 

CLOSE  1 

Eingel=1  :  CLS  :  GOTO  Anfang 

Hier  wird  jetzt  also  ein  Grafikobjekt  von  Diskette  eingelesen. 
Die  Neuigkeiten  konzentrieren  sich  eigentlich  auf  drei  Zeilen.  In 
denen  haufen  sich  allerdings  auch  die  unbekannten  Befehle: 
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OPEN  ((Name  des  Objekts))  FOR  INPUT  AS  1 

OBJECT. SHAPE  1 , INPUT$(L0F(1),1) 
CLOSE  1 

Die  erste  Zeile  ist  dafur  zustandig,  die  angegebene  Datei  (so 
nennt  man  Daten  auf  Diskette,  die  kein  Programm  sind)  zum 
Lesen  zu  Gffnen.  Warum  das  n6tig  ist  und  was  dahinter  steckt, 
erfahren  Sie  im  zweiten  groBen  Kapitel  dieses  Buches,  wo  es  urn 
Daten  und  Diskettenverwaltung  geht.  Wir  wollen  uns  ja  jetzt  auf 
die  Grafik  konzentrieren.  Was  passiert  also  bei  diesem  Befehl? 
Der  Inhalt  einer  Datei  wird  gelesen.  Den  Namen  der  Datei  er- 
fahrt  das  Programm  durch  die  Eingaberoutine  in  den  ersten  drei 
Zeilen  dieses  Programmteiles.  Hier  ist  auch  eine  Sicherungs- 
routine  eingebaut:  Fur  den  Fall,  daB  der  Anwender  aus  Versehen 
<RETURN>  driickt,  ohne  einen  Namen  einzugeben,  erkennt 
unser  Programm  dies  und  springt  an  den  Anfang  zuruck. 

Jetzt  werden  die  eingelesenen  Daten  einer  Stringvariablen  na- 
mens  INPUTS  iibergeben.  INPUTS  ist  ein  String,  genauso  wie 
'HalloS'  oder  'a$\  nur  mit  dem  Unterschied,  daB  Sie  ihm  den 
Inhalt  einer  Datei  zuweisen  k6nnen.  N&heres  dazu  wieder  im 
zweiten  Teil  unseres  Buchs,  dem  Daten-Kapitel.  Das  ist  ohne 
grdBere  Probleme  mdglich,  weil  Strings  in  AmigaBASIC  bis  zu 
32767  Zeichen  lang  sein  diirfen.  Dieser  Platz  reicht  fur  die  Da- 
ten eines  Bobs  oder  eines  Sprites  im  allgemeinen  aus.  In  dem 
String  stehen  in  genau  festgelegter  Form  und  Reihenfolge  alle 
notwendigen  Daten  des  Objekts,  also  beispielsweise  unsere*s 
Sterns.  Dank  Object  Editor  brauchen  wir  uns  um  den  Aufbau 
dieses  Daten-Strings  nicht  zu  kummern,  denn  das  hat  Amiga 
schon  erledigt. 

In  der  zweiten  der  drei  Zeilen  wird  der  String  mit  dem  Befehl 
OBJECT.SHAPE  dem  Grafikobjekt  Nummer  1  zugewiesen. 
Durch  diesen  Befehl  erhait  AmigaBASIC  alle  ben6tigten  Infor- 
mationen  uber  das  Aussehen  des  Objekts,  seine  Farben,  seine 
H5he  und  Breite  und  einige  andere  Parameter.  Die  dritte  Zeile 
schlieBt  die  zum  Lesen  geoffnete  Datei  wieder. 


Ob  jekt- Animation        105 


Dann  wird  noch  eine  Variable  namens  'EingeP  auf  1  gesetzt:  Sie 
dient  im  Programm  dazu,  herauszufinden,  ob  schon  ein  Objekt 
eingelesen  wurde  Oder  noch  nicht.  Warum  es  fur  das  Programm 
wichtig  ist,  das  festzustellen,  werden  Sie  gleich  verstehen,  wenn 
wir  zum  nachsten  Teil,  der  Bewegung,  kommen.  In  jedem  Fall 
kehrt  das  Programm  nach  dieser  Formalit&t  zum  Hauptmenu 
zuriick. 

Sobald  das  Aussehen  eines  Objekts  festgelegt  ist,  kann  seine  Be- 
wegung programmiert  werden.  Fiigen  Sie  dazu  bitte  zuniichst  im 
Programmteil  'Abfrage:'  unterhalb  der  beiden  schon  vorhandenen 
Punkte  die  folgende  Zeile  ein: 

IF  a$="3"  THEN  ObjBewegung 

Tippen  Sie  dann  bitte  am  Ende  des  Listings  den  nachsten  Teil 
ein: 

ObjBewegung: 

CLS  :  IF  Einget=0  THEN  BEEP  ELSE  Bewegen 

PRINT  "Bitte  erst  Objekt  einlesen!" 

PRINT  "Drucken  Sie  eine  Taste!" 

Warte: 

a$=INKEY$ 

IF  a$=""  THEN  Warte 

CLS  :  GOTO  Anfang 

Wir  kommen  doch  ganz  gut  voran,  nicht  wahr?  Jetzt  sind  wir 
schon  mitten  im  Programmieren.  Und  so  schwer  war  es  doch  gar 
nicht.  Zu  den  zuletzt  eingetippten  Zeilen:  Dieser  Teil  ist  der  Be- 
ginn  des  Bewegungs-Programms  und  priift,  ob  bereits  ein  Ob- 
jekt eingelesen  wurde.  Sollte  das  nicht  der  Fall  sein,  haben  wir 
ja  nichts,  was  bewegt  werden  konnte.  Dann  soil  der  Amiga  einen 
entsprechenden  Hinweis  auf  den  Bildschirm  drucken,  auf  einen 
Tastendruck  warten  und  danach  zur  Hauptauswahl  zuriick- 
kehren. 

Haben  Sie  vielleicht  ein  Problem  mit  der  Zeile 

PRINT  "Drucken  Sie  eine  Taste!" 
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und  besteht  dieses  Problem  vielleicht  darin,  daB  sich 
AmigaBASIC  hatnackig  weigert,  das  u  in  "Driicken"  auf  dem 
Bildschirm  stehen  zu  lassen?  Falls  Sie  die  letzte  Frage  mit  einem 
klaren  "Ja"  beantworten  kflnnen,  dann  haben  Sie  eine  nicht  ganz 
aktuelle  Version  von  AmigaBASIC.  Eine  Zeitlang  bestand  das 
Problem,  daB  das  kleine  u  nicht  in  Programmlistings  dargestellt 
werden  konnte.  Das  Problem  tritt  nur  bei  dem  kleinen  u  auf, 
alle  anderen  deutschen  Umlaute  machen  keine  Schwierigkeiten. 
Sie  wissen  es  ja  mittlerweile:  Fragen  Sie  Ihren  Handler,  ob  er 
Ihnen  die  neueste  Version  von  AmigaBASIC  kopieren  kflnnte. 
Und  wenn  der  sie  auch  nicht  hat,  bitten  Sie  ihn,  sich  an  Com- 
modore zu  wenden,  um  fur  seine  Kunden  die  neueste  Version  zu 
besorgen.  Sollte  bei  Ihnen  mit  dem  kleinen  u  alles  funktionieren, 
dann  freuen  Sie  sich,  denn  das  ist  ein  Zeichen  dafiir,  daB  Sie 
wirklich  eine  der  jungsten  Versionen  von  AmigaBASIC  besitzen. 

Zwei  neue  Befehle  gibt  es  in  diesem  Programmteil:  ELSE  und 
INKEYS.  ELSE  ist  eine  Erweiterung  des  bereits  bekannten 
IF. ..THEN.  Bisher  kennen  wir  nur  die  Form  IF  (Bedingung  trifft 
zu)  THEN  (tu  irgendwas).  Zu  dieser  Grundform  des  IF...THEN- 
Befehls  gibt  es  einige  Erweiterungen,  die  Sie  in  diesem  Buch 
Schritt  fur  Schritt  kennenlernen  werden. 

Schauen  wir  uns  die  betreffende  Zeile  im  Programm  mal  ge- 
nauer  an: 

IF  Eingel=0  THEN  BEEP  ELSE  Bewegen 

Im  vorderen  Teil  der  Zeile  funktioniert  alles  wie  gehabt:  Wenn 
die  Variable  'Eingel'  gleich  0  ist,  dann  soil  der  Amiga  einen 
Piepser  erzeugen.  ELSE  ist  Englisch  und  heiBt  "anderenfalls". 
Damit  laBt  sich  seine  Funktion  schon  vermuten:  Wenn  'Eingel' 
gleich  0  ist,  piepst  der  Amiga,  anderenfalls  soil  er  zum  Pro- 
grammteil 'Bewegen:'  springen.  Durch  IF.. .THEN. ..ELSE  kann 
man  dem  Amiga  zusatzlich  mitteilen,  was  er  tun  soil,  wenn  die 
angegebene  Bedingung  nicht  zutrifft.  Das  sieht  dann  so  aus: 

IF  (Bedingung)  THEN  (tu  irgendwas)  ELSE  (tu  irgendwas 
anderes) 
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Um  diesen  Befehl  in  eine  etwas  alltaglichere  Form  zu  bringen: 
Stellen  Sie  sich  vor,  ein  Bekannter  hat  sich  einen  Amiga  gekauft 
und  will  jetzt  in  AmigaBASIC  programmieren.  Er  fragt  Sie  um 
Rat,  woher  er  ein  gutes  Buch  dazu  bekommen  soil.  Sie  sagen  (so 
hoffen  wir  zumindest):  "Wenn  Du  in  einen  Computerladen  gehst, 
dann  kaur  Dir  das  BASIC-Buch  von  Data  Becker.  Und  wenn's 
nicht  da  ist,  laB'  es  bestellen."  In  BASIC  iibersetzt  hieBe  dieser 
Tip:  "IF  AmigaBASIC-Buch  von  Data  Becker  im  Laden  vorratig 
THEN  kaufe  es  ELSE  bestelle  es". 

Diese  Form  von  IF.. THEN  ist  vor  allem  dann  interessant,  wenn 
-  wie  in  unserem  Fall  -  bei  zutreffender  Bedingung  mehr  als 
nur  ein  oder  zwei  Befehle  abzuarbeiten  sind  und  das  Programm 
bei  nicht  zutreffender  Bedingung  an  eine  andere  Stelle  ver- 
zweigen  soil.  Das  war  hoffentlich  nicht  zu  kompliziert?  Sollten 
Sie  es  noch  nicht  ganz  verstanden  haben,  werden  Sie  gleich  eine 
M6glichkeit  kennenlernen,  wie  Sie  Spriinge  und  Schleifen  besser 
nachvollziehen  kdnnen. 

Doch  vorher  noch  ein  letzter  Befehl:  INKEYS.  Der  ist  wirklich 
ganz  einfach:  Dieser  String  beinhaltet  immer  das  Zeichen,  das 
gerade  auf  der  Tastatur  eingegeben  wurde.  Wenn  keine  Taste 
gedruckt  wurde,  ergibt  INKEYS  einen  Ieeren  String.  Deshalb 
brauchen  wir  auch  die  'Warte^-Schleife,  die  solange  wartet,  bis 
'a$'  einen  anderen  Wert  als  einen  Leerstring  ("")  annimmt,  weil 
Sie  eine  Taste  gedruckt  haben. 


1.14      Amiga  als  Spurensucher  -  die  Trace-Funktion 

Falls  Sie  vor  lauter  Schleifen  und  Abfragen  ein  wenig  die  Orien- 
tierung  verloren  haben,  hat  der  Amiga  wieder  eine  nutzliche 
Hilfe  fur  Sie  parat.  Klicken  Sie  bitte  ins  BASIC-Window  und 
tippen  Sie: 

goto  ObjBewegung  <RETURN> 
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Auf  diese  Weise  ist  es  mOglich,  Programme  direkt  an  einer  be- 
stimmten  Stelle  zu  starten.  Gleich  piepst  es,  und  der  program- 
mierte  Text  erscheint  auf  dem  Bildschirm,  denn  ein  Objekt 
wurde  bisher  ja  sicher  noch  nicht  eingelesen.  Sollten  Sie  das 
LIST-Window  nicht  auf  dem  Bildschirm  sehen,  wahlen  Sie  bitte 
"Show  List"  aus  dem  "Windows"-Pulldown.  Dann  wahlen  Sie  die 
Option  "Trace  On"  aus  dem  "Run"-Pulldown.  Im  LIST-Window 
erscheint  jetzt  das  'Wartei'-Programm,  und  ein  kleiner  oranger 
Kasten  umrandet  ziemlich  flink  einen  Befehl  nach  dem  anderen. 
Genauer  gesagt  wechselt  er  immer  zwischen  drei  Zeilen. 

Wir  haben  gerade  den  sogenannten  Trace-Modus  eingeschaltet. 
In  diesem  Modus  zeigt  uns  der  Amiga  im  LIST-Window,  wel- 
cher  Befehl  gerade  abgearbeitet  wird.  Davon,  dafl  das  eine  groBe 
Hilfe  beim  Austesten  von  eigenen  und  Verstehen  von  fremden 
Programmen  ist,  k6nnen  Sie  sich  gerade  selbst  iiberzeugen.  Pro- 
bieren  Sie  bitte  aus,  was  passiert,  wenn  Sie  jetzt  eine  Taste 
driicken.  Denn  darauf  wartet  der  Amiga  ja  die  ganze  Zeit.  Sie 
sehen,  wie  das  Programm  zum  Anfang  zuruckspringt  und  wah- 
rend  der  Abarbeitung  der  einzelnen  Befehle  immer  den  orangen 
Kasten  um  den  aktuellen  Befehl  legt. 

Wenn  auf  einmal  das  LIST-Window  verschwindet,  zum  Beispiel 
sobald  der  Amiga  bei  einem  INPUT-Befehl  ankommt,  wahlen 
Sie  einfach  wieder  "Show  List"  aus  dem  "Windows"-Menu.  Bei 
langen  Programmzeilen  oder  Listings  wird  AmigaBASIC  ziemlich 
haufig  den  dargestellten  Programm-Ausschnitt  im  LIST-Window 
andern.  VergrOBern  Sie  im  Bedarfsfall  das  LIST-Window  nach 
Ihren  Bedtirfnissen.  Wenn  der  Trace-Modus  aktiv  ist,  miissen  Sie 
einfach  versuchen,  die  beste  Plazierung  von  LIST-  und  BASIC- 
Window  auf  dem  Schirm  zu  finden.  Wie  sie  aussieht,  hangt 
hauptsachlich  davon  ab,  an  welcher  Stelle  die  Ausgaben  im 
BASIC- Window  erscheinen.  Da  sich  unser  Programm  meistens  in 
der  oberen  Halfte  des  BASIC-Windows  tummelt,  haben  wir  bei 
unseren  Versuchen  das  LIST-Window  im  unteren  Teil  des  Bild- 
schirms  angesiedelt  AmigaBASIC  paBt  den  dargestellten  Aus- 
schnitt  des  Listings  immer  der  gegenwSrtigen  Gr5Be  des  LIST- 
Windows  an. 
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Wenn  Sie  wollen,  konnen  Sie  jetzt  mit  aktiviertem  Trace-Modus 
ein  wenig  im  bisherigen  Programm  herumstobern.  Vielleicht 
werden  dadurch  die  letzten  eventuellen  Unsicherheiten  uber  die 
Funktion  des  Programms  und  seiner  Teile  beseitigt.  Ihnen  wird 
dabei  auffallen,  daB  das  Programm  deutlich  langsamer  lauft  als 
ohne  den  Trace-Modus.  Das  ist  auch  ganz  logisch,  denn  zwi- 
schen  zwei  Befehlen  hat  der  Amiga  jetzt  deutlich  mehr  zu  tun 
als  vorher.  Der  Trace-Modus  ist  ja  auch  nur  zum  Testen  von 
Programmen  gedacht. 

Um  ihn  wieder  abzuschalten,  schauen  Sie  bitte  ins  "Run"-Pull- 
down.  An  der  Stelle,  wo  vorher  die  Option  "Trace  On"  stand, 
lesen  Sie  jetzt  "Trace  Off.  Mit  diesem  Meniipunkt  konnen  Sie 
die  Trace-Funktion  wieder  ausschalten. 

AmigaBASIC  bietet  Ihnen  auch  die  Mfiglichkeit,  TRACE  ganz 
gezielt  fur  einzelne  Programmteile  zu  verwenden.  Es  gibt  die 
beiden  Befehle  TRON  (TRace  ON)  und  TROFF  (TRace  OFF), 
die  Sie  wie  jeden  anderen  BASIC-Befehl  im  Programm  verwen- 
den kdnnen.  Oder  auch  im  Direktmodus  anstelle  der  Pulldown- 
Optionen. 


1.15      OBJECT  hin,  OBJECT  her  -  die  OBJECT-Befehle 

Vielleicht  ist  Ihnen  in  der  Zwischenzeit  beim  Experimentieren 
aufgefallen,  daB  im  Texteingabe-Teil  noch  ein  kleines  Problem 
auftritt:  Wenn  man  ihn  nur  einmal  aufruft,  klappt's  prima.  Aber 
beim  zweiten  Mai  gibt  es  plotzlich  eine  "Duplicate  Definition"- 
Fehlermeldung.  Was  ist  passiert? 

Das  Problem  ist  der  DIM-Befehl,  der  das  Textfeld  dimensio- 
nieren  soil,  sobald  feststeht,  wieviele  Zeilen  Text  zu  erwarten 
sind.  Es  ist  namlich  nicht  erlaubt,  dasselbe  Feld  mit  DIM  mehr- 
fach  zu  dimensionieren.  Beim  zweiten  Versuch  tritt  der  genannte 
Error  auf.  Das  einfachste  Mittel,  um  sich  aus  hier  aus  der  Af- 
fare  zu  ziehen,  ist,  alle  Dimensionen  mit  DIM,  die  im  Programm 
notig  sind,  ganz  vorne  an  den  Programmanfang  zu  stellen.  Dort 
werden  sie  dann  einmal  ausgefuhrt  und  sp^ter  nicht  mehr  wie- 
derholt. 


110 AmigaBASIC 


Bei  dieser  Methode  muB  man  allerdings  wissen,  wieviele  Ele- 
mente  das  Feld  im  Hdchstfall  haben  soil.  Bei  unserem  Feld 
TextS'  konnen  bis  zu  15  Elemente  notig  werden.  Wir  legen  also 
das  Feld  TextS'  am  Programmanfang  einmal  auf  15  Elemente 
fest.  Das  ist  dann  in  jedem  Fall  ausreichend.  Loschen  Sie  bitte 
zunSchst  den  Befehl 

DIM  Text$(Zeilen) 

im  Texteingabe-Teil.  Sie  konnen  ihn  dazu  mit  Hilfe  der  Maus 
hervorheben  und  dann  durch  Driicken  der  Taste 
<BACKSPACE>  loschen. 

Man  kann  mit  einem  DIM-Befehl  auch  mehrere  Felder  gleich- 
zeitig  definieren.  Wenn  wir  sowieso  gerade  dabei  sind,  erledigen 
wir  deshalb  gleich  alle  Felddimensionen,  die  im  Verlauf  unseres 
Programm  noch  benotigt  werden.  Wozu  jedes  einzelne  Feld  da 
ist,  erklaren  wir  jeweils  an  der  Stelle,  wo  es  benutzt  wird.  Be- 
wegen  Sie  den  Cursor  jetzt  an  den  Anfang  des  Listings,  und  ge- 
ben  Sie  die  folgenden  Zeilen  ein: 

Vorbereitungen: 

d=15 

DIM  Text$(d),Farbfeld<d,3),Beweg(d),Geschw<d) 

Nachdem  das  letzte  Stuck  Tippen  ein  biBchen  kurz  war,  jetzt 
mal  wieder  etwas  mehr.  Ubrigens  -  vergessen  Sie  bitte  nicht,  hie 
und  da  mal  wieder  das  Programm  abzuspeichern.  Es  ist  ja  seit 
dem  letzten  Mal  ein  beachtliches  Stuck  angewachsen. 

Ubrigens:  Wenn  Sie  sich  den  folgenden  Teil  jetzt  ansehen  und  in 
Ihnen  der  EntschluB  reift,  das  Listing  lieber  nicht  abzutippen, 
dann  wollen  wir  Sie  an  dieser  Stelle  nochmal  an  die  Diskette  im 
Buch  erinnern.  Sie  finden  das  vollstandige  Videotitel-Programm 
in  der  Schublade  "Videotitel".  Der  Programmname  ist  ebenfalls 
"VideotiteP.  Sollte  es  da  beim  Anklicken  Probleme  geben,  dann 
denken  Sie  bitte  daran,  daB  Sie  zuerst  "AmigaBASIC"  auf  die 
Diskette  kopieren  miissen.  Wir  haben  Ihnen  im  Zwischenspiel  1 
gezeigt,  wie  das  geht. 
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Fur  alle,  die  aber  doch  lieber  dem  Prinzip  "Lernen  durch  Tip- 
pen"  folgen  wollen,  hier  nun  endlich  das  Listing: 

Bewegen: 

PRINT  "Legen  Sie  bitte  die  Ausgangsposition  fest." 

PRINT  "Bewegen  Sie  das  Objekt  mit  den  Cursortasten." 

PRINT  "Bestatigung  mit  <RETURN>" 

ox=100  :  oy=100  :  Ziel=0 

OBJECT. HIT  1,0,0 

OBJECT. ON  1 

OBJECT. STOP  1 

Schleife: 

a$=INKEY$ 

IF  a$=CHR$<13)  THEN  Zieldef 

IF  a$=CHR$<28)  THEN  oy=oy-2 

IF  a$=CHR$(31)  THEN  ox=ox-5 

IF  a$=CHR$(30)  THEN  ox=ox+5 

IF  a$=CHR$(29)  THEN  oy^oy+. 

OBJECT. X  1,ox  :  OBJECT  -  i,o* 

GOTO  Schleife 

Zieldef: 

CLS 

Beweg(Ziel*2+1)=  x  :  Beweg(Ziel*2+2)=oy 

Ziel=Ziel+1  :  Beweg(0)=Ziel 

IF  Ziel=7  THEN  Enddef 

PRINT  "Bitte  bewegen  Sie  das  Objekt  zum,,Ziet".  Zielpunkt." 

PRINT  "<RETURN>  =  Bestatigung" 

PRINT  "<ESC>  =  Ende"Schleife2: 

a$=INKEY$ 

IF  a$=CHR$(13)  THEN  Zieldef 

IF  a$=CHR$(27)  THEN  Enddef 

IF  a$=CHR$(28)  THEN  oy=oy-2 

IF  a$=CHR$(31)  THEN  ox=ox-5 

IF  a$=CHR$(30)  THEN  ox=ox+5 

IF  a$=CHR$(29)  THEN  oy=oy+2 

OBJECT. X  1,ox  :  OBJECT. Y  1,oy 

GOTO  Schleife2 
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Enddef: 
Beweg(0)=Ziel 
OBJECT. OFF  1 
CLS  :  GOTO  Anfang 

Na,  auch  wieder  da?  Sobald  Sie  dieses  Listing  abgetippt  haben, 
haben  Sie  sich  eine  kleine  Pause  verdient.  Weil  es  aus  produk- 
tionstechnischen  Grunden  leider  nicht  mflglich  war,  diesem  Buch 
eine  Packung  Eis  beizulegen,  miissen  wir  Sie  leider  auf  Ihren  ei- 
genen  Kiihlschrank  verweisen.  Guten  Appetit!  Die  Pause  sollten 
Sie  auf  jeden  Fall  auch  zum  Abspeichern  benutzen. 

Jetzt  wieder  frisch  gestarkt  ans  Werk:  Die  Befehle,  die  wir  an- 
hand  dieses  Programmteils  besprechen  wollen,  fallen  in  zwei 
unterschiedliche  Gruppen:  OBJECT-Befehle  und  andere. 

Fangen  wir  mit  den  anderen  an.  Da  gibt  es  namlich  nur  einen 
einzigen  Neuling:  CHR$(x).  Um  ihn  zu  erklaren,  miissen  wir 
einen  kurzen  theoretischen  Abstecher  einlegen.  Lehnen  Sie  sich 
also  am  besten  einen  Moment  zuruck  und  machen  Sie  es  sich 
bequem.  Wir  laden  ein  zur  phantastischen  Reise  und  zeigen  Ih- 
nen,  wie  das  Gehirn  Ihres  Computers  funktioniert. 

Nach  auBen  vermittelt  unser  Computer  ja  den  Eindruck,  als 
konne  er  mit  Zahlen  und  Buchstaben  ganz  selbstverstSndlich 
umgehen,  und  der  Amiga  kann  auch  ohne  Ubertreibung  als  Ver- 
treter  einer  neuen  technologischen  Generation  bezeichnet  wer- 
den.  Aber  an  den  Grundprinzipien,  wie  ein  Computer  funk- 
tioniert, hat  sich  trotzdem  seit  den  ersten  elektrischen  Rechen- 
maschinen  nichts  ge&ndert:  Im  Innersten  seines  Herzens,  den 
Chips,  kann  jeder  Computer  eigentlich  nur  zwei  Zust&nde  von- 
einander  unterscheiden:  Namlich  "Strom  flieflt"  und  "Strom  flieBt 
nicht".  Das  h6rt  sich  vielleicht  nach  einer  Binsenweisheit  an, 
("1st  ja  klar:  Kein  Strom  -  Amiga  aus.  Strom  vorhanden  -  Amiga 
an.")  aber  so  meinen  wir  das  nicht. 

Aus  den  beiden  Zustanden  "an"  und  "aus",  "Strom"  und  "kein 
Strom"  leiten  die  elektronischen  Bauteile  n&mlich  alles  andere  ab. 
"An"  und  "aus"  entspricht  zunachst  mal  0  und  1.  Diese  kleinste 
Einheit  der  Informationsspeicherung  nennt  man  ein  Bit,  Durch 
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verschiedene  Tricks  und  das  Prinzip  der  Binarzahlen  schafft  es 
ein  Computer,  mehrere  Bits  gleichzeitig  zu  verarbeiten  und  sich 
so  zu  einem  etwas  hdheren  geistigen  Horizont  aufzuschwingen: 
Er  kann  mit  diesen  Hilfsmitteln  nicht  mehr  nur  noch  0  und  1 
bzw.  Strom  oder  kein  Strom  unterscheiden,  sondern  sogar 
groBere  Zahlen  darstellen.  Aber  um  den  Schritt  von  den  Zahlen 
zu  Buchstaben  und  Zeichen  zu  schaffen,  war  noch  einmal  eine 
ganz  besondere  Idee  notwendig:  Dazu  wird  namlich  jedem  dar- 
stellbaren  Zeichen  eine  Zahl  zwischen  0  und  255  zugeordnet. 
DaB  es  ausgerechnet  255  Zeichen  sein  miissen,  ist  ein  Uber- 
bleibsel  aus  der  Zeit,  als  255  die  hochste  Zahl  war,  die  ein 
Computer  ohne  besondere  Anstrengungen  verwalten  konnte.  (Fur 
den  68000-Prozessor  im  Amiga  ist  z.B.  4294967294  die  hochste 
Zahl,  die  er  auf  einen  Schlag  verstehen  kann.) 

Die  Tabelle,  nach  der  die  Zuordnung  von  Zahlen  und  Zeichen 
erfolgt,  ist  gliicklicherweise  schon  vor  langer  Zeit  vereinheitlicht 
worden.  Das  ist  auch  gut  so,  sonst  kOnnten  verschiedene  Com- 
puter namlich  untereinander  keine  Daten  austauschen,  wenn  man 
sie  z.B.  durch  ein  Kabel  verbindet.  Und  auf  diese  Weise  kom- 
men  doch  manchmal  recht  interessante  Dinge  zustande...  Der 
Name  fur  die  Zuordnungstabelle  heiBt  "ASCII-Code"  (engl.: 
American  Standard  Code  for  Information  Interchange,  deutsch: 
Amerikanischer  Standard-Code  fur  Informationsaustausch).  Er 
wurde,  wie  der  Name  schon  sagt,  in  Amerika  entwickelt  und  fur 
deutsche  Verhaltnisse  modifiziert.  Eine  Tabelle  der  ASCII-Codes 
finden  Sie  im  BASIC-Referenzteil  dieses  Buchs  beim  CHR$- 
Befehl. 

Damit  w^ren  wir  wieder  beim  Ausgangspunkt:  Der  Befehl  CHR$ 
dient  dazu,  aus  einem  ASCII-Code  das  zugehorige  Zeichen  zu 
machen.  Und  jetzt  schreiten  wir  zu  einem  kleinen  Experiment, 
mit  dem  wir  das  Innere  des  Rechners  nach  auBen  kehren  wollen: 
Geben  Sie  bitte  die  folgende  Zeile  im  Direktmodus  ein.  (Klicken 
Sie  aber  vorher  das  LIST-Window  in  den  Hintergrund,  damit  Sie 
genug  Platz  auf  dem  Bildschirm  haben.) 

width  60  :  for  x=0  to  255  :  ?chr$(x);  :  next  x  <RETURN> 


114 AmigaBASIC 


Wundern  Sie  sich  bitte  nicht  iiber  den  Piepser,  den  Sie  hSren 
werden.  Der  ist  namlich  auch  im  ASCII-Code  enthalten.  Womit 
das  vorhin  Gesagte  etwas  eingeschriinkt  werden  muB:  Es  gibt 
nicht  nur  auf  dem  Bildschirm  darstellbare  Zeichen,  sondern  auch 
sogenannte  Steuerzeichen.  CHR$(7)  ist  so  eines.  Es  erzeugt  den 
Piepser.  Oder  CHR$(12).  Dies  loscht  den  Bildschirm. 

Aber  auch  wenn  man  sich  diese  Zeichen  einmal  wegdenkt,  kann 
der  Amiga  noch  ganz  schon  viele  darstellen,  oder?  Sie  muGten 
auf  Ihrem  Bildschirm  zunachst  alle  Satzzeichen,  Ziffern,  GroB- 
und  Kleinbuchstaben  sehen  und  in  der  unteren  Halfte  eine 
ziemliche  Menge  landesspezifischer  Sonderzeichen. 

AuBerdem  gibt  es  auch  mehrfach  ein  kleines,  eckiges  K&stchen. 
Zu  diesem  Zeichen  greift  der  Amiga  immer  dann,  wenn  er  nicht 
weiter  weiB,  oder  etwas  fachmannischer  ausgedruckt,  wenn  er 
ein  Zeichen  mit  seinem  Zeichensatz  nicht  darstellen  kann.  Wenn 
Sie  z.B.  auf  die  <HELP>-Taste  oder  auf  eine  der  Funktions- 
tasten  in  der  obersten  Reihe  des  Bildschirms  driicken,  erscheint 
dieses  Kastchen.  So  ist  es  zumindest  in  der  Version  1.0  von 
AmigaBASIC.  Vielleicht  fallt  den  Programmierern  bei  Microsoft 
ja  in  Zukunft  noch  eine  bessere  Verwendung  fur  diese  Tasten 
ein... 

So,  damit  sind  wir  wieder  zuriick  in  unserer  normalen  Welt,  wo 
wir  mit  Wortern  und  Buchstaben  ganz  normal  umgehen.  Nach 
alledem,  was  Sie  jetzt  wissen,  werden  Sie  auch  den  CHR$-Be- 
fehl  sofort  verstehen.  In  unserem  Programm  wird  er  verwendet, 
urn  abzupriifen,  ob  bestimmte  Tasten  gedriickt  wurden.  Das  geht 
namlich  auch.  Das  folgende  kleine  Programm  wartet  zum  Bei- 
spiel,  bis  die  Taste  <ESC>  gedriickt  wird: 

Uarten: 

IF  INKEY$<>CHR$(27)  THEN  Warten 

Dieses  Beispielprogramm  gehort  nicht  zum  Videotitel-Generator. 
Geben  Sie  es  jetzt  also  bitte  nicht  ein.  Wenn  Sie  sich  fragen,  wie 
man  rausbekommt,  welcher  Taste  welche  Zahl  entspricht  -  auch 
dazu  ist  eine  ASCII-Tabelle  im  BASIC-Referenzteil  da. 
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Jetzt  kommen  wir  zum  eigentlichen  Kern  unseres  Programms: 
Den  OBJECT-Befehlen.  Um  bewegliche  Objekte  (also  Bobs  Oder 
Sprites)  sichtbar  zu  machen  und  zu  steuern,  gibt  es  in  Amiga- 
BASIC  eine  eigene  Gruppe  von  Anweisungen:  Sie  beginnen  alle 
mit  dem  Wort  OBJECT,  dann  folgt  ein  Punkt,  und  dann  kommt 
der  eigentliche  Befehl.  Einen  von  dieser  Sorte  kennen  Sie  schon, 
n&mlich  den  Befehl  OBJECT.SHAPE.  Er  dient  dazu,  einem  Ob- 
jekt  eine  bestimmte  Form  zuzuweisen.  Seine  Befehlssyntax  sieht 
so  aus: 

OBJECT.SHAPE  Objekt-Nr.,  Definitions-String 

Von  Syntax  spricht  man  bei  BASIC  ubrigens  immer  dann,  wenn 
es  um  die  richtige  Zusammenstellung  von  Befehlen  und  den 
dazugehorigen  Werten  geht.  Wenn  Sie  zum  Beispiel  im  BASIC- 
Window 

object. shape  1  <RETURN> 

eingeben,  verstoBen  Sie  gegen  die  richtige  Syntax,  weil  Sie  den 
zweiten  Wert,  den  Definitions-String,  weggelassen  haben.  Sie 
kdnnen  dieses  Beispiel  einmal  ausprobieren.  Dann  wird  Ihnen 
der  Amiga  sagen,  daB  Sie  einen  "Syntax  error"  gemacht  haben  - 
also  einen  Syntax-Fehler.  Der  Ausdruck  "Syntax-Fehler"  kommt 
Ubrigens  eigentlich  aus  der  Sprachlehre.  Es  ist  ein  Begriff,  der 
fur  falschen  Satzbau  steht.  Wenn  Sie  sich  AmigaBASIC  wie  eine 
Fremdsprache  vorstellen,  dann  macht  das  auch  Sinn.  Eine 
falsche  Zusammenstellung  von  Worten  ist  fur  Amiga  unver- 
stiindlich.  Deshalb  sagt  er  dann  eben  "Syntax  Error"  und  meint, 
daB  noch  irgend  etwas  fehlt  Oder  sonstwie  falsch  ist. 

Fur  die  Werte,  die  zu  einem  Befehl  gehoren,  benutzt  man  auch 
den  Ausdruck  "Parameter".  Der  Wert  Objekt-Nr.  ist  zum  Beispiel 
einer  der  Parameter  beim  OBJECT.SHAPE-Befehl.  Im  Video- 
titel-Programm  ist  dieser  Wert  immer  1,  denn  wir  verwenden  in 
diesem  Programm  nur  das  Objekt  mit  der  Nummer  1.  Den  Defi- 
nitions-String (also  in  unserem  Fall  den  Bob)  kennen  Sie  ja 
schon:  Er  wurde  mit  dem  Object  Editor  erzeugt  und  auf  Dis- 
kette abgespeichert.  Von  dort  kann  man  ihn  dann  in  jedes 
BASIC-Programm  einlesen. 
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Zwei  weitere  OBJECT-Befehle  sind  OBJECT.X  und  OBJECT. Y. 
Die  brauchen  Sie,  urn  ein  Objekt  an  eine  beliebige  Stelle  des 
Bildschirms  zu  setzen.  Dabei  gibt  es  fur  jedes  Objekt  eine  hori- 
zontale  Koordinate  (X)  und  eine  vertikale  (Y).  Die  Koordinate 
gibt  die  Lage  der  linken  oberen  Ecke  des  Objekts  an.  Der  sicht- 
bare  Bereich  liegt  fur  X  zwischen  0  und  617,  fiir  Y  zwischen  0 
und  185.  "Sichtbarer  Bereich"  deshalb,  weil  Sie  innerhalb  dieses 
Bereichs  das  Objekt  auf  dem  Bildschirm  sehen  k6nnen.  Sie  kSn- 
nen  auch  Koordinaten  auBerhalb  des  Bildschirms  angeben,  das 
ist  aber  eigentlich  nur  solange  sinnvoll,  wie  das  Objekt  noch 
wenigstens  teilweise  auf  dem  Bildschirm  zu  sehen  ist.  Um  die 
Koordinaten  dem  Amiga  mitzuteilen,  werden  die  beiden  Befehle 
so  verwendet: 

OBJECT.X  Objekt-Nr.,  x-Koordinate 
OBJECT.Y  Objekt-Nr.,  y-Koordinate 

Allerdings  ist  auch  nach  der  Eingabe  dieser  beiden  Befehlen 
noch  nichts  zu  sehen  von  dem  spannungsvoll  erwarteten  Objekt. 
Dazu  bendtigen  Sie  niimlich  noch  einen  weiteren  Befehl: 

OBJECT.ON  Objekt-Nr. 

Damit  wird  ein  Objekt,  dessen  Koordinaten  dem  Amiga  bekannt 
sind,  eingeschaltet  und  somit  auf  dem  Bildschirm  sichtbar.  Das 
Gegenstiick  dazu  ist  iibrigens: 

OBJECT.OFF  Objekt-Nr. 

Dieser    Befehl    laBt   das    Objekt    wieder    vom    Bildschirm    ver- 

schwinden. 

Nun  heiBen  diese  Objekte  ja  "bewegliche  Objekte".  Deshalb  be- 
steht  AnlaB  zu  der  Vermutung,  daB  es  auch  Befehle  gibt,  um  sie 
zu  bewegen. 

Wer  suchet,  der  findet.  Zum  Beispiel  OBJECT.VX  und 
OBJECT. VY.  Das  V  vor  X  und  Y  steht  fur  das  englische  Wort 
"velocity",    deutsch:    Geschwindigkeit.    Mit    OBJECT.VX    und 
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OBJECT. VY  k6nnen  Sie  die  Geschwindigkeit  angeben,  in  der 
sich  das  Objekt  auf  dem  Bildschirm  bewegen  soil.  VX  gibt  dabei 
wieder  die  horizontale  Richtung  an  und  VY  die  vertikale.  Die 
Einheit,  in  der  die  Geschwindigkeit  angegeben  wird,  ist  aber 
nicht  etwa  km/h  oder  etwas  Shnliches.  (Obwohl  Sie  im  Amiga 
sicher  keine  Angst  vor  Radarkontrollen  haben  mussen.)  Die 
Geschwindigkeit  wird  vielmehr  in  Bildpunkten  pro  Sekunde  an- 
gegeben. Sie  haben  sicher  schon  einmal  gehort,  daB  sich  die 
Bildschirmdarstellung  bei  Amiga  aus  einzelnen  Punkten  aufbaut. 
Uber  dieses  Prinzip  werden  wir  im  Kapitel  2.2  noch  genauer 
sprechen. 

In  der  Auflosungsstufe,  in  der  AmigaBASIC  normalerweise  ar- 
beitet,  stellt  der  Amiga  640  *  200  Punkte  dar.  (Berucksichtigt 
man  den  PAL-Bereich  der  Workbench,  sind  es  sogar  640*256 
Punkte,  aber  dazu  kommen  wir  spater.)  Wenn  man  davon  die 
Punkte  abzieht,  die  durch  den  Window-Rahmen  verlorengehen, 
kommt  man  genau  auf  den  sichtbaren  Bereich  der  OBJECT.X 
und  OBJECT.  Y-Befehle.  Tatsachlich  wird  auch  die  Startkoordi- 
nate  in  Bildschirmpunkten  angegeben. 

Eine  x-Geschwindigkeit  von  1  Bildpunkt  pro  Sekunde  bedeutet, 
daB  sich  das  angegebene  Objekt  innerhalb  einer  Sekunde  auf 
dem  Bildschirm  genau  einen  Bildpunkt  nach  rechts  bewegt.  Eine 
y-Geschwindigkeit  von  2  Bildpunkten  pro  Sekunde  bewirkt,  daB 
sich  das  Objekt  innerhalb  einer  Sekunde  zwei  Bildpunkte  nach 
unten  bewegt.  Geben  Sie  gleichzeitig  einen  x-  und  einen  y-An- 
teil  der  Geschwindigkeit  an,  bewegt  sich  das  Objekt  diagonal 
von  links  oben  nach  rechts  unten. 

"Und  was  wenn  ich  einmal  ein  Objekt  von  rechts  nach  links 
oder  von  unten  nach  oben  fliegen  lassen  will?"  Ganz  einfach  - 
dann  geben  Sie  eine  negative  Geschwindigkeit  an.  Eine  x-Ge- 
schwindigkeit von  -1  Bildpunkt  pro  Sekunde  ist  sozusagen  der 
Ruckw^rtsgang.  Wenn  Sie  beim  eigenen  Programmieren  spater 
einmal  die  Vorzeichen  fur  die  richtige  Richtung  heraustiifteln 
mussen,  hilft  Ihnen  vielleicht  die  folgende  Skizze: 
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-    Y 


-    X 


-  X,  -Y 


-  X,  +  Y 


+  X,  -  Y 


.     +   X 


+  X  ,  +  Y 


+   Y 


Bild  4: 


Die  Vorzeichen  fur  OBJECT-Geschwindigkeiten 


Soil  Ihr  Objekt  von  rechts  oben  nach  links  unten  fliegen,  dann 
muB  die  x-Geschwindigkeit  auf  jeden  Fall  negativ  sein  und  die 
y-Geschwindigkeit  positiv.  Die  GroBe  der  Werte  hangt  davon 
ab,  wie  schnell  die  Bewegung  sein  soil. 

Noch  ein  Tip:  Wenn  die  x-Geschwindigkeit  betragsmaBig  uber- 
wiegt,  wird  die  Bewegung  flacher.  1st  der  Betrag  von  y  groBer 
als  der  von  x,  bewegt  sich  das  Objekt  steiler. 


Um  beim  Amiga  aufs  Gaspedal  zu  driicken,  werden  die  beiden 
Befehle  folgendermaBen  verwendet: 
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OBJECT.VX  Objekt-Nr.,  x-Geschwindigkeit 
OBJECT.VY  Objekt-Nr.,  y-Geschwindigkeit 

Damit  haben  Sie  aber  -  ahnlich  wie  bei  OBJECT.X  und  OB- 
JECT.Y  -  nur  die  Werte  voreingestellt.  Um  das  Objekt  anzu- 
schubsen,  brauchen  Sie  noch  den  Befehl 

OBJECT.START  Objekt-Nr. 

Wenn  AmigaBASIC  diesen  Befehl  findet,  geht's  los  mit  der  Be- 
wegung. Und  jetzt  kommt  das  tollste:  Ab  diesem  Augenblick 
brauchen  Sie  sich  um  das  Objekt  gar  nicht  mehr  zu  kummern. 
Sie  konnen  also  Ihr  BASIC-Programm  irgendetwas  anderes  tun 
lassen,  der  Amiga  sorgt  selbst&ndig  fur  die  richtige  Ausfuhrung 
der  programmierten  Bewegung.  Allerdings  sollte  es  immer  eine 
Notbremse  geben.  Das  heiBt,  eigentlich  ist  der  nun  folgende 
OBJECT.STOP-Befehl  nicht  nur  eine  Notbremse,  sondern  die 
Bremse  schlechthin.  Beim  Befehl 

OBJECT.STOP  Objekt-Nr. 

beendet  das  angegebene  Objekt  jede  Bewegung  und  bleibt  an 
seinem  augenblicklichen  Standort  stehen.  Zwischendurch  be- 
merkt:  Jetzt  verstehen  Sie  sicher  auch,  warum  man  vorher  beim 
Einlesen  dem  Objekt  eine  eigene  Objektnummer  zuweisen  muB. 
Nur  so  ist  es  moglich,  bestimmte  Befehle  auf  einzelne  Objekte 
zu  beschranken. 

Es  gibt  noch  weitere  Befehle  zur  Objekt-Steuerung.  Einige  da- 
von  brauchen  wir  in  unserem  Videotitel-Programm  nicht.  Des- 
halb  wollen  wir  Sie  auch  an  dieser  Stelle  nicht  weiter 
besprechen.  Sie  finden  jedoch  eine  genaue  Beschreibung  dieser 
Befehle  mit  Programmbeispielen  im  BASIC-Referenzteil  unseres 
Buches. 

Doch  einen  Befehl  hatten  wir  fast  vergessen:  Er  kommt  im  Pro- 
grammteil  'Bewegen:'  vor  und  heiBt  OBJECT.HIT.  AmigaBASIC 
bietet  die  MGglichkeit,  abzufragen,  ob  Objekte  miteinander  oder 
mit  dem  Bildschirmrand  zusammenstoBen.   Kollisions-Kontrolle 
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nennt  man  das.  Die  Kollision  von  Objekten  ist  eines  der  Ereig- 
nisse  (engl.:  events),  die  EinfluB  auf  ein  Programm  nehmen  k6n- 
nen.  Zu  diesem  Thema  kflnnen  Sie  beim  Befehl 
ON  COLLISION  GOSUB  im  BASIC-Referenzteil  NSLheres  er- 
fahren.  Allerdings  miissen  wir  den  Befehl  schon  jetzt  einmal  er- 
wahnen,  denn  ohne  die  Angabe  von  OBJECT.HIT  wurde  unser 
Objekt  sofort  anhalten,  sobald  es  mit  irgendetwas  zusammen- 
stoBt.  Das  ist  zwar  ganz  im  Sinne  der  StraBenverkehrsordnung, 
aber  in  unserem  Programm  unerwiinscht.  Aus  diesem  Grund 
wird  mit 

OBJECT.HIT  Objekt.Nr,  0,  0 

festgelegt,  daB  unser  Objekt  mit  alien  denkbaren  Gegnern  be- 
denkenlos  zusammenstoBen  darf  (also  sowohl  mit  anderen  Gra- 
fikobjekten,  die  aber  in  unserem  Fall  eh1  nicht  da  sind,  als  auch 
mit  dem  Bildschirmrand). 

Nachdem  auch  dies  klar  ist,  stellt  sich  eigentlich  nur  noch  eine 
kleine,  fast  unscheinbare  Frage:  Wie  funktioniert  das  Ganze  ei- 
gentlich? Was  steckt  hinter  dem  neu  eingegebenen  Teil  des 
Videotitel-Programms?  Bereits  vorher  haben  wir  ja  abgepruft, 
ob  uberhaupt  schon  ein  Objekt  eingelesen  wurde.  Falls  eines 
vorhanden  ist,  werden  zun&chst  die  Variablen  'ox'  und  'oy*  auf 
den  Wert  100  gesetzt.  Diese  Variablen  helfen  uns,  im  Auge  zu 
behalten,  an  welcher  Koordinate  sich  das  Objekt  befindet.  Den 
Befehl  OBJECT.HIT  1,0,0  haben  wir  gerade  eben  schon  erklart. 
Weiterhin  sorgt  der  Programmteil  'Bewegen:*  dafur,  daB  Objekt 
Nr.  1  eingeschaltet  wird  und  eine  eventuell  noch  stattfindende 
Bewegung  aufh5rt.  Letzteres  deshalb,  weil  in  der  sp&teren 
Anwendung  des  Videotitel-Programms  von  vorherigen  Aktionen 
noch  eine  Bewegung  im  Speicher  stehen  kann,  die  beim  Ein- 
schalten  des  Objekts  fortgesetzt  wurde. 

Nun  kann  der  Anwender  das  Grafikobjekt  mit  den  Cursortasten 
steuern.  Je  nach  dem,  welche  Taste  gedruckt  wird,  &ndern  sich 
die  Werte  fur  die  x-  oder  die  y-Koordinate.  Das  wird  im 
Programmteil  'Schleife:'  solange  wiederholt,  bis  die  <RETURN>- 
Taste  gedruckt  wird.  Dann  namlich  wird  die  aktuelle  Position  als 
Anfangspunkt  der  Bewegung  tibernommen.  Das  Programm  ver- 
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zweigt  zum  Teil  'ZieldefV.  An  dieser  Stelle  tritt  das  Datenfeld 
'Beweg'  in  Aktion,  das  wir  ganz  oben  im  Programm  definiert 
haben.  Hier  werden  der  Reihe  nach  die  x-  und  die  y-Koordi- 
naten  der  Zwischenpunkte  unserer  Bewegung  abgelegt.  Die  Va- 
riable *Ziel'  gibt  dabei  Auskunft  dariiber,  wieviele  Zwischen- 
punkte es  schon  gibt.  Ihr  Wert  wird  in  der  ersten  Position  des 
Feldes,  namlich  Beweg(O),  festgehalten,  weil  wir  diese  Zahl 
spSter  wieder  brauchen.  Die  Anzahl  haben  wir  auf  insgesamt  7 
Punkte  beschrankt. 

Die  Festlegung  der  folgenden  Zielpunkte  funktioniert  genauso 
wie  die  Definition  des  Anfangspunktes.  Also  mit  den  Cursor- 
tasten  und  <RETURN>  zur  Ubernahme  des  festgelegten  Punk- 
tes.  Durch  Driicken  der  Taste  <ESC>  oder  nach  der  Eingabe  des 
sechsten  Zielpunktes  wird  die  Eingabe  beendet.  Der  Programm- 
teil  'Enddef:'  bringt  noch  mal  die  Anzahl  der  Zielpunkte  auf  den 
neuesten  Stand,  nimmt  das  Objekt  vom  Bildschirm  und  kehrt 
zuriick  zur  Hauptauswahl. 

Wenn  Sie  jetzt  das  Programm  bis  zu  diesem  Punkt  einmal  aus- 
probieren  mochten,  starten  Sie  es  bitte.  Lesen  Sie  dann  mit  der 
Programmoption  2  ("Object  einlesen")  Ihren  Star  ein.  Oder  auch 
irgendein  anderes  Grafikobjekt,  wenn  Sie  mit  dem  Object  Editor 
mehrere  produziert  haben  sollten.  Mit  Option  3  ("Obj. Bewegung 
festlegen")  konnen  Sie  dann  sehen,  daB  Kunst  frei  ist:  Ihr  kleines 
Bildnis  laBt  sich  iiber  den  Bildschirm  bewegen,  wie  Sie  wollen. 
Spielen  Sie  ruhig  ein  wenig  damit  herum,  denn  nur  so  finden  Sie 
heraus,  ob  Sie  bei  der  Eingabe  vielleicht  einen  Fehler  gemacht 
haben,  der  jetzt  eine  entsprechende  Meldung  produzieren  wurde. 
Je  komplexer  ein  Programm  wird,  umso  wichtiger  ist  dieses 
Herumprobieren.  Um  Ihnen  einen  etwas  besseren  Ausdruck  da- 
fur  zu  geben:  Austesten.  Nur  fur  den  Fall,  daB  jemand  aus  der 
Familie  fragt... 


122  Ami gaB ASIC 


1.16      Jetzt  kommt  Farbe  ins  Spiel  -  die  Farbsteuerung 

Der  Amiga  kann  4096  verschiedene  Farben  darstellen.  Diese 
Nachricht  war  es,  die  wohl  fur  die  meiste  Furore  sorgte,  als  ge- 
riichteweise  die  ersten  Merkmale  unseres  Computers  bekannt 
wurden.  Mittlerweile  ist  das  fiir  Sie  sicher  keine  groBartige 
Neuigkeit  mehr.  Wie  ist  diese  Farbenpracht  eigentlich  moglich, 
wenn  doch  mancher  Computer  noch  vor  kurzem  schon  ernstliche 
Schwierigkeiten  hatte,  nur  16  einigermaBen  voneinander  unter- 
scheidbare  Farben  zu  produzieren? 

Einer  der  ausschlaggebenden  Punkte  ist  der  Monitor  des  Amiga. 
Es  handelt  sich  dabei  namlich  um  einen  sogenannten  analogen 
RGB-Monitor.  Sie  werden  jetzt  zu  Recht  fragen,  was  "analog" 
bedeuten  soil.  Und  "RGB"...!?  (Spricht  man  ubrigens:  Er  Ge  Be.) 
Das  Funktionsprinzip  eines  Fernsehers  kennen  Sie  vielleicht:  Ein 
Elektronenstrahl  schreibt  Zeile  fur  Zeile  des  Bildes  auf  den 
Bildschirm.  Durch  das  Auftreffen  des  Strahls  wird  eine  Leucht- 
schicht  auf  dem  Bildschirm  zum  Leuchten  angeregt  -  die  Bild- 
punkte  entstehen  auf  dem  Schirm.  Durch  die  hohe  Geschwindig- 
keit  dieses  Vorgangs  merkt  unser  relativ  trages  Auge  nicht,  wie 
das  Bild  punktweise  bzw.  zeilenweise  aufgebaut  wird.  Es  sieht 
das  komplette  Bild. 

So  weit  so  gut.  Wenn  die  Technik  heute  auch  noch  so  simpel 
ware,  g&be  es  nur  einfarbige  Monitore.  Zum  Beispiel  die  grunen 
Monochrom-Monitore  (die  toller  klingen  als  sie  sind: 
"Monochrom"  ist  griechisch  und  heiBt  "einfarbig"),  die  eine  be- 
kannte  Computerfirma  standardmaBig  ihren  Geraten  beipackt 
(die  sie  seit  einigen  Jahren  erstaunlich  erfolgreich  als  "Weltstan- 
dard"  verkauft). 

Schon  ein  Schwarz/WeiB-Fernseher  ist  technisch  anspruchsvoller. 
Bei  ihm  ist  der  Elektronenstrahl  in  der  Intensitat  variabel,  so 
daB  beliebige  Abstufungen  zwischen  schwarz  und  weiB,  also 
Grauwerte,  erreicht  werden  konnen.  Wie  diese  Darstellungsart  in 
Griin  aussieht,  konnen  Sie  sich  mal  ansehen,  wenn  Sie  die 
Klappe  an  Ihrem  Amiga-Monitor  offnen  und  die  auBerst  rechte 
Taste  driicken,  unter  der  das  Wort  GREEN  steht.  Nochmaliges 
Driicken  dieser  Taste  bringt  Ihnen  die  vertraute  Farbe  zuriick. 
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Manche  Leute  empfinden  bei  langem,  konzentriertem  Arbeiten 
die  Grundarstellung  als  angenehmer,  deshalb  die  Umschalttaste. 

Als  einige  geniale  Leute  den  Farbfernseher  erfanden,  machten 
sie  folgendes:  Sie  installierten  drei  Elektronenstrahlen  neben- 
einander,  die  jeweils  verschieden  beschaffene  Punkte  auf  dem 
Bildschirm  zum  Leuchten  brachten.  Eine  Art  dieser  Punkte 
leuchtet  griin,  eine  andere  rot  und  eine  dritte  blau.  Rot-Griin- 
Blau,  RGB,  kommt  Ihnen  ein  Verdacht? 

Andere  pfiffige  Leute  haben  namlich  entdeckt,  daB  sich  aus 
diesen  drei  Farben  alle  anderen  Farben  erzeugen  lassen.  Zumin- 
dest  funktioniert  das  bei  Fernsehern  so.  In  einem  Malkasten 
geht's  ja  etwas  anders.  Die  drei  Strahlen  sind  wieder  in  ihrer 
Intensitat  variabel.  So  konnen  beliebige  Farbschattierungen  er- 
zeugt  werden.  Diese  Idee  war  bei  Fernsehern  sehr  schnell  er- 
folgreich,  aber  sie  brauchte  wieder  einige  Zeit,  um  sich  bei  den 
Computerherstellern  durchzusetzen.  Die  Leute,  deren  Geistes 
Kind  die  einfarbig  grune  Darstellung  war,  bauten  jetzt  namlich 
Farbmonitore  mit  drei  unveranderbar  starken  Stahlen  fur  Rot, 
Griin  und  Blau.  So  etwas  geht  wegen  der  An/Aus-Mentalitat 
von  Computern  auch  recht  einfach:  Zwischen  Computer  und 
Monitor  gibt  es  dann  drei  Leitungen  fur  R,  G  und  B.  Das  Re- 
sultat  war  eine  Beschrankung  auf  acht  Farben,  namlich  Schwarz, 
WeiB,  Rot,  Griin,  Blau,  Gelb,  Turkis  und  Violett.  Diese  Technik 
nennt  man  digitate  Farbsteuerung.  (Der  Ausdruck  "Digital"  wird 
in  der  Computertechnik  im  Sinne  von  0  oder  1  gebraucht.  Strom 
oder  nicht  Strom,  das  ist  hier  die  Frage.) 

Was  macht  der  Amiga  jetzt  so  ganz  anders?  Er  verwendet  auch 
nur  drei  Leitungen  fiir  seine  Farben.  Aber  jede  dieser  Leitungen 
kann  eine  in  16  Stufen  variable  Farbintensitat  iibermitteln.  Das 
Ergebnis  liegt  sehr  nah  an  den  Darstellungsmoglichkeiten  eines 
Farbfernsehers:  Ungeheure  Farbenvielfalt. 

Falls  Sie  den  Amiga  auch  nur  einige  Tage  besitzen,  ist  Ihnen  das 
RGB-Prinzip  sicher  nicht  mehr  ganz  unbekannt.  Fast  alle  Pro- 
gramme bieten  eine  Moglichkeit  zur  Einstellung  der  Farben  mit 
drei  Reglern  fiir  den  Rot-,  Griin-  und  Blau-Anteil  der  Farbe. 
Da     verhalten     sich     die     Malprogramme     Deluxe     Paint    oder 
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Graphicraft  genauso  wie  das  Voreinstellungsprogramm 
Preferences.  Wenn  Sie  nach  dieser  ganzen  Farb-Theorie  jetzt 
ungeheuer  Lust  darauf  verspuren,  Ihre  4096  Farben  auszupro- 
bieren,  konnen  Sie  ja  die  beiden  BASIC-Windows  verkleinern 
und  auf  der  Workbench  das  Programm  Preferences  anklicken. 
Vor  solchen  Aktionen  sollten  Sie  aber  unbedingt  die  aktuelle 
Version  des  Videotitel-Programms  abspeichern!  Am  unteren 
Bildschirmrand  von  Preferences  finden  Sie  die  drei  Schiebereg- 
ler.  Wenn  Sie  genug  ausprobiert  haben,  verlassen  Sie  Preferences 
einfach  durch  Klicken  ins  Feld  "Use".  Sie  sollten  allerdings  wis- 
sen,  daB  damit  bis  zum  Ausschalten  des  Amiga  die  von  Ihnen 
getroffene  Farbeinstellung  als  Standardeinstellung  gilt. 

Na,  wie  hat  es  Ihnen  gefallen?  Vielleicht  suchen  Sie  jetzt  ganz 
wild  nach  einem  BASIC-Fenster,  in  dem  drei  Schieberegler  sind. 
Aber  das  werden  Sie  nicht  finden.  Um  in  BASIC  an  diese  Far- 
benpracht  heranzukommen,  muB  man  schon  ein  wenig  pro- 
grammieren.  Aber  keine  Sorge:  Es  geht  ganz  einfach.  Der  Be- 
fehl,  den  Sie  dazu  brauchen,  heiBt  PALETTE.  Mit  ihm  konnen 
Sie  in  BASIC  Farben  andern.  PALETTE  braucht  vier  Parameter. 
Die  erste  Zahl  ist  die  Farbe,  die  Sie  andern  wollen.  Im  Normal- 
fall  stehen  Ihnen  in  AmigaBASIC  vier  Farben  zur  Verfugung. 
Das  sind  (mit  den  Nummern,  die  Sie  zum  Andern  angeben 
miissen): 

Farbe        Farbnummer 


blau  0 

weiB  1 

schwarz  2 

orange  3 


Die  nSchsten  drei  Zahlen  geben  den  Prozentanteil  an  Rot,  Griin 
und  Blau  an,  der  der  jeweiligen  Farbe  zugedacht  werden  soil. 
Dieser  Wert  muB  zwischen  0  (0%  =  kein  Anteil)  und  1  liegen 
(100%  =  voller  Anteil).  Probieren  Sie's  im  BASIC-Window  aus: 

palette  0,  0.6,  0.2,  0.4  <RETURN> 
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Na?  Jetzt  sagen  Sie  nur,  das  ware  nicht  schon.  Gut,  wenn's  Ih- 
nen  nicht  gefailt,  versuchen  Sie  eben  eigene  Werte.  Uber  Ge- 
schmack  l&Bt  sich  ja  bekanntlich  streiten. 

Sie  konnen  in  BASIC  iibrigens  die  0  vor  dem  Punkt  (der  eigent- 
lich  ein  Komma  sein  sollte,  aber  der  Amiga  ist  und  bleibt  halt 
Amerikaner)  weglassen.  Also  geht's  auch  so: 

palette  0,    .2,    .3,    .6  <RETURN> 

Und  weiPs  so  schfln  ist,  wollen  wir  jetzt  unserem  Videotitel- 
Programm  den  Punkt  "Farbauswahl"  einbauen.  Fugen  Sie  bitte 
zunachst  im  'Abfrage:'-Teil  die  Zeile 

if  a$="4"  then  Farbdef inition 

ein.  Auch  ganz  am  Anfang  im  Programmteil  "Vorbereitungen:" 
brauchen  wir  eine  kleine  Erweiterung.  Er  sollte  nach  Ihren 
Korrekturen  so  aussehen: 

Vorbereitungen: 

Farben=2 

d=15   :  Maxfarbe=(2AFarben)-1 

Textfa=1 

DIM  Text$(d),Farbfetd(d,3)lBeweg(d),Geschw(d) 

Fuetl$=STRING$(16,"-") 

Farbfeld(1,1)=15 

Farbfeld(1,2)=15 

Farbfeld<1,3)=15 

Jetzt  bitte  ans  Ende  des  Programms.  Hier  kommt  nun  wieder 
eine  etwas  langere  Passage.  Sie  konnen  ruhig  wahrend  des  Ein- 
tippens  eine  kleine  Verschnaufpause  einlegen.  Wir  haben  Zeit. 
Aber  vergessen  Sie  bitte  das  Abspeichern  nicht. 

Farbdef inition: 

CLS:PRINT  "Farbauswahl :" 

Farben: 

FOR  x=0  TO  Maxfarbe 

COLOR  -<x=0),x 
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LOCATE  5,(x*4)  +  1 

PRINT  x;CHR$(32);CHR$(32) 

NEXT  x 

Farbaenderung: 

LOCATE  7,1  :  COLOR  Textfa,Hintgr 

PRINT  "Uelche  Farbe  soil  geandert  werden?" 

PRINT  »(e=  Ende)";  :  BEEP 

INPUT  AntwortS 

IF  UCASE$(Antwort$)=»E"  THEN  Farbzuweisung 

Antwort$=LEFT$(Antwort$,2) 

Farbnr=VAL(Antwort$) 

IF  Farbnr<0  OR  Farbnr>Maxfarbe  THEN  BEEP:  GOTO  Farbaenderung 

RGBRegler: 

r=Farbfeld(Farbnr,1) 

g=Farbfeld(Farbnr,2) 

b=Farbfeld(Farbnr,3) 

LOCATE  10,1  :  PRINT  "Rot:   <7>=-  <8>=+  ";Fuell$ 

LOCATE  10,20+r  :  PRINT  CHR$(124); 

LOCATE  11,1  :  PRINT  »Grun:  <4>=-  <5>=+  ";Fuelt$ 

LOCATE  11,20+g  :  PRINT  CHR$<124); 

LOCATE  12,1  :  PRINT  "Blau:  <1>=-  <2>=+  ";Fuell$ 

LOCATE  12,20+r  :  PRINT  CHR$(124); 

LOCATE  13,1  :  PRINT  "      <0>=Farbe  o.k." 

PALETTE  Farbnr,r/16,g/16,b/16 

Tasteneingabe: 

Tast$=INKEY$ 

IF  Tast$=,,,,  THEN  Tasteneingabe 

IF  Tast$="7"  THEN  r=r-1 

IF  Tast$=»8fl  THEN  r=r+1 

IF  Tast$="4M  THEN  g=g-1 

IF  Tast$="5"  THEN  g=g+1 

IF  TastS^'n"  THEN  b=b-1 

IF  Tast$="21'  THEN  b=b+1 

IF  Tast$=,l01'  THEN  Farbaenderung 

IF  r<0  THEN  r=0 
IF  r>15  THEN  r=15 
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IF  g<0  THEN  g=0 
IF  g>15  THEN  g=15 
IF  b<0  THEN  b=0 
IF  b>15  THEN  b=15 

Farbfeld(Farbnr,1)=r 
Farbfeld(Farbnr,2)=g 
Farbfeld(Farbnr,3)=b 
GOTO  RGBRegler 

Farbzuweisung: 

a=Hintgr  :  a$="Hintergrund" 

GOSUB  Farbeingabe  :  Hintgr=a 

a=Textfa  :  a$="Textvordergrund" 
GOSUB  Farbeingabe  :  Textfa=a 

a=Texthi  :  a$="TexthintergrundM 
GOSUB  Farbeingabe  :  Texthi=a 

COLOR  Textfa,Hintgr 
CLS  :  GOTO  Anfang 

Farbeingabe: 

LOCATE  14,1 

PRINT  a$":  »;a 

Schleife  3: 

LOCATE  14,1 

PRINT  a$;  :  INPUT  AntwortS 

Antwort=VAl (AntwortS) 

IF  Antwort$="»  THEN  Antwort=.5 

IF  Antwort<0  OR  Antwort>Maxfarbe  THEN  BEEP  :  GOTO  Schleife3 

IF  Antworto.5  THEN  a=Antwort 

RETURN 

Sollten  Sie  ernsthaft  Schwierigkeiten  haben,  den  Einsatz  der 
Befehle,  die  wir  schon  besprochen  haben,  zu  verstehen,  sollten 
Sie  zuallererst  mal  im  Anhang  B  nachschlagen.  Dort  finden  Sie 
Befehlsiibersichten.  Wenn  das  nicht  klappt,  sollten  Sie  nochmals 
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den  ausfiihrlichen  Teil,  der  den  Befehl  hier  behandelt,  auf- 
merksam  durchlesen.  Denn  Iangsam  mussen  wir  darauf  bauen, 
daB  Sie  Grundfunktionen  selbst  verstehen. 

Jetzt  aber  wieder  ein  kurzer  Blick  auf  neue  Befehle:  Die  Funk- 
tion  STRING$(16,M-")  liefert  einen  16  Zeichen  langen  String  aus 
lauter  "-".  Einen  solchen  String  brauchen  wir  zur  Darstellung  der 
Farbregler.  Die  STRINGS-Funktion  ist  sehr  praktisch,  wenn  es 
darum  geht,  lange  Strings  zu  erzeugen,  in  denen  nur  ein  einziges 
Zeichen  vorkommt.  Wie  ware  es  zum  Beispiel  im  BASIC-Win- 
dow  mit  folgendem: 

width  75   :   ?  string$<825,"!")  <RETURN> 

Gut,  wir  geben's  zu,  das  war  gemein.  Ihr  Amiga  hatte  ganz 
schOn  zu  tun,  nicht  wahr?  Und  uberhaupt  haben  wir  noch  einen 
Riiffel  verdient:  Wenn  Sie  gut  aufgepaBt  haben,  ist  Ihnen  viel- 
leicht  aufgefallen,  daB  wir  bereits  zum  zweiten  Mai  den  Befehl 
WIDTH  verwenden,  ohne  ihn  erklart  zu  haben.  Wird  sofort 
nachgeholt:  WIDTH  dient  zur  Festlegung  der  erlaubten  Zeichen 
pro  Zeile  auf  dem  Bildschirm.  Das  ist  notig,  weil  der  Amiga  im 
Gegensatz  zu  anderen  Computern  am  rechten  Bildschirmrand 
nicht  automatisch  eine  neue  Zeile  anfangt.  Er  druckt  vielmehr 
aus  dem  Window  heraus,  und  die  Ausgabe  ward  nicht  mehr  ge- 
sehen.  Wenn  Sie's  nicht  glauben: 

width  255   :   ?  string$<825,"!")  <RETURN> 

Je  nach  der  verwendeten  Schrift  (60  oder  80  Zeichen  pro  Zeile, 
einstellbar  z.B.  mit  Preferences)  ist  WIDTH  62  oder  WIDTH  77 
der  hGchste  Wert,  wenn  alle  Zeichen  lesbar  bleiben  sollen. 

Als  nachstes  gabe  es  da  den  COLOR-Befehl.  Er  wird  benotigt, 
wenn  die  Schriftfarbe  geandert  werden  soil.  Hinter  COLOR 
werden  zwei  Parameter  angegeben.  Diese  Werte  geben  die  Farb- 
nummer  fur  Vordergrund  (erster  Wert)  und  Hintergrund  (zweiter 
Wert)  an.  Wollen  Sie  also,  wobei  wir  von  der  Grundbelegung  der 
Farben  ausgehen,  blau  auf  weiB  schreiben,  miiBten  Sie  eingeben: 

color  0,1  <RETURN> 
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Obrigens:  Sicher  wundern  Sie  sich,  warum  wir  trotz  Work- 
bench 1.2  und  deutscher  Tastaturanpassung  im  Listing  'Farbaen- 
derung:'  geschrieben  haben.  Der  Grund  ist  ganz  einfach:  In  Va- 
riablen  und  Labels  dtirfen  deutsche  Sonderzeichen  nach  wie  vor 
nicht  vorkommen,  sonst  gibt's  einen  "Syntax  error". 

Es  folgt  wieder  eine  Stringfunktion:  UCASE$(...).  Steht  fur  "Up- 
per Case"  und  heiBt  GroBschrift.  Diese  Funktion  setzt  einen 
String  vollstandig  in  GroBschrift  um: 

?  UCASE$  ("HaeTTeN  sle's  gEdACht?")  <RETURN> 

Bleiben  wir  doch  kurz  bei  den  Strings.  Da  steht  eine  Zeile  tiefer: 

Farbnr=LEFT$(Antwort$,2) 

'AntwortS'  ist  eine  Eingabe.  Moglicherweise  gibt  der  Benutzer 
einen  zu  langen  Wert  ein.  Das  Programm  interessiert  sich  aber 
nur  fur  die  ersten  beiden  Stellen.  Um  links  oder  rechts  Teile  ei- 
nes  Strings  zu  isolieren,  gibt  es  die  Befehle  LEFTS  und 
RIGHTS.  Dazu  wird  zum  einen  der  String  angegeben  und  zum 
anderen  die  Anzaht  der  Stellen,  die  abgeschnitten  werden  sollen. 
Wenn  Sie's  ausprobieren  wollen: 

?    Left$("HaUo''f3)f    rightSC'Amiga'1^)   <RETURN> 

"Moment  mal,  diesen  Trick  mit  LEFTS  konnten  wir  doch  im 
Hauptmenu  unseres  Programms  auch  gleich  noch  mit  auf- 
nehmen?"  Stimmt,  Sie  haben  recht.  Wo  wir  uns  doch  dort  so  be- 
muht  haben,  alle  denkbaren  Fehleingaben  abzufangen.  Ver- 
bessern  Sie  bitte  im  'Abfragef-Teil: 


INPUT  a$ 

a$=LEFT$(a$#1) 

IF  a$<"1"  OR  a$>"5"  THEN  BEEP  :  GOTO  Abfrage 
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Im  Programmteil  'Farbzuweisung:'  findet  sich  ein  Befehl  namens 
GOSUB.  Er  sieht  dem  bekannten  GOTO  ja  nicht  unahnlich,  aber 
ein  kleiner  Unterschied  besteht  doch:  GOSUB  ist  ein  Kurzel  aus 
"go  to  subroutine"  (deutsch:  "Gehe  zum  Unterprogramm").  Ein 
Unterprogramm  ist  ein  Programmteil,  der  von  einem  anderen 
Programmteil  benutzt  wird. 

Wenn  AmigaBASIC  auf  ein  GOSUB  trifft,  merkt  es  sich  die 
Zeile,  in  der  es  das  GOSUB  gefunden  hat.  Dann  springt  es  in 
das  angegebene  Unterprogramm.  Sobald  es  dort  den  Befehl 
RETURN  findet,  kehrt  es  zur  ursprunglichen  Zeile  zuri'ick.  RE- 
TURN gehort  so  zu  GOSUB  wie  NEXT  zu  FOR  oder  THEN  zu 
IF  oder  Dick  zu  Doof:  Die  beiden  tauchen  immer  zusammen  auf. 
Wenn  Sie  sich  jetzt  immer  noch  nicht  so  ganz  vorstellen  konnen, 
wie  das  Zusammenspiel  dieser  beiden  Anweisungen  aussieht, 
hilft  Ihnen  sicher  wieder  der  TRACE-Modus  zum  Verstandnis. 

Gleich  haben  wir  auch  diesen  Teil  geschafft.  Es  ist  nur  noch 
eine  kleine  Besonderheit  zu  erwahnen:  Sehen  Sie  dieses 
"IF  AntwortoO"  in  der  'SchleifeS:'?  Was  soil  das  heiBen?  Kleiner 
(<)  und  groBer  (>)  kennen  wir  ja,  aber  beide  auf  einmal?  "Eine 
Zahl  kann  doch  gar  nicht  kleiner  und  gleichzeitig  groBer  sein  als 
eine  andere?!"  Eben.  Und  deshalb  ist  in  BASIC  die  Kombination 
<>  das  Zeichen  fiir  "ungleich".  In  dem  Befehl  oben  wird  also  ab- 
gepruft,  ob  der  Wert  von  'Antwort'  nicht  gleich  0  ist. 

Wie  sieht  es  nun  mit  der  Funktion  unserer  Farbsteuerung  aus?  In 
der  Variablen  'Maxfarbe'  steht,  welche  die  hochste  erlaubte 
Farbnummer  ist.  Im  Moment  ist  das  fur  uns  die  Zahl  3.  Der 
Programmteil  'Farben:'  druckt  kleine  Kastchen  mit  alien  gultigen 
Farbnummern  auf  den  Bildschirm.  Danach  wird  der  Anwender 
gefragt,  welche  Farbe  geandert  werden  soil.  Er  kann  nun  die 
gewunschte  Farbnummer  oder  den  Buchstaben  "e"  eingeben.  "e" 
bedeutet  Ende,  also  keine  weiteren  Farbander'ungen.  Dank  der 
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Funktion  UCASES  darf  das  V  als  Klein-  oder  GroBbuchstabe 
eingegeben  werden. 

Wenn  eine  Farbnummer  gewahlt  wurde,  stellt  der  Programmteil 
'RGBRegler:1  ein  Reglersystem  fur  die  Farbeinstellung  dar.  Die 
Regler  konnen  mit  dem  Ziffernblock  auf  der  Tastatur  gut  be- 
dient  werden.  Die  Tasten  <7>  und  <8>  schieben  den  Rot-Regler 
auf  und  ab,  <4>  und  <5>  entsprechend  den  Grun-Regler  und  die 
Tasten  <1>  und  <2>  den  Blau-Regler.  Die  Taste  <0>  bestatigt, 
daB  die  Farbe  jetzt  okay  ist.  In  diesem  Fall  springt  das  Pro- 
gramm  zuruck  und  fragt,  ob  eine  weitere  Farbe  verandert  wer- 
den soil.  Die  Variablen  V,  'g'  und  'b'  enthalten  als  Zahl  zwi- 
schen  0  und  15  den  jeweiligen  Farbanteil  und  speichern  ihn  im 
Feld  Tarbfeld'. 

Ein  Wort  zur  Bedienung:  Natiirlich  ist  das  Ganze  nicht  so  kom- 
fortabel  wie  z.B.  in  Preferences.  Das  hat  verschiedene  Grunde. 
Ein  Problem  ist  Ihnen  vielleicht  aufgefallen,  falls  Sie  schon  mit 
dem  neuen  Programmteil  experimentiert  haben:  Wenn  eine  Farbe 
zum  ersten  Mai  aufgerufen  wird,  fallen  zunachst  alle  Regler  auf 
0,  und  die  Farbe  wird  schwarz.  Das  liegt  daran,  daB  es  leider  in 
AmigaBASIC  bisher  keine  Moglichkeit  gibt,  den  aktuellen  Stand 
der  Farb-Register  auszulesen.  Solange  also  das  Feld  'Farbfeld' 
die  Werte  nicht  kennt,  sind  sie  fur  unser  Programm  erst  mal  0. 
Aus  diesem  Grund  haben  wir  auch  in  den  'Vorbereitungen:'  die 
drei  Werte  furs  'Farbfeld'  stehen.  Wenigstens  die  Schriftfarbe 
(weiB)  soil  im  Tarbfeld1  vorbelegt  sein,  sonst  wurden  Sie  bald 
nur  noch  Schwarz  sehen. 

Die  Tastensteuerung  benotigt  im  Vergleich  zur  Farbsteuerung 
mit  der  Maus  (in  Programmen  wie  Preferences  oder  Graphicraft) 
ein  wenig  Ubung.  Bleiben  Sie  nicht  zu  lange  auf  den  Tasten! 
Das  Verschieben  der  Regler  geht  etwas  langsam,  aber  solange 
eine  Taste  gedruckt  bleibt,  wiederholt  der  Amiga  nach  einiger 
Zeit  (abhangig  von  der  Preferences-Einstellung)  die  Tastenein- 
gabe  und  merkt  sie  sich  dann  auch.  Das  Resultat  kann  sein,  daB 
-  auch  wenn  Sie  die  Tasten  schon  lange  losgelassen  haben  - 
noch  eine  ganze  Reihe  weiterer  Impulse  aus  dem  sogenannten 
Tastaturpuffer  kommen  und  die  Regler  sich  weiterbewegen. 
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Am  Ende  der  Farbeinstellung  fragt  Sie  das  Programm  noch  nach 
drei  Werten:  Sie  konnen  je  eine  Farbnummer  fur  die  Farbe  des 
Bildschirmhintergrundes,  des  Textes  und  der  Hinterlegung  des 
Textes  eingeben.  Diese  Farben  werden  dann  bei  der  Wiedergabe 
des  Textes  verwendet,  den  Sie  im  Meniipunkt  1  eingegeben  ha- 
ben.  Wenn  Sie  die  Normalwerte  nicht  verfcndern  wollen,  driicken 
Sie  einfach  dreimal  <RETURN>. 


1.17      Der  Miihe  Lohn  -  das  Wiedergabe-Programm 

Unser  Projekt  "Videotitel-Programm"  nahert  sich  deutlich  sei- 
nem  AbschluB.  Es  fehlt  nur  noch  ein  Unterprogramm,  nSmlich 
das  zur  Wiedergabe  des  gesamten  bisher  programmierten  Titels. 

Stellen  Sie  sich  bitte  einmal  vor,  der  nachste  Programmteil  ware 
nicht  abgedruckt,  und  Sie  muBten  ihn  selbst  schreiben.  Wie 
wurden  Sie  vorgehen?  Zunachst  sollte  man  sich  in  so  einem  Fall 
iiberlegen:  Was  soil  das  Programm  im  einzelnen  iiberhaupt  tun? 
Nun,  wir  haben  uns  das  so  vorgestellt:  Zuerst  wird  der  Bild- 
schirm  geloscht,  und  das  Programm  wartet  darauf,  daB  Sie 
<RETURN>  driicken.  In  dieser  Zeit  konnen  Sie  dann  spater  die 
richtige  Bandposition  auf  Ihrer  Videocassette  suchen,  die  Ver- 
bindung  zum  Amiga  herstellen  bzw.  uberprufen  und  den  Recor- 
der auf  Aufnahme  schalten. 

Nach  dem  Driicken  von  <RETURN>  soil  10  Sekunden  lang  ein 
Countdown  heruntergezahlt  werden.  Das  ist  zum  professionellen 
Schneiden  und  Uberspielen  von  Video-Sequenzen  sehr  hilfreich. 
Danach  miissen  wir  erst  mal  den  programmierten  Text  auf  den 
Bildschirm  bringen.  Und  zwar  in  den  gewahlten  Farben.  Viel- 
leicht  schon  in  der  Bildschirmmitte  zentriert?  Das  sieht  immer 
gut  aus.  Wenn  der  Text  steht,  soil  unser  Star  oder  ein  anderes 
eingelesenes  Objekt  seine  Bewegung  ausfiihren.  Wahrend  dieser 
Zeit  bleibt  der  Text  zum  Lesen  auf  dem  Bildschirm.  Nach  der 
Bewegung  kommt  dann  der  Abgang  fiir  unseren  Star. 
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Wie  konnen  wir  am  SchluB  noch  mit  ein  wenig  Effekt  den  Text 
vom  Schirm  entfernen?  Zum  Beispiel,  indem  wir  ihn  von  oben 
und  unten  in  die  Mitte  des  Bildschirms  rollen  lassen.  Das  ergibt 
einen  ahnlichen  Effekt  wie  beim  Titelbild  des  Programms 
"Amiga  Tutor",  das  Sie  vielleicht  kennen.  Wenn  auch  das  gesche- 
hen  ist,  noch  einen  Augenblick  andachtige  Ruhe.  "Aus!  Gestor- 
ben!  Cut.  Szene  im  Kasten."  Das  war's.  So  also  stellen  wir  uns 
ungefahr  den  Ablauf  des  letzten  Programmteils  vor. 

Der  nSchste  Schritt  bei  der  Programmentwicklung  ist  dann  eine 
Art  Bestandsaufnahme.  Was  habe  ich,  was  brauche  ich?  Bisher 
haben  wir  in  unserem  Programm  folgende  verwendbare  Daten 
und  Objekte  erzeugt: 

-  Ein  eingelesenes  Grafikobjekt,  das  sich  augenblicklich 
als  Objekt  Nummer  1  im  Speicher  die  Zeit  mit  Warten 
vertreibt. 

-  Ein  Datenfeld  namens  'Beweg(x)',  in  dem  bis  zu  sieben 
Zwischenpunkte  der  definierten  Bewegung  stehen.  Die 
genaue  Anzahl  findet  sich  in  dem  Feldelement 
'Beweg(O)'.  Dann  folgen  paarweise  die  Koordinaten  der 
einzelnen  Punkte.  Das  Feld  ist  also  so  aufgebaut:  (An- 
zahl), xl,  yl,  x2,  y2,... 

-  Ein  Feld  namens  'Geschw^)'.  Hier  sollen  die  x-  und 
die  y-Geschwindigkeiten  abgelegt  werden,  mit  denen 
sich  das  Objekt  von  einem  Punkt  zum  jeweils  nachsten 
bewegt.  Der  Aufbau  dieses  Feldes  entspricht  dem  von 
'Beweg(x)\  Zur  Zeit  ist  es  aber  noch  leer. 

-  Ein  Datenfeld  namens  'Text$\  in  dem  bis  zu  15  Zeilen 
Text  stehen,  die  auf  den  Bildschirm  gedruckt  werden 
sollen. 

-  Die  Farben  fur  Text  und  Bildschirmhintergrund  sind  in 
den  Variablen  'Hintgr',  Textfa1  und  'Texthi'  abgelegt. 

-  AuBerdem  haben  wir  noch  ein  Feld  namens  'Farbfeld1. 
Das  brauchen  wir  jetzt  aber  nicht  mehr,  denn  die  Far- 
ben sind  ja  bereits  vom  System  (soil  heiBen  vom  Amiga; 
Programmierer  schieben  alles,  womit  Sie  nichts  zu  tun 
haben  wollen,  aufs  "System")  ubernommen  worden. 
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-    Es  gibt  natiirlich  noch  mehr  Daten  und  Variablen,  aber 
auch  die  sind  in  diesem  Programmteil  uninteressant. 

Fur  den  letzten  Teil  brauchen  wir  wieder  einige  neue  Befehle. 
Die  wollen  wir  jetzt  vorstellen.  Bitte  versuchen  Sie  bei  jedem 
neuen  Befehl,  einmal  selbst  zu  uberlegen,  in  welcher  Weise  wir 
bei  der  zu  losenden  Aufgabe  diese  Befehle  brauchen  konnten. 

Den  ersten  neuen  Befehl  brauchen  wir  wahrscheinlich  in  der 
Countdown-Routine.  Wie  soil  der  Amiga  herausfinden,  wann  10 
Sekunden  vorbei  sind?  Ganz  einfach:  Es  gibt  einige  Zeit-  und 
Datumsfunktionen  in  AmigaBASIC.  Geben  Sie  den  nachsten 
Befehl  im  BASIC-Window  ein: 

?  date$  <RETURN> 

Sie  sehen,  der  String  DATES  enthalt  das  Datum,  das  der  Amiga 
gespeichert  hat.  Dabei  zeigt  er  in  amerikanischer  Schreibweise 
zuerst  den  Monat,  dann  den  Tag  und  dann  das  Jahr.  Schon  und 
gut,  aber  der  Amiga  soil  ja  keine  Tage  Oder  Monate  lang  war- 
ten,  sondern  nur  Sekunden.  Also  probieren  Sie  den  Niichsten: 

?  time$  <RETURN> 

Na,  das  ist  doch  schon  was.  Mit  diesem  Befehl  zeigt  Amiga- 
BASIC Stunden,  Minuten  und  Sekunden  an.  Auch  die  Uhrzeit 
richtet  sich  nach  den  Einstellungen  in  Preferences,  die  Uhr  wird 
also  wahrscheinlich  auch  falsch  gehen.  Durch  die  Formel 
(VAL(RIGHT$(TIME$,2)))  konnten  Sie  die  Sekunden  isolieren. 
Aber  dieser  Formelapparat  sieht  etwas  unschon  aus.  Es  geht 
auch  einfacher: 

?  timer  <RETURN> 

Die  Variable  TIMER  liefert  die  Zeit  in  Sekunden  und  Zehntel- 
Sekunden.  Sie  gibt  die  Anzahl  an  Sekunden  an,  die  seit  00:00:00 
(also  Mitternacht)  vergangen  sind.  Wobei  allerdings  Amigas 
Vorstellung  von  Mitternacht  wieder  einzig  und  allein  von  den 
Einstellungen  in  Preferences  abhangt. 
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Die  Rundungsfunktion  werden  wir  bei  der  Berechnung  der  Ge- 
schwindigkeit  unseres  Objekts  bendtigen.  Und  weil  Sie  sich  ge- 
rade  ein  biBchen  daran  gewohnt  haben,  kommt  hier  noch  ein 
Exemplar  dieser  mathematischen  Funktionen.  Aber  keine  Angst, 
es  ist  fur  die  n&here  Zukunft  die  letzte,  die  wir  benfltigen. 

Was  macht  man,  wenn  man  sich  nur  fiir  den  Betrag  einer  Zahl, 
aber  nicht  fiir  das  Vorzeichen  interessiert?  "Da  war  doch  mal 
was...?"  -  die  dustere  Erinnerung  an  vergangene  Mathematik- 
Stunden  fordert  es  vielleicht  an  den  Tag:  Absolutwert  nennt  man 
so  was.  Gibt's  in  BASIC  auch: 

?  abs<-3.5)   :   ?  abs(  3.5) 

Diese  Funktion  werden  wir  benotigen,  um  aus  dem  Abstand 
zweier  Punkte  die  x-  und  y-Geschwindigkeiten  fur  unser  Objekt 
zu  errechnen. 

So.  Weil  Sie  bis  hierher  so  tapfer  durchgehalten  haben  und  alle 
mathematischen  Funktionen  uber  sich  ergehen  lie/Jen,  soil  nun 
als  keine  Belohung  ein  neuer  Grafik-Effekt  vorgestellt  werden. 
Wir  haben  ja  vorhin  schon  beschrieben,  wie  wir  den  Text  am 
SchluC  wieder  vom  Bildschirm  verschwinden  lassen  wollen:  Der 
Bildschirm  soil  in  eine  obere  und  eine  untere  Halfte  aufgeteilt 
werden,  die  sich  dann  beide  auf  die  Mitte  zubewegen  und  ein- 
ander  sozusagen  "auffressen".  Fur  das  Verschieben  von  Teilen 
des  Bildschirms  gibt  es  einen  eigenen  BASIC-Befehl.  Geben  Sie 
das  folgende  Beispiel  im  BASIC- Window  ein: 

for  x=1   to  50  :   scroll   <0,0)-<630,150>,2,2   :  next  x 

Damit  der  Effekt  deutlich  sichtbar  ist,  sollte  schon  vorher  ein 
wenig  Text  auf  dem  Bildschirm  stehen. 

Ein  Teil  des  Bildschirminhalts  sinkt  langsam  aber  stetig  nach 
rechts  unten  ab.  So  konnten  Sie  zum  Beispiel  den  Untergang  der 
Titanic  programmieren.  Den  Ausdruck  "scrollen"  haben  Sie  viel- 
leicht schon  einmal  gehort.  Er  ist  ein  Kunstwort,  der  aus  dem 
englischen  "Screen  Rolling"  entstand,  auf  Deutsch:  Bildschirm- 
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Manchmal  stSrt  bei  Berechnungen  oder  Vergleichen  der  Teil  ei- 
ner  Zahl,  der  nach  dem  Komma  steht.  So  auch  hier,  denn  wir 
brauchen  nur  Sekunden  und  keine  Zehntel-Sekunden.  Die 
BASIC-Funktion  INT(x)  hilft  hier  weiter.  Der  Name  kommt 
vom  engl.  "Integer"  (deutsch:  Ganzzahl)  und  ebenso  wird  dieser 
Befehl  auch  ausgesprochen  ("Intatscher  von  ix").  Mit 

?   INT  (23.42143) 

wird  der  Nachkommateil  der  in  Klammern  angegebenen  Zahl 
abgeschnitten.  Das  Ergebnis  ist  also  23.  Aber  Achtung:  Durch 
INT  wird  nicht  gerundet.  INT(9.99999)  ist  9,  nicht  10.  Furs 
Runden  kommt  ein  wenig  spater  noch  eine  eigene  Funktion. 

Wenn  Sie  mit  den  jetzt  vorgestellten  Befehlen  erreichen  wollen, 
daB  der  Amiga  eine  Pause  von  genau  einer  Sekunde  einlegt,  geht 
das  so:  Eine  Variable  merkt  sich  den  Wert  INT(TIMER).  Also 
die  Anzahl  der  ganzen  Sekunden  seit  Mitternacht.  Eine  Schleife 
muB  dann  den  gemerkten  Wert  solange  mit  den  Sekunden  aus 
der  aktuellen  Zeit  vergleichen,  bis  die  beiden  sich  unterscheiden. 
Danach  ist  ziemlich  genau  eine  Sekunde  vergangen.  In  einem 
Listing  sieht  das  z.B.  so  aus: 

Tim=INT(TIMER) 
Warten: 

IF  INT(TIMER)=Tim  THEN  Warten 
(nach  einer  Sekunde  geht's  weiter) 

Um  Sie  beim  Thema  Runden  von  Zahlen  nicht  zu  lange  auf  die 
Folter  zu  spannen:  Die  benStigte  Funktion  heiBt  CINT  ("Convert 
to  Integer",  deutsch:  "Wandle  in  eine  ganze  Zahl  um").  Das  ist 
zwar  in  Bezug  auf  die  Namensgebung  nicht  ubermaBig  logisch, 
aber  die  Kenntnis  dieser  Funktion  ist  oft  sehr  hilfreich.  CINT(x) 
rundet  nach  folgendem  Schema:  Bis  einschlieBlich  4,5000...  wird 
auf  4  abgerundet,  grSBere  Zahlen  (also  ab  4,5000...01)  werden 
auf  5  aufgerundet.  Vergessen  Sie  nicht,  daB  nach  der  amerika- 
nischen  Schreibweise  das  Komma  ein  Punkt  ist.  Im  BASIC- Win- 
dow konnen  Sie  vergleichen: 

?  cint  (4.6)   :   ?   int  (4.6) 
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rollen.  Wenn  Sie  zum  Beispiel  im  BASIC-Window  in  der  unter- 
sten  Zeile  eine  Eingabe  machen,  scrollt  der  Bildschirm  nach 
Driicken  der  <RETURN>-Taste  eine  Zeile  nach  oben.  Dabei 
wird  die  erste  Bildschirm-Zeile  iiber  den  oberen  Bildschirmrand 
hinausgeschoben,  dafiir  erscheint  am  unteren  Rand  eine  neue 
Zeile. 

Das  Verschieben  des  Bildschirminhalts  beherrscht  der  Amiga 
nicht  nur  nach  oben,  sondern  in  alle  Richtungen.  Die  Syntax  des 
SCROLL-Befehls  sieht  so  aus: 

SCROLL  <x1,y1)-<x2,y2)f  x-Richtung,  y-Richtung 

Mit  dem  Ausdruck  (xl,yl)-(x2,y2)  geben  Sie  die  Begrenzungs- 
punkte  des  Rechtecks  an,  das  verschoben  werden  soil.  (xl,yl) 
sind  die  Koordinaten  des  Punktes,  der  das  Rechteck  links  oben 
begrenzt,  (x2,y2)  gibt  die  Koordinaten  des  Punktes  an,  der  sich 
am  weitesten  rechts  unten  im  Rechteck  befindet.  Die  Werte  fur 
x-Richtung  und  y-Richtung  legen  genau  wie  bei  den  OBJECT- 
Befehlen  fest,  um  wieviele  Bildschirmpunkte  und  in  welche 
Richtung  der  Ausschnitt  verschoben  werden  soil.  Ein  einmaliger 
Aufruf  von  SCROLL  bewirkt  allerdings  nur,  daB  das  Rechteck 
sofort  an  seinem  neuen  Platz  erscheint.  Um  eine  gleichmaBige 
Bewegung  zu  erreichen,  muB  man  daher,  wie  in  unserem  Bei- 
spiel, mit  einer  FOR-NEXT-Schleife  Oder  einer  anderen 
Schleifenkonstruktion  dafiir  sorgen,  daB  SCROLL  mehrfach  aus- 
gefiihrt  wird.  Mit  Hilfe  dieser  Funktion  werden  wir  am  Ende 
der  Wiedergabe  den  Bildschirminhalt  verschwinden  lassen. 

Das  waren  eigentlich  alle  neuen  Befehle,  die  wir  im  nachsten 
Teil  des  Programms  brauchen.  Wenn  Sie  jetzt  den  nachsten  Teil 
des  Videotitel-Programms  eingeben,  versuchen  Sie  bitte,  bereits 
beim  Eingeben  zu  verstehen,  was  die  einzelnen  Befehle  und  Pro- 
grammabschnitte  bewirken.  Was  wir  erreichen  wollen,  und  wie 
es  aussehen  soil,  haben  wir  ja  schon  vorhin  beschrieben. 

Vergessen  Sie  aber  bitte  trotzdem  nicht,  das  Programm 
zwischendrin  immer  mal  wieder  auf  Diskette  abzuspeichern. 
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Uiedergabe: 

CLS 

PRINT  "Bitte  drucken  Sie  <RETURN>» 

PRINT  "fur  Beginn  der  Wiedergabe." 

Taste: 

a$=INKEY$ 

IF  a$=CHR$(13)  THEN  CLS  :  c=10  :  GOTO  Countdown 

GOTO  Taste 

Countdown: 

LOCATE  10,38  :  PRINT  c 

c=c-1  :  IF  c<0  THEN  WiedergStart 

Tim=INT(TIMER) 

Warten: 

IF  INT(TIMER)=Tim  THEN  Warten 

GOTO  Countdown 

WiedergStart: 

WIDTH  80 

COLOR  Textfa,Hintgr  :  CLS 

COLOR  Textfajexthi 

FOR  x=1  TO  Zeilen 

Text$=LEFT$(Text$(x),78) 

h=INT((80-LEN(Text$))/2)+2 

LOCATE  x+17-Zei"Lenfh  :  PRINT  Text$ 

NEXT  x 

COLOR  Textfa,Hintgr 

IF  Beweg(0)=0  THEN  ALlesvorbei 

OBJECT. X  1,Beweg(1) 

OBJECT. Y  1fBeweg(2) 

OBJECT. ON  1 

FOR  x=1  TO  Beweg(0)-1 

OBJECT. STOP  1 

GOSUB  GeschwBerechnen 

OBJECT. X  1,Beweg(x*2-1) 

OBJECT. Y  1,Beweg(x*2) 

OBJECT. VX  1,Geschw(x*2-1) 

OBJECT. VY  1,Geschw(x*2) 

OBJECT. HIT  1,0,0 
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OBJECT. START  1 

Tst=TlMER 

SchleifeA: 

px=ABS(Beweg(x*2+1)-0BJECT.X(1)) 

py=ABS(Beweg(x*2+2)-OBJECT.Y(1)) 

IF  INT<TIMER-Tst)<18  AND  (px>15  OR  py>15)  THEN  SchLeife4 

NEXT  x 

OBJECT. OFF  1 

AUesvorbei: 

Tst=TIMER 

IF  Beweg(0)<>0  THEN  Abgang 

Uarten2: 

IF  TIMER-Tst  <  (2*Zeilen+2)  THEN  Warten2 

Abgang: 

FOR  x=1  TO  30 

SCROLL  (1,1)-(630,100),0,3 

SCROLL  (1,100)-(630#180),0,-3 

NEXT  x 

COLOR  Textfa,Hintgr 

CLS  :  GOTO  Anfang 

GeschwBerechnen: 

ox=OBJECT.X  (1)  :  oy=OBJECT.Y  (1) 

Beweg(x*2-1)=ox  :  Beweg(x*2)=oy 

zx=Beweg(x*2+1)  :  zy=Beweg(x*2+2) 

FOR  xx=1  TO  64  STEP  .2 

Geschw(x*2-1)=CINT((zx-ox)/xx) 

Geschw(x*2)=CINT((zy-oy)/xx) 

IF  ABS(Geschw(x*2-1))<40  AND  ABS(Geschw(x*2))<40  THEN  xx=64 

NEXT  xx 

RETURN 

Wenn  Sie  alles  haben,  bitte  gleich  abspeichern.  Aber  das  kennen 
Sie  ja  mittlerweile. 

Haben  Sie  im  Groben  verstanden,  was  das  Programm  tut?  Wir 
wollen  jetzt  auf  jeden  Fall  noch  mal  die  einzelnen  Abschnitte 
besprechen.  Vergleichen  Sie  die  Erklarungen  mit  dem,  was  Sie 
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sich  schon  selbst  zusammengereimt  haben  -  aber  nicht  schum- 
meln! 

Der  Programmteil  'Wiedergabe:'  wartet,  bis  die  <RETURN>-Ta- 
ste  gedruckt  wird.  CHR$(13)  entspricht  dieser  Taste.  Dann  wird 
die  Variable  'c*  auf  10  gesetzt.  Sie  ist  die  Zahlvariable  fur  un- 
seren  Countdown.  Deshalb  wird  sie  im  Teil  'Countdown:1  auch 
in  die  Mitte  des  Bildschirms  gedruckt.  Den  Wert  V  vermindern 
wir  nach  einer  Sekunde  immer  um  I,  bis  der  Wert  0  erreicht  ist. 
Die  Schleife  'Warten:'  sorgt  fiir  eine  Sekunde  Verzogerung,  bis 
der  nSchste  Wert  von  V  gedruckt  wird. 

'WiedergStart:1  setzt  zunachst  die  Zeilenbreite  auf  80  Zeichen, 
loscht  dann  den  Bildschirm  in  der  definierten  Hintergrundfarbe 
und  stellt  die  Farbe  zur  Wiedergabe  der  Zeichen  ein,  wie  sie  im 
Farbzuweisungs-Teil  festgelegt  wurde. 

Die  Schleife,  die  dann  kommt,  zentriert  den  Text  jeweils  inner- 
halb  einer  Zeile.  Dazu  wird  der  Text  mit  LEFTS  zunachst  auf 
78  Zeichen  begrenzt.  Langere  Eingaben  werden  abgeschnitten. 
Merken  Sie  sich  daher  bitte  gleich,  daB  Sie  im  Texteingabe-Teil 
nicht  mehr  als  78  Zeichen  pro  Zeile  eingeben  sollten. 

Die  Variable  'h'  errechnet  dann  die  Position  innerhalb  der  Zeile, 
ab  der  der  Text  beginnen  soil.  Dazu  wird  der  verbleibende  Platz 
(80-LEN(Text$))  einfach  halbiert  -  eine  Halfte  fur  links  vom 
Text  und  eine  fiir  rechts.  SchlieBlich  wird  der  Text  an  die  so 
errechnete  Position  gedruckt  und  danach  die  Farbe  wieder 
zuruckgesetzt.  Wurde  keine  Bewegung  definiert  (zu  uberprufen 
durch  die  Bedingung  Beweg(0)=0),  springt  das  Programm  gleich 
zum  Teil  'Allesvorbeir'.Andernfalls  wird  das  Objekt  auf  seine 
Anfangsposition  gebracht  und  die  Bewegungsschleife  beginnt. 

Bei  jedem  Schleifendurchlauf  wird  das  Objekt  zunachst  ange- 
halten,  und  seine  Geschwindigkeitswerte  werden  berechnet  (dazu 
gleich  mehr).  Die  errechneten  Werte  werden  iibergeben,  die 
Kollisionsabfrage  wird  mit  OBJECT. HIT  1,0,0  ausgeschaltet  und 
die  definierte  Bewegung  gestartet.  Die  'Schleife^  lauft  so  lange, 
bis  das  Objekt  auf  15  Bildpunkte  an  seine  nSchste  Zielposition 
herangekommen  ist.  Dieser  Wert  hat  sich  bei  Experimenten  als 
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sinnvoll  erwiesen.  Es  kann  jedoch  vorkommen,  daB  das  Objekt 
wegen  der  Rundung  bei  der  Geschwindigkeitsberechnung  sein 
Ziel  verpaBt.  Deshalb  lauft  noch  eine  Zeitkontrolle  mit:  Wenn 
das  Objekt  linger  als  18  Sekunden  von  einem  Punkt  zum  nach- 
sten  braucht,  wird  die  Bewegung  abgebrochen  und  die  nachfol- 
gende  eingeleitet.  18  Sekunden  sind  die  Zeit,  die  das  Objekt  fur 
die  weitestmogliche  Entfernung  innerhalb  des  Bildschirms 
braucht,  namlich  von  einem  Eck  zum  diagonal  gegeniiber-lie- 
genden. 

Wie  funktioniert  das  Unterprogramm  'GeschwBerechnen:'?  Es 
stellt  zunachst  die  aktuellen  Koordinaten  fest,  die  ja  nicht 
hundertprozentig  mit  den  im  Feld  'Beweg(x)'  gespeicherten 
Werten  ubereinstimmen.  Deshalb  werden  die  tatsachlichen  Werte 
anstelle  der  "theoretischen"  ins  Feld  ubernommen.  Sie  sind 
gleichzeitig  die  Anfangskoordinaten  der  nachsten  Bewegung  und 
werden  deshalb  den  Variablen  'ox1  und  'oy'  iibergeben.  Die 
Endkoordinaten  stehen  an  den  nachsten  beiden  Positionen  im 
Feld  'Beweg(x)\ 

Die  folgende  FOR...NEXT-Schleife  dividiert  die  Entfernung 
zwischen  den  x-  und  den  y-Koordinaten  solange  durch  immer 
hohere  Zahlen,  bis  beide  Werte  kleiner  als  40  sind.  Sonst  wird 
die  Bewegung  namlich  zu  schnell.  Das  Dividieren  durch  die 
gleiche  Zahl  bewirkt,  daB  das  Verhaltnis  zwischen  der  x-  und 
der  y-Entfernung  konstant  bleibt.  Dieses  Verhaltnis  muB  bei  der 
Geschwindigkeit  ubernommen  werden,  damit  die  Bewegungs- 
richtung  stimmt.  Sobald  die  Geschwindigkeit  in  der  richtigen 
GroBenordnung  liegt,  wird  'xx1  auf  64  gesetzt,  wodurch  die 
Schleife  beendet  wird.  (FOR  xx=l  TO  64  STEP  .2  erhoht  xx  so- 
lange um  0.2,  bis  xx  den  Wert  64  annimmt.  Sobald  xx  den  Wert 
64  hat,  ist  SchluB.) 

Zuruck  zum  Hauptprogramm  (RETURN  heiBt  das  auf  BASIC). 
Der  Abschnitt  'Allesvorbei:'  fehlt  uns  noch.  Falls  keine  Objekt- 
bewegung  stattfand,  hatte  der  Zuschauer  ja  keine  Zeit,  den  Text 
zu  lesen.  Deshalb  wartet  das  Programm,  und  zwar  pro  Zeile  Text 
2  Sekunden  plus  2  Extra-Sekunden  zur  allgemeinen  Besinnung. 
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Am  Ehde  folgt  unsere  SCROLL-Routine,  die  die  beiden  Bild- 
halften  mit  entgegengesetzten  x-Richtungen  aufeinander  zu  be- 
wegt.  So  verschwinden  dann  Text  und  Hintergund  vom  Schirm. 
Noch  schnell  Farben  zurticksetzen  und  Bildschirm  loschen,  falls 
noch  irgendwo  ein  Stiickchen  Text  oder  Hintergrund  ubrig  sein 
sollte,  und  dann  schleunigst  zuriick  zur  Hauptauswahl. 

Tja,  so  funktioniert's.  Oh,  fast  h&tten  wir  etwas  Wichtiges  ver- 
gessen:  Der  neue  Programmteil  muB  ja  auch  noch  in  die  Aus- 
wahl  aufgenommen  werden.  Fiigen  Sie  bitte  im  Programmteil 
'Abfrage:'  unter  der  Zeile 

IF  a$="V  THEN  Farbdef inition 

die  Zeile 

IF  a$=»5"  THEN  Uiedergabe 

ein.  Jetzt  brennen  Sie  natiirlich  darauf,  das  Programm  auszupro- 
bieren.  Nur  zu!  Geben  Sie  zuerst  mit  der  Option  1  den  Text  ein, 
der  gezeigt  werden  soil.  Kleiner  Tip:  Einige  Leerzeilen  erhohen 
die  Lesbarkeit. 

Mit  Option  2  lesen  Sie  dann  das  Objekt  von  Diskette  ein,  das  Sie 
im  Vordergrund  bewegen  wollen.  Um  diese  Bewegung  festzu- 
legen,  w&hlen  Sie  Menupunkt  3. 

Falls  Ihnen  die  Farben  nicht  zusagen,  bitte  Option  4  verwenden. 
Denken  Sie  daran,  daB  Sie  nach  Eingabe  von  "e"  noch  die  Text- 
farben  andern  kQnnen.  Die  erste  eingegebene  Farbnummer  legt 
den  Bildschirmhintergrund  fest,  die  zweite  die  eigentliche  Text- 
farbe.  Mit  der  dritten  kOnnen  Sie  den  Text  noch  mit  einem  far- 
bigen  Balken  unterlegen.  Wenn  Sie  nur  <RETURN>  driicken, 
werden  die  angezeigten  voreingestellten  Werte  ubernommen. 
Option  5  schiieBlich  spielt  den  ganzen  Titel  ab.  Fur  dieses  Pro- 
gramm gilt  ganz  besonders:  Probieren  geht  uber  studieren.  Was 
Ihnen  nicht  gefallt,  konnen  Sie  uber  die  Meniipunkte  andern. 

Wenn  Sie  die  letzten  Eingabefehler  verbessert  haben,  speichern 
Sie  bitte  eine  endgiiltige  Version  des  Programms  auf  Diskette  ab. 
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Wir  werden  nbch  an  verschiedenen  Stellen  dieses  Buches  Ande- 
rungen  am  Videotitel-Programm  durchfuhren,  wenn  wir  neue 
Mdglichkeiten  kennengelernt  haben,  die  das  Programm  kom- 
fortabler,  schOner  oder  interessanter  machen.  Zum  Beispiel  wenn 
wir  als  Hintergrund  Bilder  aus...  Nein.  Das  wird  jetzt  noch  nicht 
verraten.  Furs  erste  ist  es  fertig.  Bis  zum  niichsten  Kapitel 
wiinschen  wir  Ihnen  viel  Spafi  beim  Experimentieren. 
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2.     Mehr  Farbe  auf  den  Schirm!  -  Farben  und 
Auflosungsstufen 

Vielleicht  sagen  Sie  sich:  MDa  habe  ich  einen  Computer,  der  32 
Farben  gleichzeitig  darstellen  kann,  und  die  sogar  aus  4096 
moglichen.  Und  was  habe  ich  bisher  davon  gesehen?  Ganze  vier 
Stuck." 

Die  vier  Farben,  die  wir  bisher  verwendeten,  konnen  Sie  zwar 
mit  dem  PALETTE-Befehl  &ndern.  Das  Videotitelprogramm 
bietet  diese  Moglichkeit  zum  Beispiel  mit  der  Option  2  ("Farben 
festlegen").  Aber  mehr  als  vier  Farben  gleichzeitig  haben  wir, 
zumindest  von  AmigaBASIC  aus,  bisher  noch  nicht  geschafft. 
Das  soil  sich  &ndern.  Die  nachsten  Kapitel  stellen  Ihnen  die 
ganze  Farbenpracht  Ihres  Computers  vor.  Bleibt  uns  nur,  zu 
hoffen,  daB  Ihnen  das  Ganze  jetzt  nicht  zu  bunt  wird... 

2.1        Die  zweite  Kostprobe:  Farbige  Zeiten 

Sie  wissen  ja  noch:  Unsere  Kostproben  wollen  Ihnen  zum  Beginn 
eines  Kapitels  zeigen,  da/J  manche  Effekte  in  AmigaBASIC  mit 
sehr  geringem  Aufwand  zu  erreichen  sind.  Sie  brauchen  diese 
Beispiele  noch  nicht  auf  Anhieb  zu  verstehen.  Tippen  Sie's  ein- 
fach  ein  und  schauen  Sie  sich  das  Ergebnis  an. 

SCREEN  1,320,200,5,1 

WINDOW  2,MBunter  geht's  nicht.", ,23,1 

FOR  x=0  TO  7 

FOR  y=0  TO  3 

Fa=x+y*8 

LINE  (x*38,y*A5)-((x+1)*38/(y+1)*45)lFa,bf 

NEXT  y,x 

WHILE  INKEY$='"' 

PALETTE  INT(31*RND)+1,RND,RND,RND 

WEND 

WINDOW  CLOSE  2 

SCREEN  CLOSE  1 

WINDOW  1 
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Falls  Sie  sich  wundern:  In  der  zweiten  Zeile  handelt  es  sich  nicht 
um  einen  Druckfehler!  Nach  den  Anfuhrungszeichen  kommen 
wirklich  zwei  Kommas,  dann  erst  die  Zahl  23.  Vergessen  Sie 
bitte  nicht,  das  Programm  nach  dem  Eingeben  gleich  auf  Dis- 
kette abzuspeichern.  Sie  konnen  es  dann  spater  zum  Experimen- 
tieren  benutzen,  wenn  Sie  genauer  verstehen,  wie  alles  funktio- 
niert. 

Zum  Ausprobieren  noch  einige  Tips:  Ver&ndern  Sie  ruhig  mal 
die  GroBe  des  Windows.  Sie  konnen  es  dann  auch  verschieben. 
Werfen  Sie  auch  einen  Blick  auf  das  Aussehen  der  Pulldown- 
Menus.  Um  das  Programm  zu  beenden,  driicken  Sie  einfach  eine 
beliebige  Taste  auf  der  Tastatur. 


2.2        Amiga  I6st  sich  auf  -  die  Auflosungsstufen 

Sie  haben  in  der  Kostprobe  ein  kleines  Programm  gesehen,  das 
farbige  Fl&chen  auf  dem  Bildschirm  auf  Zufallsbasis  verandert. 
AmigaBASIC  bietet  Befehle,  mit  denen  es  moglich  ist,  ein 
BASIC-Programm  beliebig  viele  Windows  verwalten  zu  lassen. 
Diese  Windows  konnen  sich  auf  einem  von  insgesamt  funf 
Screens  befinden.  Wenn  Ihnen  dieser  Ausdruck  nichts  sagt, 
gleich  werden  Sie  mehr  dariiber  erfahren.  Fur  die  von  BASIC 
erzeugten  Screens  und  Windows  konnen  verschiedene  Auf- 
losungsstufen und  verschiedene  Anzahlen  an  moglichen  Farben 
verwendet  werden. 

Bevor  wir  Ihnen  die  einzelnen  Befehle  vorstellen,  benotigen  Sie 
aber  noch  einige  Informationen  zum  Thema  Farben  und  Auf- 
losung.  Irgendwie  muB  das  Darstellen  von  Farben  und  Grafiken 
wohl  mit  Speicherkapazitat  zusammenhangen.  Denn  wenn  Sie 
Besitzer  eines  256  KByte-Amiga  sind  Oder  einmal  waren  (es 
ware  dann  n&mlich  wirklich  empfehlenswert,  sich  so  schnell  wie 
mdglich  zumindest  die  Erweiterung  auf  5 1 2  KByte  RAM 
zuzulegen),  wissen  Sie,  daB  es  Grafiken  und  Grafikprogramme 
gibt,  die  der  Amiga  ohne  Speichererweiterung  gar  nicht 
darstellen  kann. 
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Das  ist  auch  verstandlich,  denn  ein  Computer  muB  sich  standig 
merken,  wie  der  Bildschirm  gerade  aussieht.  Sonst  kSnnte  er  Ihre 
Eingaben  nicht  darstellen  und  keine  Grafik-Animation  erzeugen. 
(Erinnern  Sie  sich  an  die  Bobs?  Die  miissen  auch  erstmal  in  den 
Speicher  gebracht  werden.  Dann  werden  sie  in  die  aktuelle 
Bildschirmdarstellung  hineinkopiert  und  vor  der  nachsten  Phase 
der  Bewegung  wieder  vom  Bildschirm  weggenommen.) 

Ihr  Amiga  wiiBte  auch  nicht,  welche  Zeichen  oder  Grafiken  er 
noch  gerade  eben  selbst  auf  den  Bildschirm  gebracht  hat.  Und 
weil  der  einzige  Ort,  wo  sich  ein  Computer  etwas  merken  kann, 
seine  Speicherbausteine  sind,  zwackt  halt  jede  Grafik  und  jede 
Farbe  wieder  ein  Stuck  von  diesem  Speicher  ab. 

Die  Bildschirmdarstellung  eines  Computers  besteht  aus  einer 
Unmenge  einzelner  kleiner  Punkte.  Sie  werden  Pixels  genannt. 
Das  Bild  auf  dem  Schirm  setzt  sich  aus  Pixels  zusammen  wie  ein 
Foto  in  der  Zeitung  aus  Rasterpunkten:  Wenn  die  Punkte  klein 
genug  sind  und  der  Betrachter  eine  gewisse  Entfernung  zu  ihnen 
hat,  verschmelzen  die  einzelnen  Punkte  zu  einem  Gesamtbild. 
Dieses  Prinzip  haben  Sie  in  diesem  Buch  schon  einmal  kennen- 
gelernt,  als  es  um  die  Funktionsweise  eines  Fernsehers  ging. 

Bei  einfarbigen  Darstellungen  kann  ein  Pixel  nur  zwei  Zustande 
haben.  Entweder  ist  es  an,  also  sichtbar,  oder  es  ist  aus,  also 
unsichtbar.  Deshalb  lassen  sich  Pixels  auf  dem  Bildschirm 
hervorragend  durch  Bits  im  Speicher  darstellen.  Im  Speicher  des 
Amiga  entspricht  jeder  Punkt  auf  dem  Bildschirm  einem  Bit. 

Der  Amiga  bietet  vier  verschiedene  Auflosungsstufen.  In  jeder 
wird  eine  andere  Anzahl  an  Pixels  auf  dem  Bildschirm  dar- 
gestellt.  Die  niedrigste  Auflflsungsstufe  betragt  320  Pixels  hori- 
zontal und  200  Pixels  vertikal.  In  dieser  Stufe  lief  z.B.  die  Kost- 
probe  zu  diesem  Kapitel.  Insgesamt  befinden  sich  in  diesem 
Modus  320  mal  200,  also  64.000  Pixels  auf  dem  Bildschirm.  Da 
der  Speicherbedarf  von  Daten,  Programmen  und  Grafiken  mei- 
stens  in  Byte  angegeben  wird,  und  ein  Byte  aus  8  Bit  besteht, 
sind  das  8.000  Byte.  Also  rund  8  KByte.  (Warum  nur  "rund"  und 
nicht  genau,  erfahren  die  Interessierten  unter  dem  Stichwort 
Byte  im  Fachwortlexikon.) 
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Die  nachsthohere  Stufe  hat  bereits  640  Pixels  horizontal  und 
ebenfalls  wieder  200  Pixels  vertikal.  In  dieser  Stufe  arbeitet  der 
Amiga  meistens.  Die  Workbench  lauft  in  dieser  AuflSsung, 
ebenso  AmigaBASIC.  640  mal  200  Pixels  sind  immerhin  schon 
128.000  Pixels,  also  rund  16  KByte. 

Es  gibt  zwei  noch  hohere  Stufen.  Sie  werden  im  Interlace- Modus 
erzeugt,  den  wir  etwas  spater  besprechen  werden.  Ihre  Auf- 
16sung  betrSgt  im  ersten  Fall  320  *  400  Pixels  (128.000  Stuck 
bzw.  16  KByte)  und  im  zweiten  Fall  640  *  400  Pixels  (256.000 
Einzelpunkte  oder  32  KByte). 

Alle  Angaben  iiber  AuflSsungsstufen,  die  wir  Ihnen  gerade  er- 
klart  haben,  beziehen  sich  auf  die  Bildschirmdarstellung,  wie  sie 
fur  amerikanische  Amiga-Progamme  ublich  ist.  Da  AmigaBASIC 
von  einer  amerikanischen  Softwarefirma  programmiert  wurde, 
wurden  auch  die  dort  iiblichen  Standardwerte  verwendet.  Nun 
wissen  Sie  aber  sicher,  daB,  seitdem  es  die  Workbench  1.2  gibt, 
der  sogenannte  PAL-Bereich  des  Amiga-Bildschirms  unterstutzt 
wird.  Das  hat  nichts  mit  Hundefutter  zu  tun,  es  geht  vielmehr 
um  das  deutsche  Farbfernsehsystem.  Das  PAL-Fernsehsystem, 
das  in  der  Bundesrepublik  und  vielen  anderen  europaischen 
Landern  verwendet  wird,  benutzt  mehr  Bildschirmzeilen  als  das 
(amerikanische)  NTSC-System.  Deshalb  blieb  zu  Zeiten  der 
Workbench  1.1  auf  PAL-Bildschirmen  etwa  das  untere  Siebtel 
ungenutzt.  In  Zusammenarbeit  mit  der  Workbench- Version  1.2 
kann  der  PAL-Amiga  diesen  zusatzlichen  Bildschirmbereich 
nutzen.  So  ergibt  sich  dann  im  niedrigauflOsenden  Modus  eine 
Auflosung  von  320*256  Punkten,  in  der  mittleren  Auflosung 
sind  es  640*256  Punkte  und  im  Interlace-Modus  320*512  bzw. 
640*512.  Naturlich  kostet  so  ein  PAL-Bildschirm  dann  auch 
mehr  Speicherplatz,  aber  dazu  kommen  wir  etwas  spater. 

Vielleicht  fragen  Sie  sich  jetzt,  ob  denn  Programme,  die  aus 
Amerika  stammen,  mit  diesem  PAL-Bildschirm  uberhaupt  funk- 
tionieren.  Wir  kflnnen  Sie  beruhigen:  Der  Amiga  kann 
selbstandig  erkennen,  ob  ein  Programm  den  PAL-Bereich  nutzt 
oder  nicht.  Wenn  nein,  wird  einfach  die  amerikanische  Stan- 
dard-Auflosung  verwendet. 
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Nur  AmigaBASIC  bewegt  sich  ein  wenig  zwischen  den  Fronten. 
Das  BASIC-Window  kann  normalerweise  nicht  h6her  als  200  Pi- 
xels sein.  Sie  konnen  das  Window  aber  so  verschieben,  dafj  ein 
Teil  von  ihm  im  PAL-Bereich  dargestellt  wird.  Das  LIST-Win- 
dow  hingegen  kann,  wenn  Sie  wollen,  so  vergr6Bert  werden,  daB 
es  den  gesamten  PAL-Bildschirm  einnimmt.  Was  es  sonst  noch 
zu  beachten  gibt,  werden  wir  Ihnen  spater  erzahlen. 

Egal  ob  PAL  oder  nicht,  bei  alien  Angaben  iiber  Speicherplatz 
sind  wir  bisher  davon  ausgegangen,  daB  wir  nur  eine  Farbe  ver- 
wenden.  Oder  eigentlich  zwei,  wenn  man's  genau  nimmt:  Eine 
fur  den  Vordergrund,  also  den  Text  und  die  Grafiken  (z.B. 
weiB),  und  eine  fur  den  Hintergrund  (z.B.  blau).  Wenn  ein 
Punkt  blau  sein  soil,  ist  das  zugeh6rige  Bit  im  Speicher  aus,  das 
heiBt:  nicht  gesetzt.  Soil  der  Punkt  weiB  sein,  ist  es  an  bzw.  ge- 
setzt.  Bis  dahin  ist  es  fur  den  Amiga  problemlos  moglich,  mit 
einem  Bit  pro  Bildpunkt  auszukommen.  Wie  bekommt  man  aber 
jetzt  vier,  acht,  ja  sogar  bis  zu  32  Farben? 

Der  Trick,  der  dazu  verwendet  wird,  ist  ganz  einfach:  Wo  ein 
Bit  nicht  ausreicht,  nimmt  man  weitere  dazu.  Wenn  man  zwei 
Bits  fur  einen  Punkt  zur  Verfugung  hat,  kann  man  schon  vier 
Farben  unterscheiden:  Sind  beide  Bits  aus,  soil  zum  Beispiel  blau 
dargestellt  werden.  Ist  das  erste  Bit  aus,  das  zweite  aber  an, 
vielleicht  weiB.  Ist  dagegen  das  erste  Bit  an,  und  das  zweite  aus, 
k6nnte  Schwarz  dazugenommen  werden.  Und  sind  beide  Bits  an, 
kann  eine  vierte  Farbe,  z.B.  Orange,  erscheinen. 

Genauso  wie  gerade  beschrieben,  werden  die  Pixels  von  vier- 
farbigen  Bildern  gespeichert,  wie  Sie  sie  auf  der  Workbench 
oder  im  LIST-  und  BASIC-Window  von  AmigaBASIC  sehen. 
Allerdings  braucht  ein  solcher  Bildschirm  zur  Speicherung  dann 
nicht  mehr  nur  16  KByte,  sondern  das  doppelte,  namlich 
32  KByte. 

Wenn  man  jetzt  noch  mehr  Farben  will,  kommen  eben  weitere 
Bits  dazu.  Mit  drei  Bits  kflnnen  schon  8  Farben  erzeugt  werden. 
Spielen  Sie  mal  die  Kombinationen  durch:  aus-aus-aus  ,  aus- 
aus-an,  aus-an-aus,  aus-an-an,  an-aus-aus,  an-aus-an,  an-an- 
aus  und  an-an-an.  Weil  Ihnen  danach  wahrscheinlich  vor  lauter 
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auns  und  as'  -  pardon:  ans  und  aus'  -  schon  schwindelig  ist, 
schreibt  man  fur  ein  "aus"-geschaltetes  Bit  eine  0  und  fur  ein 
"an"-geschaltetes  eine  1.  Damit  sind  wir  dann  auch  schon  fast 
bei  den  Bindrzahlen,  die  Sie  im  Zwischenspiel  4  naher  kennen- 
lernen  werden.  Aber  haben  Sie  bis  dahin  ruhig  noch  etwas 
Geduld.  Die  acht  Moglichkeiten,  die  sich  aus  drei  Bits  ergeben, 
sehen  so  aus: 

000  001  010  011  100  101  110  111 

Das  ganze  Spielchen  l§Bt  sich  genauso  fur  vier  und  ftinf  Bits 
fortsetzen.  Und  theoretisch  noch  viel  weiter.  Mit  nur  12  Bits 
kflnnte  man  alle  4096  Farben  des  Amiga  verschlusseln,  aber  da 
spielen  die  Bausteine  zur  Video-Erzeugung  nicht  mehr  mit. 
Nach  32  Farben  ist  im  Normalfall  SchluB. 

Die  folgende  Tabelle  zeigt  alle  auf  dem  Amiga  mSglichen  Auf- 
lSsungsstufen,  die  erlaubten  Farben  und  den  dazu  nOtigen 
Speicher. 
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Auflosung      Bezeichnung     Farben    Bits/Pixel       Speicherbedarf 


320  *  200 

Niedrig- 

auflOsend, 

Normal 

2 

4 

8 

16 

32 

1 

2 
3 
4 
5 

8  KByte 
16  KByte 
24  KByte 
32  KByte 
40  KByte 

640  *  200 

Hoch- 

auflosend, 

Normal 

2 

4 

8 

16 

1 
2 
3 
4 

16  KByte 
32  KByte 
48  KByte 
64  KByte 

320  *  400 

Niedrig- 

auflfisend, 

Interlace 

2 

4 

8 

16 

32 

1 

2 
3 
4 
5 

16  KByte 
32  KByte 
48  KByte 
64  KByte 
80  KByte 

640  *  400 

Hoch- 

aufldsend, 

Interlace 

2 

4 

8 

16 

1 
2 
3 
4 

32  KByte 

64  KByte 

96  KByte 

128  KByte 

Tabelle  2: 

Die  Auflosungsstufen  des  Amiga  bei  Standard-Auflosung 
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Aufl3sung      Bezeichnung     Farben    Bits/Pixel       Speicherbedarf 


320  *  256 

Niedrig- 

aufldsend, 

Normal 

2 
4 
8 

16 
32 

1 
2 
3 
4 
5 

10  KByte 
20  KByte 
30  KByte 
40  KByte 
50  KByte 

640  *  256 

Hoch- 

auflosend, 
Normal 

2 

4 

8 

16 

1 
2 
3 
4 

20  KByte 
40  KByte 
60  KByte 
80  KByte 

320  *  512 

Niedrig- 

auflosend, 

Interlace 

2 

4 

8 

16 

32 

1 
2 
3 
4 
5 

20  KByte 
40  KByte 
60  KByte 
80  KByte 
100  KByte 

640  *  512 

Hoch- 

auflSsend, 

Interlace 

2 

4 

8 

16 

1 

2 
3 
4 

40  KByte 

80  KByte 

120  KByte 

160  KByte 

Tabelle  2a: 

Die  Auflosungsstufen  des  Amiga 

bei  PAL- 

-Auflosung 

Na,  ist  Ihnen  jetzt  klar,  warum  sich  die  Computerindustrie  die 
Jagd  nach  immer  mehr  Speicherplatz  fur  immer  weniger  Geld 
auf  die  Fahnen  geschrieben  hat?  Jetzt  verstehen  Sie  sicher  auch, 
warum  man  512  KByte  Speicher  problemlos  mit  wenigen  Bildern 
auffullen  kann.  Aber  zuruck  zur  vorerst  noch  etwas  graueren 
Theorie. 


Die  Bits,  die  fur  ein  bestimmtes  Pixel  zustandig  sind,  befinden 
sich  nicht  unmittelbar  hintereinander  im  Speicher.  Weil  es  fur 
die  Speicherverwaltung  des  Amiga  gunstiger  ist,  liegen  sie  in  so- 
genannten  Bit-Ebenen.  Bei  2  mOglichen  Farben  gibt  es  nur  eine 
Bit-Ebene.  Fiir  vier  Farben  kommt  eine  weitere  dazu.  Das  erste 
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Bit  des  jeweiligen  Pixels  Iiegt  in  der  ersten  Bit-Ebene,  das 
zweite  Bit  in  der  zweiten.  Kommt  ein  drittes,  viertes  oder  funf- 
tes  Bit  pro  Bildpunkt  dazu,  wird  dafiir  eben  auch  eine  dritte, 
vierte  oder  fiinfte  Bit-Ebene  angelegt. 

Um  die  Funktion  der  Bit-Ebenen  besser  zu  verstehen,  kann  man 
sie  sich  untereinander  angeordnet  vorstellen:  Je  mehr  Ebenen 
untereinander  liegen,  umso  mehr  Farben  kflnnen  dargestellt  wer- 
den. 


l.Bitrtene 


Z.Bitebene 


Bild  5:  Die  untereinander  angeordneten  Bit-Ebenen  speichern 

ein  farbiges  Bild 


Streng  genommen  stimmt  dieses  Bild  nicht  ganz,  denn  die  Bit- 
Ebenen  liegen  im  Speicher  hintereinander.  Zuerst  also  alle  Bits 
der  ersten  Ebene,  daran  anschliefiend  alle  Bits  der  zweiten 
Ebene  usw.  Zur  besseren  Vorstellung  ist  das  Bild  aber  gut  ge- 
eignet. 
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Wenn  Sie  jetzt  sagen,  "Von  alldem  habe  ich  hflchstens  die  Haifte 
verstanden  -  und  auch  die  nur  so  halb."  macht  das  auch  nichts: 
Um  in  BASIC  Farben  programmieren  zu  kdnnen,  miissen  Sie 
uber  solche  Details  der  Speicherverwaltung  nicht  unbedingt  Be- 
scheid  wissen.  Es  ist  nur  wichtig,  daB  Sie  eine  Vorstellung  davon 
haben,  wieviele  Bit-Ebenen  fur  wieviele  Farben  nfltig  sind,  und 
wieviel  Speicherplatz  Sie  das  ungefahr  kostet.  Bei  allzu  ver- 
schwenderischer  Benutzung  von  Farben  und  Screens  sind  nSm- 
lich  auch  512  KByte  RAM  sehr  schnell  verbraucht. 

Wir  haben  gerade  schon  wieder  von  "Screens"  gesprochen.  Was 
ein  "Screen"  genau  ist,  und  wozu  er  benutzt  wird,  erfahren  Sie 
im  nfcchsten  Kapitel. 


2.3        Wir  fallen  aus  dem  Rahmen  -  Screens 

Vielleicht  haben  Sie  das  schon  einmal  bei  einem  Grafik-Pro- 
gramm  oder  einer  Amiga- Vorfuhrung  gesehen:  Da  nimmt  einer 
die  Maus  und  zieht  auf  einmal  den  ganzen  Bildschirm  nach  un- 
ten, Dahinter  taucht  dann  ein  vflllig  anderes  Bild  auf,  zum  Bei- 
spiel  der  benihmte  springende  Ball  aus  den  Workbench-Demos, 
der  beim  Aufprall  immer  so  klingt  wie  ein  Elefant  beim  Seil- 
springen. 

Und  als  ob  es  noch  nicht  genug  ware,  kommen  manchmal  da- 
hinter noch  weitere  Grafik-Bildschirme  zum  Vorschein,  auf 
denen  sich  wieder  andere  Sachen  tummeln.  Ganz  am  SchluB 
schlieBlich,  wenn  auch  der  letzte  Bildschirm  in  der  Versenkung 
verschwunden  ist,  sieht  man  nur  noch  einen  blauen  leeren  Bild- 
schirm und  staunt  ob  der  Dinge,  die  da  vorher  waren. 

Das,  was  da  verschoben  wird,  nennt  man  "Screen".  Auf  Deutsch 
heiBt  das  nichts  anderes  als  "Bildschirm".  Machen  Sie  doch  ein- 
mal das  folgende  Experiment  mit:  Verkleinern  Sie  das  LIST- 
und  das  BASIC-Window  so,  daB  Sie  die  weiBe  Kopfleiste  der 
Workbench  sehen  konnen.  Bewegen  Sie  dann  den  Mauszeiger  auf 
die  Leiste  und  ziehen  Sie  mit  gedriickter  linker  Maustaste  die 
Kopfleiste  nach  unten:  Sie  sehen,  daB  der  ganze  Bildschirminhalt 
mit  alien  Windows  und  Icons  nach  unten  wandert  und  am  unte- 
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ren  Bildschirmrand  verschwindet.  Sie  haben  soeben  den  Work- 
bench-Screen bewegt.  Dahinter  wird  sich  im  Normalfall  nichts 
mehr  befinden.  Falls  doch,  laufen  vielleicht  noch  andere  Pro- 
gramme auf  Ihrem  Amiga,  oder  von  Ihren  BASIC-Experimenten 
ist  noch  ein  Screen  geoffnet. 

Auf  einem  Screen  konnen  sich  beliebig  viele  Windows  und  Icons 
befinden,  allerdings  ist  die  Auflosungsstufe  und  die  Anzahl  der 
hochstmdglichen  Farben  fur  die  Objekte  auf  einem  Screen  im- 
mer  dieselbe.  Das  liegt  daran,  daB  diese  Werte  beim  Anlegen  ei- 
nes  Screens  angegeben  werden  mussen.  Sie  gelten  dann  solange, 
bis  der  Screen  neu  definiert  oder  geschlossen  wird.  Fur  ein  Win- 
dow kann  keine  eigene  Aufldsung  oder  Anzahl  an  Bit-Ebenen 
festgelegt  werden. 

Ziehen  Sie  bitte  Ihren  Workbench-Screen  wieder  zuriick  auf  den 
Bildschirm.  Geben  Sie  dann  im  BASIC-Window  ein: 

screen  1,320,200,3,1 

Sobald  Sie  <RETURN>  gedruckt  haben,  erscheint  ein  neuer, 
leerer  Screen  auf  dem  Bildschirm.  Er  hat  eine  AuflCsung  von 
320  *  200  Punkten  und  bietet  8  mogliche  Farben.  Sie  sehen,  daB 
er  ein  Vordergrund/Hintergrund-Symbol  hat,  wie  es  auch  bei 
Windows  zu  sehen  ist.  Wenn  Sie  das  Hintergrund-Symbol  an- 
klicken,  kommt  wieder  der  Workbench-Screen  in  den  Vorder- 
grund.  Auch  in  Screens  kann  man  blattern  -  genau  wie  bei  Win- 
dows. 

Screens  sind  v611ig  eigenstandige  Bildschirme.  Sie  werden  aber 
nicht  auf  verschiedenen  Monitoren  bzw.  Fernsehern  dargestellt, 
sondern  auf  einem  einzigen.  Welchen  Screen  Sie  sehen,  kflnnen 
Sie  durch  Verschieben  und  Blattern  auswahlen.  Sobald  ein 
Screen  erzeugt  wurde,  ktfnnen  wir  auf  ihm  Windows  definieren. 
Geben  Sie  wieder  im  BASIC-Window  ein: 

window  1, "Hallo", ,0,1 
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Auf  unserem  neuen  Screen  erscheint  jetzt  ein  Window  namens 
"Hallo".  AmigaBASIC  wird  es  gleichzeitig  zum  neuen  BASIC- 
Window  machen.  Warum,  erkiaren  wir  noch. 

Auf  jeden  Fall  gibt  es  jetzt  zwei  Screens  im  Amiga:  Den  Work- 
bench-Screen und  den  Screen,  den  wir  uns  selbst  definiert  ha- 
ben.  Meistens  arbeiten  Sie  ja  auf  dem  Workbench-Screen,  zum 
Beispiel,  um  in  AmigaBASIC  zu  programmieren.  Auf  den  ande- 
ren  Screens  sehen  Sie  dann  die  Ausgaben  Ihres  Programms.  Da- 
mit  Sie  nicht  immer  die  Vordergrund/Hintergrund-Symbole  be- 
nutzen  mOssen,  die  oft  durch  Windows  verdeckt  sind,  gibt  es 
eine  andere  MOglichkeit,  den  Workbench-Screen  in  den  Vorder- 
grund  zu  holen:  Die  Tastenkombination  <geschlossene  Amiga- 
TastexN>  macht  den  Workbench-Screen  zum  vordersten  der 
dargestellten  Screens.  Um  das  Gegenteil  zu  erreichen,  driicken 
Sie  <geschlossene  Amiga-TastexM>.  Damit  wird  der  Work- 
bench-Screen nach  ganz  hinten  gebracht. 

Um  den  neuen  Screen  wieder  zu  schliefien,  geben  Sie  folgenden 
Befehl  im  BASIC-Window  ein: 

screen  close  1 

Damit  haben  wir  allerdings  den  Ast  abges&gt,  auf  dem  wir 
saBen:  Im  BASIC-Window  haben  wir  den  Befehl  gegeben,  den 
Screen  zu  schlieflen,  auf  dem  sich  das  BASIC-Window  befindet. 
Jetzt  haben  wir  keines  mehr.  Aber  keine  SOrge:  Wahlen  Sie  ein- 
fach  "Show  Output"  aus  dem  "WindowsM-Pulldown,  und  das  alte 
BASIC-Window  erscheint  auf  dem  Workbench-Screen. 

Jetzt  kennen  Sie  schon  die  wichtigsten  Befehle,  um  Screens  und 
Windows  in  AmigaBASIC  zu  programmieren.  Aber  was  bedeuten 
die  ganzen  Zahlen  dahinter? 

SCREEN  1,320,200,3,1 

Die  erste  Zahl  hinter  SCREEN  ist  die  Nummer  des  Screens. 
AmigaBASIC  kann  bis  zu  vier  Screens  verwalten.  Deshalb  sind 
hier  Zahlen  zwischen  1  und  4  erlaubt. 
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Die  nachsten  beiden  Werte  konnen  Sie  sich  wahrscheinlich  schon 
denken:  Der  erste  gibt  die  Anzahl  der  horizontalen  Pixels  an,  der 
zweite  die  vertikalen  Pixels.  Diese  beiden  Zahlen  legen  aber 
nicht  die  Auflosungsstufe  fest,  sondern  lediglich  die  Aus- 
dehnung  des  Screens  innerhalb  der  jeweiligen  Auflosung.  Pro- 
bieren  Sie  zum  Beispiel  mal: 

screen  1,200,200,3,1 

Wenn  Sie  fur  die  H6he  einen  Wert  kleiner  als  200  angeben,  kon- 
nen beim  Erscheinen  des  Screens  zufallige  Muster  in  den  nicht 
vom  Screen  benutzten  Teilen  des  Bildschirms  erscheinen.  Wenn 
Sie  einen  solchen  Screen  verschieben,  wird  er  sich  danach  nur 
bis  zur  definierten  H6he  heraufziehen  lassen.  Wollen  Sie  das  mal 
ausprobieren? 

screen  1,200,100,3,1 

Der  vierte  Wert  im  SCREEN-Befehl  gibt  die  Anzahl  an  Bit- 
Ebenen  an,  die  der  Screen  haben  wird.  So  konnen  Sie  festlegen, 
wieviele  verschiedene  Farben  auf  dem  Screen  dargestellt  werden 
k&nnen.  Die  letzte  Zahl  schlieBlich  gibt  die  Auflosungsstufe  an, 
die  fiir  den  Screen  gelten  soil.  Dabei  sind  vier  Werte  moglich: 


Wert  Auflosungsstufe                        in  Pixels 

1  Niedrigauflflsend,  Normal        320  *  200  (PAL:  256) 

2  Hochauflosend,  Normal  640  *  200  (PAL:  256) 

3  Niedrigaufttsend,  Interlace      320  *  400  (PAL:  512) 

4  Hochauflosend,  Interlace  640  *  400  (PAL:  512) 

Tabelle  3:  Die  moglichen  Auflosungsstufen  beim  SCREEN-Befehl 


Die  Werte,  die  Sie  fur  horizontale  und  vertikale  Ausdehnung  an- 
geben, mussen  innerhalb  der  Grenzen  der  gewShlten  Auf- 
losungsstufe liegen.  Sonst  kOnnen  recht  merkwurdige  Ergebnisse 
herauskommen.  Sie  sollten  also  z.B.  keine  Ausdehnung  von 
440  *  200  Punkten  w&hlen,  wenn  Sie  als  Aufldsungsstufe  nur  1 
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(also  320  *  200)  angeben.  AmigaBASIC  bringt  zwar  keine 
Fehlermeldung,  aber  sehr  sinnvoll  sind  solche  Werte  trotzdem 
nicht. 

In  der  Tabelle  gerade  eben  ist  wieder  der  Ausdruck  "Interlace" 
vorgekommen.  Es  wird  Zeit,  ihn  zu  erklaren.  Probieren  wir  zu- 
erst  aus,  was  der  Interlace-Modus  bewirkt: 

screen  1,640,400,1,4  :  window  1, "Test", <0,0)-<400, 300), 15,1 

Ihnen  werden  nun  zwei  Dinge  auffallen.  Namlich,  dafi  die 
Buchstaben  ungeheuer  klein  sind  und  daB  der  Bildschirm  stark 
zittert.  Das  erste  ist  der  Vorteil,  das  zweite  der  Nachteil  am  In- 
terlace-Modus. Er  dient  dazu,  eine  h&here  vertikale  Auflosung 
zu  ermoglichen.  Tatsachlich  ktfnnen  so  auf  dem  PAL-Amiga  bis 
zu  512  Pixels  hohe  Grafiken  erzeugt  werden. 

Warum  das  m6glich  ist,  und  warum  das  Ganze  so  zittert,  kann 
nur  ein  letzter  Exkurs  in  die  Fernsehtechnik  erkliiren.  Mittler- 
weile  wissen  Sie  ja,  daB  die  Sache  mit  den  bewegten  Bildern  ei- 
gentlich  ein  Schwindel  ist:  Der  Bildschirm  stellt  in  rascher  Rei- 
henfolge,  25  mal  pro  Sekunde,  ein  Bild  dar.  Das  menschliche 
Auge  lafit  sich  tauschen  und  sieht  eine  Bewegung.  Das  ist  mit  25 
Bildern  pro  Sekunde  auch  problemlos  moglich,  allerdings  flim- 
mert  das  Bild  dann  noch  erheblich.  Damit  man  nicht  mehr  Bil- 
der  pro  Sekunde  senden  muB,  was  die  Ubertragung  schwieriger 
machen  wiirde,  benutzt  man  einen  Trick,  um  das  Bild  stabiler 
darzustellen:  Zwischenzeilentechnik.  In  der  ersten  H&lfte  der 
1/25  Sekunde  stellt  der  Fernseher  nur  jede  zweite  Bildzeile  dar. 
In  der  zweiten  Halfte  wird  dasselbe  Bild  nochmal  aufgebaut, 
aber  diesmal  werden  genau  die  Zeilen  verwendet,  die  vorher  frei 
geblieben  waren.  Das  sieht  fur  das  Auge  so  aus,  als  ob  50  Bilder 
pro  Sekunde  dargestellt  wiirden,  was  ausreicht,  um  das  Bild  ru- 
hig  erscheinen  zu  lassen. 

Auch  die  Bilderzeugung  des  Amiga  verwendet  diesen  Trick,  egal 
ob  das  Bild  auf  einem  Monitor  oder  einem  Fernseher  dargestellt 
wird.  Damit  erzeugt  sie  im  Normalmodus  eine  Auflflsung  von 
256  Bildzeilen  (bzw.  vertikalen  Pixels). 
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Um  diese  Zeilenzahl  verdoppeln  zu  kftnnen,  sendet  der  Amiga 
im  Interlace-Modus  in  den  Zwischenzeilen  ein  anderes  Halbbild. 
Die  beiden  versetzt  dargestellten  Halbbilder  setzen  sich  fur  das 
Auge  wieder  zu  einem  kompletten  Bild  zusammen.  Allerdings 
steht  dieses  Bild  eben  nicht  so  ruhig  wie  im  Normalmodus,  weil 
es  jetzt  nur  noch  mit  der  halben  Anzahl  an  Bildern  pro  Sekunde 
entsteht. 

Das  Flimmern  ist  umso  st&rker,  je  h6her  die  Kontraste  zwischen 
den  benachbarten  Farben  sind.  Ob  und  wann  Sie  den  Interlace- 
Modus  verwenden  wollen,  miissen  Sie  selbst  entscheiden.  Es 
h£ngt  nicht  nur  von  den  Farben,  sondern  auch  von  der  darge- 
stellten Grafik  ab,  wie  stark  das  Bild  zittert. 

Abgesehen  davon  gibt  es,  wenn  Sie  aus  beruflichen  Griinden 
Oder  einfach  nur  so  sehr  an  einem  absolut  ruhigen  Bild  interes- 
siert  sind,  noch  die  Mdglichkeit,  mit  einem  speziellen  Monitor 
zu  arbeiten,  der  durch  eine  lSngere  Nachleuchtdauer  (fur  Nicht- 
Techniker:  eine  Art  Verzdgerungseffekt)  das  Flimmern  mindert. 
Apropos  Flimmern  -  vielleicht  finden  Sie  dieses  Flimmern 
reichlich  unprofessional  von  einem  Computer  wie  dem  Amiga. 
Dann  machen  Sie  sich  bitte  mal  die  Miihe  und  achten  Sie  bei  der 
Tagesschau  oder  dem  Heute-Journal  auf  die  oberen  und  unteren 
RSnder  der  Tafeln,  die  hinter  dem  Sprecher  eingeblendet  wer- 
den.  Merken  Sie  was? 


2.4        Fenster  sind  zum  Malen  da  -  Windows 

Wenn  die  bendtigen  Screens  definiert  sind,  besteht  der  nSchste 
Schritt  darin,  Windows  auf  dem  jeweiligen  Screen  anzulegen. 
Wie  Sie  sich  nach  unseren  Beispielen  sicher  schon  denken  kfln- 
nen,  wird  dazu  der  BASIC-Befehl  WINDOW  benutzt.  Falls  Sie 
noch  den  Interlace-Screen  aus  dem  letzten  Kapitel  auf  dem 
Bildschirm  haben  (das  merkt  man  ubrigens  daran,  daB  auch  die 
anderen  Screens  leicht  zittern),  ldschen  Sie  ihn  bitte  mit 

screen  close  1 
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Um  wieder  zu  einem  BASIC-Window  zu  kommen,  w§hlen  Sie 
bitte  "Show  Output"  aus  dem  "Windows"-Menu  an.  Geben  Sie 
dann  im  BASIC-Window  ein: 

window  2, "Hallo", (320, 20)- (600, 150), 31,-1 

Daraufhin  erscheint  ein  Window  namens  "Hallo"  auf  dem  Work- 
bench-Screen. Tippen  Sie  jetzt  ein: 

for  x=1   to  100   :  ?  x  :  next  x 

Sie  sehen,  daB  die  ausgegebenen  Zahlen  in  dem  neuen  Window 
erscheinen.  Mit  dem  Befehl 

window  output  1 

erreichen  Sie,  daB  die  Ausgaben  wieder  wie  gewohnt  ins 
BASIC-Window  kommen. 

Es  wird  wohl  Zeit,  ein  wenig  Systematik  in  die  ganze  Sache  zu 
bringen.  Zun^chst  einmal  die  Parameter  des  WINDOW-Befehls: 

WINDOW  2,"Hallo", (320, 20) -(600, 150), 31,-1 

Die  erste  Zahl  hinter  dem  Befehl  gibt  die  Nummer  des  Windows 
an.  Sie  konnen  in  AmigaBASIC  beliebig  viele  Windows  anlegen, 
solange  der  Speicherplatz  ausreicht.  Die  Nummer  1  ist  fur  das 
BASIC-Window  reserviert.  Fur  eigene  Windows  sollten  Sie  also 
Nummern  ab  2  verwenden.  Wenn  Sie  ein  neues  Window  1  ange- 
ben,  konnen  Sie  die  GroBe,  Auflosung  und  Farbenvielfalt  das 
BASIC-Windows  verSndern.  Wollen  Sie  mehr  als  vier  Farben 
oder  eine  hflhere  Aufldsung  als  640  *  256  Punkte,  muB  das  Win- 
dow allerdings  auf  einem  neuen  Screen  liegen,  denn  die  Ein- 
stellungen  des  Workbench-Screens  k&nnen  nicht  veriindert  wer- 
den.  Er  ist,  zumindest  in  den  jetzigen  Versionen  der  Workbench 
und  von  AmigaBASIC,  festgelegt  auf  640  *  256  Punkte 
Auflosung  und  zwei  Bit-Ebenen,  sprich  vier  Farben. 
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Die  zweite  Angabe  beim  WINDOW-Befehl  ist  der  Name,  den  das 
neue  Window  bekommen  soil.  Er  wird  als  String  angegeben,  das 
heiBt,  entweder  als  Text  in  Anfuhrungszeichen  oder  durch  eine 
Stringvariable. 

An  dritter  Stelle  kflnnen  Sie  die  Lage  und  die  GroBe  des  Win- 
dows angeben.  Fehlt  diese  Angabe  bei  der  Definition,  nimmt  das 
Window  die  voile  GroBe  des  jeweiligen  Screens  an.  Wollen  Sie 
andere  Werte  festlegen,  mussen  Sie  die  Koordinaten  der  linken 
oberen  Ecke  des  Windows  (z.B.  (100,10))  und  der  rechten  unte- 
ren  Ecke  des  Windows  (z.B.  (500,140))  in  der  Form 
(xl,yl)-(x2,y2)  angeben. 

Der  nSchste  (vierte)  Wert  legt  fest,  was  mit  dem  erzeugten  Win- 
dow alles  gemacht  werden  darf  und  was  nicht.  Dazu  wird  die 
hier  angegebene  Zahl  aus  mehreren  Einzelwerten  zusammen- 
gesetzt,  je  nachdem,  welche  Eigenschaften  das  Window  haben 
soli. 

Folgende  Einzelwerte  sind  m6glich: 

1  Die  GroBe  des  Windows  darf  mit  dem  GroBensymbol 
venindert  werden. 

2  Das  Window  kann  mit  der  Maus  verschoben  werden. 

4  Das  Window  kann  mit  dem  Vordergrund/ 
Hintergrund-Symbol  in  den  Vorder-  bzw.  Hinter- 
grund  geklickt  werden. 

8  Das  Window  kann  mit  dem  SchlieBsymbol  aus- 
geklickt  werden. 

16  Der  Inhalt  des  Windows  bleibt  gespeichert,  wenn 
sich  die  GroBe  &ndert  oder  ein  anderes  Window  im 
Vordergrund  liegt. 

Tabelle  4:  Die  moglichen  Angaben  beim  WINDOW-Befehl 
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Wenn  Sie  zum  Beispiel  ein  Window  anlegen  wollen,  das  bewegt 
werden  kann  (Wert  2)  und  ausgeklickt  werden  darf  (Wert  8),  ge- 
ben  Sie  als  vierten  Wert  2+8,  also  10  an.  Ein  Window,  das  in  der 
GrflBe  verandert  (1),  bewegt  (2)  und  in  den  Hintergrund  ge- 
klickt  werden  darf  (4),  bekommt  den  Wert  1+2+4,  also  7.  Wenn 
fur  ein  Window  alles  erlaubt  ist  (1+2+4+8+16),  hat  es  den  Wert 
31. 

Aber  Achtung:  Vor  allem  die  letzte  Option  (16)  kostet  viel 
Speicherplatz  -  denn  dazu  muB  sich  Amiga  ja  den  gesamten  In- 
halt  eines  Fensters  standig  merken,  urn  ihn  jederzeit  wieder 
herstellen  zu  k6nnen.  Falls  der  Windowinhalt  nicht  gespeichert 
bleibt  (wozu  Sie  eben  den  Wert  16  angeben  miissen),  verschwin- 
det  er,  nachdem  ein  anderes  Window  vor  ihm  lag  oder  nachdem 
das  Window  bewegt  wurde.  Deshalb  sollte  man  dafiir  sorgen,  daB 
ein  Window,  bei  dem  der  Einzelwert  16  nicht  mit  angegeben 
werden  konnte,  immer  im  Vordergrund  liegt  und  nicht  verscho- 
ben  wird.  Am  besten  verwendet  man  in  diesem  Fall  den  Wert  0 
(nichts  ist  erlaubt).  Je  nachdem,  welchen  Wert  Sie  eingeben, 
werden  Sie  einen  Teil  der  ublichen  Window-Symbole  nicht  am 
Windowrahmen  finden. 

Der  letzte  Wert  beim  WINDOW-Befehl  schlieBlich  gibt  an,  auf 
welchem  Screen  sich  das  Window  befinden  soil.  Wird  kein  Wert 
oder  die  Zahl  -1  angegeben,  erscheint  das  Window  auf  dem 
Workbench-Screen. 

Ein  Window  ist  ab  dem  Zeitpunkt,  an  dem  es  mit  dem  Befehl 
WINDOW  erzeugt  wurde,  automatisch  das  Ausgabe-Window.  Das 
heiBt,  hier  erscheinen  die  Ausgaben  Ihres  Programms.  Um  die 
Ausgabe  auf  ein  beliebiges  Window  umzuleiten,  gibt  es  den  Be- 
fehl 

WINDOW  OUTPUT  Window-Nummer 

Probieren  Sie  die  Befehle,  die  wir  Ihnen  vorstellen,  ruhig  an  ei- 
genen  Beispielen  aus.  WINDOW  OUTPUT  leitet  lediglich  die 
Ausgabe  um  und  Sndert  nichts  an  der  Darstellung  oder  Lage  der 
Windows.  AmigaBASIC  erlaubt  sogar,  die  Ausgabe  auf  ein  ge- 
schlossenes  oder  nicht  sichtbares  Window  umzuleiten.  Wenn  Sie 
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wollen,  daB  das  gewahlte  Ausgabe-Window  gleichzeitig  auch  in 
den  Vordergrund  geholt  wird,  verwenden  Sie  einfach  den  WIN- 
DOW-Befehi  ohne  irgendwelche  weiteren  Werte: 

WINDOW  Window-Nummer 

Das  geht  aber  nur  mit  Windows,  die  vorher  definiert  worden 
sind. 

SchlieBlich  gibt  es  noch  den  Befehl 

WINDOW  CLOSE  Window-Nummer 

Er  nimmt  ein  definiertes  Window  vom  Bildschirm,  allerdings 
ohne  es  dabei  zu  loschen.  Das  Window  verschwindet  zwar  aus 
Ihrer  Sicht,  ist  aber  immer  noch  im  Speicher!  Es  gibt  keinen 
Befehl,  um  ein  einzelnes  Window,  das  einmal  eroffnet  wurde, 
endgultig  zu  ldschen.  Sogar  der  Befehl  SCREEN  CLOSE  Ioscht 
"seine"  zugeh5rigen  Windows  nicht.  Nur  vor  dem  Start  mit  RUN 
bzw.  durch  die  entsprechende  Pulldown-Option  und  beim  L0- 
schen  eines  Programms  schlieBt  AmigaBASIC  alle  angelegten 
Screens  und  Windows.  Denken  Sie  daran,  und  verwenden  Sie 
deshalb  nicht  zuviele  Windows  in  Ihren  Programmer 

Diese  unkomfortable  Eigenschaft  von  AmigaBASIC  kann  auch 
der  Grund  sein,  wenn  AmigaBASIC  sich  auf  einmal  weigert, 
einen  WINDOW-Befehl,  der  "vorhin  doch  noch  funktionierte", 
auszufuhren.  Der  Fehler  "Illegal  function  call"  weist  auf  ein 
solches  Problem  hin,  er  kann  aber  auch  andere  Ursachen  haben. 
Tritt  dieser  Fehler  auf,  sollten  Sie  entweder  eine  neue  Window- 
Nummer  verwenden,  oder  durch  einen  Neustart  des  aktuellen 
Programms  erst  mal  alle  Windows  ISschen. 

Obwohl  Sie  das  alles  sicher  an  eigenen  Beispielen  ausprobiert 
haben,  war's  bis  hierher  doch  etwas  trocken.  Mit  unseren  neuen 
Kenntnissen  wollen  wir  deshalb  gleich  etwas  Praktisches  anfan- 
gen.  Unser  Videotitel-Programm  lSuft  ja  bisher  nur  mit  vier 
Farben.  Das  kdnnen  wir  jetzt  andern. 
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Laden  Sie  bitte  das  Programm  "Videotitel"  und  ergfcnzen  Sie  den 
Programmteil  'Vorbereitungen:'  so,  daB  er  wie  folgt  aussieht: 

Vorbereitungen: 

Farben=2 

d=15  :  Maxfarbe=(2AFarben)-1 

Textfa=1 

SCREEN  CLOSE  2 

IF  Farben>2  THEN  SCREEN  2,640,200, Farben,2  :  WINDOW 

2, "Videotitel",, 28, 2 

DIM  Text$(d),Farbfeld(d,3),Beweg(d),Geschw(d) 

FueU$=STRING$(16,"-") 

In  der  Variablen  'Farben'  geben  Sie  die  Anzahl  an  Bit-Ebenen 
an,  die  verwendet  werden  soil.  Die  Standardeinstellung  ist  2. 
Falls  Sie  mehr  Farben  benutzen  wollen  geben  Sie  3  (fur  8  Far- 
ben) oder  4  (fur  16  Farben)  an,  Wenn  der  Inhalt  von  'Farben1 
groBer  als  2  ist,  legt  das  Programm  einen  entsprechenden  Screen 
und  ein  entsprechendes  Window  an.  Am  besten  konnen  Sie  das 
sehen,  wenn  Sie  im  Programm  den  Meniipunkt  4  ("Farben  festle- 
gen")  wahlen.  Vergessen  Sie  nicht,  die  erweiterte  Version  gleich 
wieder  abzuspeichen  -  vielleicht  unter  einem  neuen  Namen, 
wenn  Sie  die  Ur- Version  nicht  loschen  wollen. 
In  der  Version  des  Videotitel-Programms,  das  Sie  auf  unserer 
Diskette  im  Buch  finden,  steht  dieser  Teil  tibrigens  schon. 

Aber  das  Beispiel  von  eben  war  erst  der  Anfang.  Nachdem  Sie 
jetzt  Screens  und  Windows  in  AmigaBASIC  kennen  und  pro- 
grammieren  konnen,  wollen  wir  uns  im  nachsten  Kapitel  mit 
den  Befehlen  beschaftigen,  mit  denen  wir  in  unsere  Windows  ein 
wenig  Grafik  bringen  konnen. 


2.5        Die  Vielseitigen  -  erste  Grafikbefehle 

Wir  wollen  uns  jetzt  mit  den  Grafibefehlen  des  Amiga  beschaf- 
tigen. In  den  folgenden  Kapiteln  wird  Ihnen  immer  wieder  eines 
auffallen:  Hinter  einem  einzigen  Befehl  steckt  oft  noch  eine 
ganze  Latte  von  Optionen,  die  ihn  sehr  vielseitig  machen. 
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Fur  unsere  ersten  Experimente  im  Direktmodus  holen  Sie  bitte 
das  BASIC-Window  ganz  in  den  Vordergrund,  damit  Sie  es  voll- 
standig  sehen  kflnnen.  Wir  wollen  ganz  klein  anfangen.  Klein 
zumindest,  was  die  GroBe  des  Ergebnisses  betrifft.  Probieren  Sie 
mal: 

pset  (400,100) 

Vielleicht  haben  Sie  den  Kleinen  iiberhaupt  nicht  bemerkt,  aber 
auf  dem  Bildschirm  ist  ein  weiBer  Punkt  erschienen.  Ungefahr 
an  der  Position,  wo  sonst  das  LIST-Window  beginnt  und  etwa 
auf  halber  Hohe  des  Bildschirms.  Wenn  Sie  ihn  uberhaupt  nicht 
entdecken  kdnnen,  vergrfiBern  wir  ihn  halt  etwas.  Mit 

pset  (401,100) 

setzen  wir  unmittelbar  daneben  noch  einen  weiBen  Punkt.  Jetzt 
muBte  ihn  aber  jeder  sehen  kdnnen.  Der  BASIC-Befehl  PSET 
wird  benutzt,  um  einzelne  Punkte  in  einer  Grafik  zu  erzeugen. 
Da  ein  einzelner  Punkt  natiirlich  noch  keinen  allzu  groBen  Staat 
macht,  wollen  wir  den  Amiga  jetzt  mehrere  Punkte  nebenein- 
ander  zeichnen  lassen: 

for  x=1  to  184  :  pset  (x,x),3  :  next  x 

Schon  ist  eine  Linie  entstanden,  zur  Abwechslung  in  oranger 
Farbe. 

Beim  PSET-Befehl  geben  Sie  durch  eine  x-  und  eine  y-Koordi- 
nate  an,  wo  der  Punkt  entstehen  soil.  Und  zwar,  wie  auch  beim 
Window-Befehl,  in  der  Form  (x,y),  also  in  Klammern.  Das  ganze 
funktioniert  wie  beim  beruhmten  "Schiffe  versenken".  Zwei 
Koordinaten  geben  den  Zielpunkt  an.  Nur,  daB  der  Amiga  eben 
nicht  irgendwann  sagt:  "Schiff  versenkt."  Apropos:  "Schiffe  ver- 
senken" kGnnten  Sie  auf  dem  Amiga  ja  auch  programmieren. 
Aber  bevor  Sie  das  anfangen,  sollten  Sie  lieber  noch  ein  biBchen 
Erfahrungen  sammeln. 

In  einem  normalen  Window  auf  einem  640  *  200-Screen  kann  x 
zwischen  0  und  617  liegen,  y  zwischen  0  und  184.  Ein  Teil  des 
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verfugbaren  Platzes  wird  namlich  durch  den  Rahmen  und  die 
Symbole  des  Windows  benOtigt.  Hinter  den  Koordinaten  kann 
dann  noch  die  Zeichenfarbe  angegeben  werden.  Die  vollstandige 
Syntax  lautet  also: 

PSET  (x,y),Zeichenfarbe 

Die  BASIC-Zeile,  die  eine  Linie  erzeugt  hat,  funktioniert  ganz 
einfach:  Die  Variable  V  wird  von  1  auf  184  hochgezahlt.  Die  x- 
Koordinate  und  die  y-Koordinate  sollen  immer  denselben  Wert 
haben,  namlich  den  von  V.  So  wird  bei  (1,1)  ein  Punkt  gezeich- 
net,  bei  (2,2),  bei  (3,3)  usw.  bis  (184,184).  Das  Ergebnis  ist  eine 
Linie,  die  in  einem  ganz  bestimmten  Winkel  iiber  den  Bild- 
schirm  veriauft.  Allerdings  bietet  AmigaBASIC  eine  wesentlich 
einfachere  Methode,  Linien  zu  zeichnen:  Den  Befehl  LINE.  Die 
Linie,  die  wir  gerade  noch  aus  Punkten  gebastelt  haben,  wird 
mit  LINE  so  programmiert: 

LINE  C1,1)-(184ff184)f3 

Wenn  Sie  das  Ergebnis  sehen  wollen,  miissen  Sie  allerdings  vor- 
her  den  Bildschirm  mit  CLS  lflschen,  sonst  wird  ja  die  neue  Li- 
nie einfach  iiber  die  alte  gemalt  und  Sie  sehen  keinen  Unter- 
schied. 

Beim  LINE-Befehl  geben  Sie  einfach  den  Anfangspunkt  der  Li- 
nie an,  dann  ein  Mbis"-Zeichen  (-)  und  dann  den  Endpunkt  der 
Linie,  sowie  gegebenenfalls  noch  die  Zeichenfarbe.  Sie  kdnnen 
auch  die  erste  Koordinate  weglassen,  dann  beginnt  die  Linie  an 
dem  Punkt,  wo  die  letzte  aufhflrte: 

LINE   -(500, 10), 2 

Eine  einfache  Moglichkeit,  interessante  Grafiken  zu  erzeugen, 
ist  die  Benutzung  von  Zufallswerten.  Dazu  gibt  es  eine  beson- 
dere  Variable,  sie  heiBt  RND  (kommt  von  engl.  RaNDom, 
deutsch:  zufiillig).  Die  Variable  RND  liefert  immer  Zufalls- 
zahlen,  die  irgendwo  zwischen  0  und  1  liegen.  Schauen  Sie  sich 
doch  mal  ein  paar  davon  an: 
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for  x=1   to  10  :  ?  rnd  :  next  x 

Mit  diesem  Handwerkszeug  konnen  wir  jetzt  schon  ganz  hubsche 
Effekte  erzielen.  Schreiben  Sie  das  folgende  Programm  bitte  ins 
LIST-Window  und  speichern  Sie  es  gleich  ab.  Wir  werden  es 
dann  Stuck  fur  Stuck  verandern.  Scheuen  Sie  sich  nicht,  auch 
eigene  Experimente  zu  unternehmen.  Wenn  Ihnen  ein  Ergebnis 
besonders  gut  gefallt,  sollten  Sie  das  Programm  gleich  wieder 
unter  einem  neuen  Namen  abspeichern. 

Die  erste  Fassung  erzeugt  farbige  Punkte  an  zufalligen  Positio- 
nen: 

CLS 

Schleife: 

PSET  (617*RND,184*RND),3*RND 

GOTO  Schleife 

Nochmal  zuriick  zu  den  Zufallszahlen:  Wenn  Sie  RND  mit  einer 
Zahl  (z.B.  617)  multiplizieren,  erhalten  Sie  eine  Zufallszahl  zwi- 
schen  0  und  der  angegebenen  Zahl  (z.B.  617).  So  werden  die  x-, 
die  y-Koordinate  und  die  verwendete  Farbe  festgelegt.  Nach  ei- 
niger  Zeit  ist  der  Bildschirm  mit  farbigen  Punkten  ziemlich 
ubersat.  Wenn  Sie  wollen  und  genug  Speicherplatz  haben,  kon- 
nen Sie  das  Ganze  ja  auf  einem  anderen  Screen  mit  mehr  Farben 
haben: 

Farben=4 

SCREEN  1,640 ,200, Farben, 2 

WINDOW  2, "Punkte", ,31,1 

CLS 

Schleife: 

PSET  (617*RN0,184*RND),Farben*RND 

GOTO  Schleife 

Sie  wollen  vielleicht  auch  noch  die  RGB-Zusammensetzung  der 
Farben  auf  Zufallsbasis  festlegen.  Fugen  Sie  einfach  vor  dem 
CLS-Befehl  noch  diese  Zeilen  ein: 
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FOR  x=1  TO  <2AFarben)-1 
PALETTE  x, RND, RND, RND 
NEXT  x 

Die  nun  entstandene  Version  finden  Sie  auf  unserer  Diskette  im 
Buch  ubrigens  unter  dem  Namen  "Punkte"  in  der  "Grafik"- 
Schublade.  Aber  zuriick  zum  Programm: 

Die  Formel  (2AFarben)-l  werden  Sie  Sfter  benutzen.  Sie  errech- 
net  aus  den  vorhandenen  Bit-Ebenen  (in  der  Variablen  'Far- 
ben"')  die  hftchste  erlaubte  Farbnummer.  Das  Zeichen  A  steht  fur 
"hoch",  also  potenzieren:  24  schreibt  man  in  BASIC  2A4. 

Beim  PALETTE-Befehl  ist  RND  ja  sehr  einfach  zu  benutzen: 
Die  Werte  fur  Rot,  Grun  und  Blau  kSnnen  zwischen  0  und  1 
liegen,  und  RND  liefert  genau  so  eine  Zahl.  Ersetzen  Sie  die 
Zeile,  in  der  der  PSET-Befehl  steht,  durch 

LINE   -(617*RND,184*RND),Farben*RND 

und  Sie  bekommen  zuf&llige  Linien.  Das  Ergebnis  erinnert  stark 
an  ein  nicht  aufgerBumtes  Mikado-Spiel,  finden  Sie  nicht?  Der 
LINE-Befehl  bietet  mehr,  als  man  zunachst  vermutet.  Probieren 
Sie  im  BASIC-Window  folgendes: 

LINE  <10,10)-(300,100),1,b 

Ein  Rechteck  ist  entstanden.  Auch  das  kann  der  LINE-Befehl. 
Na,  hatten  Sie  ihm  das  zugetraut?  Wie  schon  eingangs  erwahnt: 
Besonders  bei  den  Grafik-Befehlen  kann  man  durch  die  Angabe 
von  zusStzlichen  Parametern  oft  verbluffende  Effekte  erzielen. 
Das  ,b  steht  fur  Block,  iibersetzt  also:  Rechteck. 

Aber  woher  wuBte  der  Amiga,  wie  das  Rechteck  liegen  soil?  Die 
Anfangskoordinate  legt  die  linke  obere  Ecke  fest,  der  Endkoor- 
dinate  die  rechte  untere  Ecke.  Das  erinnert  Sie  vielleicht  an  die 
Schreibweise  von  Koordinaten  bei  Windows.  Stimmt  auch,  denn 
Sie  geben  in  AmigaBASIC  die  Begrenzungspunkte  fur  Punkte, 
Linien,  Windows,  Rechtecke  und  ahnliches  immer  in  der  glei- 
chen  Form  an. 
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Ftigen  Sie  an  den  LINE-Befehl  in  unserem  kleinen  Beispiel- 
programm  noch  ein  ,b  an: 

LINE  -(617*RND,184*RND>,Farben*RND,b 

Das  Ergebnis  sieht  wieder  recht  interessant  aus.  Und  als  ob's 
noch  nicht  genug  ware,  bietet  der  LINE-Befehl  noch  eine  wei- 
tere  Uberraschung:  Sie  kdnnen  die  Rechtecke  auch  noch  ausma- 
len  lassen.  Dazu  hSngen  Sie  anstatt  ,b  einfach  ,bf  an  (d.h.  Block 
Fill,  also  Rechteck  fullen).  Probieren  Sie  das  wieder  in  unserem 
Listing. 

LINE   -<617*RND,184*RND),Farben*RND,bf 

Auch  nicht  schlecht,  oder?  Nun  soil  es  aber  auch  Menschen  ge- 
ben,  die  nichts  dem  Zufall  iiberlassen  wollen  und  lieber  alles  so 
exakt  wie  mSglich  vorausberechnen.  Wenn  Sie  eher  zu  diesem 
Typ  gehflren,  konnten  Sie  sich  vielleicht  mit  den  Zufallsfunktio- 
nen  nicht  so  recht  anfreunden. 

Ein  anderer  Weg,  um  Computergrafiken  zu  erzeugen,  ist  die 
Verwendung  mathematischer  Formeln.  Auch  dabei  unterstiitzt 
Sie  AmigaBASIC.  Erinnern  Sie  sich  zum  Beispiel  noch  an  die  Si- 
nus-Kurven  aus  den  ungezahlten  Mathematik-Stunden?  Spei- 
chern  Sie  bitte  das  aktuelle  Programm  ab,  lflschen  Sie  dann  den 
Speicher  mit  NEW  und  geben  Sie  ein: 

for  x=o  TO  617 
y=90-80*SIN(x/40> 
PSET  <x,y) 
NEXT  x 

Wissen  Sie  noch  entfernt,  was  die  Sinus-Funktion  bewirkt?  Also, 
zunachst  mal  liefert  sie  Ergebnisse  im  Bereich  von  -1  bis  +1. 
Dadurch  entsteht  die  bekannte  Kurve,  die  den  Herstellern  von 
kleinen  Plastikschablonen  enormes  Geld  gebracht  hat.  Unsere 
Formel  in  der  zweiten  Zeile  rechnet  die  Ergebnisse  der  SIN- 
Funktion  (so  heiBt  sie  nSmlich  in  AmigaBASIC)  auf  die  Bild- 
schirm-Koordinaten  um.  Der  x-Wert  wird  durch  40  geteilt,  da- 
mit  die  Kurven  nicht  zu  eng  werden.  Das  Ergebnis  wird  mit  80 


170 AmigaBASIC 


multipliziert  (jetzt  haben  wir  Zahlen  von  -80  bis  +80)  und  von 
der  Zahl  90  abgezogen.  So  kommen  schlieBlich  fur  den  Bild- 
schirm  y-Koordinaten  zwischen  10  und  170  raus. 

Wenn  Ihnen  das  alles  zu  mathematisch  klang,  Sndern  Sie  einfach 
die  eine  oder  andere  Zahl  in  der  Formel  und  schauen  Sie,  was 
passiert.  (Die  40  hinten  durfen  Sie  kleiner  oder  groBer  machen, 
die  80  sollten  Sie  nur  verkleinern  und  die  90  vorne  bitte  vorerst 
ganz  in  Ruhe  lassen.) 

Urn  anstelle  der  gepunkteten  Linie  eine  durchgezeichnete  Kurve 
zu  erreichen,  verwenden  wir  wieder  den  LINE-Befehl.  Sie  mus- 
sen  ihm  nur  diesmal  einen  Startpunkt  vorgeben,  damit  die  erste 
Linie  nicht  an  irgendeiner  zufalligen  Stelle  auf  dem  Bildschirm 
anfangt.  Deshalb  kommt  ganz  vorne  noch  der  PSET-Befehl  dazu. 

PSET  (0,90) 
FOR  x=0  TO  617 
y=90-80*SIN(x/40) 
LINE  -(x,y> 
NEXT  x 

Wenn  Sie  anstelle  von  SIN  einmal  COS  (=  Cosinus,  das  ist  der 
Kumpel  vom  Sinus,  die  beiden  werden  haufig  zusammen  an- 
getroffen)  ausprobieren,  sehen  Sie,  daB  sich  die  Kurve  veran- 
dert.  Mit  SIN  und  COS  lassen  sich  noch  viele  hiibsche  Effekte 
erzielen.  Wir  haben  Ihnen  ein  paar  Programmbeispiele  zusam- 
mengestellt: 

FOR  x=0  TO  617 
y=90-80*SIN(x/40) 
LINE  <0,90)-<x,y) 
NEXT  x 

Wenn  Sie  die  Punkte  auf  einer  Sinus-Kurve  mit  einem  festen 
Punkt  verbinden,  kommt  ein  interessantes  Linien-Gebilde  dabei 
heraus.  Vielleicht  noch  das  Ganze  mit  mehr  Farbe? 
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Farben=4 

SCREEN  1,640, 200, Farben, 2 

WINDOW  2,,lSinus-Spektrum»,,31,1 

FOR  x=0  TO  617 

Fa=Fa+1  :  IF  Fa>7  THEN  Fa=0 

y=90-80*SIN(x/40) 

LINE  (0,90)-(x,y),Fa 

NEXT  x 

Dieses  Beispiel  finden  Sie,  wie  die  meisten  Beispiele  von  gerade 
eben  auch,  auf  unserer  Diskette  im  Buch.  Es  hat  den  Namen 
"Sinus-Spektrum" 

Sie  sollten  auch  mal  andere  Punkte  probieren,  z.B.  in  der  LINE- 
Zeile: 

LIME  <320,90>-<x,y),Fa 

oder 

LINE  (320,184)-<x,y),Fa 

Verwenden  Sie  auch  die  Block-  und  Blockfill-Optionen  beim 
LINE-Befehl: 

LINE  (320/184)-(x,y),Fa,b 

Sie  sehen,  Ihrer  Fantasie  sind  keine  Grenzen  gesetzt.  Verstehen 
Sie  unsere  Listings  wirklich  nur  als  Beispiele  und  experimen- 
tieren  Sie  selbst!  Wenn  Sie  etwas  komplexere  Formeln 
verwenden,  kommt  zum  Beispiel  so  etwas  dabei  heraus: 

Farben=4 

SCREEN  1,640, 200, Farben, 2 

WINDOW  2,"Sinusfelder",,31,1 

FOR  x=0  TO  617 

Fa=Fa+1  :  IF  Fa>7  THEN  Fa=0 
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y1=90+80*SIN(x/40> 
y2=90+70*SIN(x/60) 
LINE  (x,y1)-(617-x,y2),Fa 
NEXT  x 

Dieses  Programm  ist  ubrigens  auf  der  beiliegenden  Diskette  un- 
ter  dem  Namen  "Sinusf elder  1"  zu  finden. 

Oder  auch: 

Farben=4 

SCREEN  1,640, 200, Farben,2 

WINDOW  2, "Sinusf elder",, 31,1 

FOR  x=0  TO  617 

Fa=Fa+.5  :  IF  Fa>7  THEN  Fa=1 

y1=90+80*SIN(x/40) 

y2=90+70*SIN(x/60) 

x2=320-300*SIN(x-50) 

LINE  <x,y1)-<x2,y2),Fa 

NEXT  x 

Wir  hoffen,  dafl  wir  Ihnen  mit  diesen  Beispielen  ein  wenig  Lust 
darauf  gemacht  haben,  eigene  Kreationen  auszuprobieren.  Ver- 
gessen  Sie  nicht:  Schlimmstenfalls  gibt's  einen  Error,  Oder  das 
Ergebnis  sieht  nicht  besonders  gut  aus.  Aber  im  Lauf  Ihrer 
Experimente  werden  Sie  sicher  ein  Gefuhl  dafur  entwickeln,  mit 
welchen  Mitteln  Sie  eindrucksvolle  Grafiken  erzeugen  kdnnen. 

Schon  mal  driiber  nachgedacht,  damit  das  Videoprogramm  auf- 
zupSppeln? 


Zwischenspiel  3:  Aus  zwei  mach  eins  -  Verketten  von 
Programmen 

Vielleicht  geht  es  Ihnen  auch  so:  Wenn  man  nur  lange  genug  mit 
den  Sinusformeln  und  den  LINE-Befehlen  gespielt  hat,  hat  man 
irgendwann  eine  persdnliche  Lieblingsgrafik,  die  man  einfach 
toll  findet.  Es  ware  doch  schdn,  wenn  man  eine  solche  Grafik 
als    Hintergrund    im    Videotitel-Programm    verwenden    kflnnte! 
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Denn  die  fliegenden  Objekte  und  die  farbigen  Texte  mOgen  ja 
schon  ganz  gut  sein,  aber  im  Hintergrund  sieht  es  noch  recht 
leer  aus.  In  diesem  Zwischenspiel  erfahren  Sie,  wie  sich  das  &n- 
dern  laflt. 

Es  gibt  verschiedene  Mdglichkeiten,  fur  Hintergrunde  zu  sorgen. 
Wir  werden  Ihnen  im  Verlauf  des  Buches  auch  noch  einige  an- 
dere  Ideen  zu  diesem  Thema  vorstellen.  ZunSchst  verwenden  wir 
aber  eine  ganz  einfache  Methode:  Wir  Mngen  das  Programm,  das 
die  Sinus-Grafik  zeichnet,  hinten  ans  Videotitel-Programm  an 
und  rufen  es  auf,  bevor  der  Text  und  die  Bewegung  wiederge- 
geben  werden.  Gerade  Sinus-Grafiken  sehen  bereits  wahrend 
ihrer  Entstehung  so  interessant  aus,  daB  es  uberhaupt  nichts 
macht,  wenn  mit  aufgezeichnet  wird,  wie  sie  sich  aufbauen. 

Ubrigens:  Wenn  Sie  mit  unserem  Programm  Videotitel  erzeugen, 
sollten  Sie  den  Titel,  sobald  er  fertig  ist,  erst  einmal  mit  der 
Stopuhr  in  der  Hand  durchlaufen  lassen,  damit  Sie  wissen,  wie 
lang  er  ist.  Es  ware  schade,  wenn  Sie  einen  Teii  des  Films,  der 
dahinter  auf  dem  Band  ist,  loschen  wiirden,  nur  weil  der  Titel 
etwas  langer  dauert  als  gedacht. 

Nun  aber  zu  unserem  Thema:  Es  ist  ja  unnotige  Arbeit,  wenn 
Sie  jetzt  Ihr  Programm  irgendwo  abschreiben  oder  ausdrucken 
und  dann  genau  dieselben  Zeilen  am  Ende  des  Videotitel-Pro- 
gramms  wieder  eintippen.  AmigaB ASIC  bietet  nSmlich  eine 
Moglichkeit,  Programme  miteinander  zu  verketten,  und  genau 
das  wollen  wir  Ihnen  jetzt  beibringen. 

Bringen  Sie  zunachst  das  Programm  in  den  Speicher,  das  die 
Grafik  erzeugt.  Entweder  Sie  laden  es  von  Diskette,  oder  es 
steht  schon  im  Speicher,  weil  es  das  letzte  Programm  war,  mit 
dem  Sie  gearbeitet  haben.  Es  muO  jetzt  in  einem  besonderen 
Format  auf  Diskette  zuruckgespeichert  werden.  Geben  Sie  im 
BASIC-Window  ein: 

save  "Grafik", a 
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Eine  unserer  Sinusgrafiken  finden  Sie  unter  dem  Namen  "Gra- 
fik"  als  Beispiel  in  der  "Videotitel"-Schublade  auf  der  Diskette 
im  Buch. 

Das  Neue  bei  dem  Befehl  von  oben  ist  das  ,a  am  SchluB.  a  steht 
fur  ASCII.  Haben  Sie  das  nicht  schon  einmal  gehSrt?  Richtig, 
ASCII-Codes  waren  die  Codes,  die  bei  der  CHR$-Funktion  an- 
gegeben  werden  miissen.  ASCII  heiBt  (immer  noch)  "American 
Standard  Code  for  Information  Interchange".  Mit  der  Option  ,a 
hinter  einem  SAVE-Befehl  geben  Sie  an,  daB  das  Programm  in 
Form  von  ASCII-Zeichen  auf  der  Diskette  abgespeichert  werden 
soil. 

Wenn  das  so  etwas  Besonderes  ist,  wie  sieht  dann  der  Normalfall 
aus?  Normalerweise  geben  Sie  ja  SAVE  ohne  eine  Option  ein, 
oder  Sie  wShlen  einfach  SAVE  aus  dem  Project-Pulldown.  In 
diesem  Fall  wird  das  Programm  in  einer  speziellen,  speicher- 
platzsparenden  Form  auf  Diskette  geschrieben.  (Wen's  inter- 
essiert:  Das  Stichwort  heiBt  Token  und  ist  im  Anhang  D  zu  fin- 
den.) 

Wenn  sich  ein  Programm  in  dieser  Form  auf  Diskette  befindet, 
kann  es  nicht  an  ein  anderes  angehangt  werden.  Das  geht  nur, 
wenn  Sie  im  ASCII-Format  abspeichern.  Weil  wir  gerade  dabei 
sind:  Es  gibt  noch  eine  Option,  die  Sie  bei  SAVE  verwenden 
kdnnen: 

SAVE  "Test",p 

Das  kleine  p  steht  fur  "protect"  (deutsch:  schiitzen).  Dahinter 
steckt  folgendes:  Es  gibt  verschiedene  Grunde,  warum  es  nicht 
in  Ihrem  Interesse  liegen  konnte,  daB  andere  Leute  sich  ein  Pro- 
gramm anschauen,  das  Sie  erstellt  haben.  Zum  Beispiel,  wenn  Sie 
einmal  Software  schreiben,  die  Sie  verkaufen  wollen.  Der  An- 
wender  soil  es  laden  und  starten  kdnnen,  aber  das  Programm- 
listing  geht  ihn  nichts  an.  Zu  diesem  Zweck  kdnnen  Sie  ein  Pro- 
gramm im  Protect-Format  abspeichern.  Es  wird  beim  Schreiben 
auf  Diskette  verschlusselt  und  kann  von  AmigaBASIC  nicht 
mehr  entschlusselt  werden.  Nach  dem  Anklicken  oder  Laden  ei- 
nes  solchen  Programms  ist  das  LIST-Window  blockiert,  und  das 
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Programm  kann  nur  noch  gestartet  werden.  Auch  Abspeichern 
ist  nicht  mehr  mciglich.  Es  sollte  jedoch  ehrlicherweise  gleich 
dazugesagt  werden,  daB  dieser  Schutz  einen  professionellen 
Programm-Knacker  nicht  allzulang  aufhalten  diirfte.  Sollte  es 
wirklich  einmal  interessante  Programme  geben,  die  auf  diese 
Weise  geschutzt  sind,  ist  es  sicher  nur  eine  Frage  der  Zeit,  wann 
es  ein  Gegen-Programm  gibt,  das  den  Schutz  genauso  schnell 
und  einfach  wieder  entfernt.  Fur  den  Hausgebrauch  ist  die  p- 
Option  aber  sicher  nicht  schlecht. 

Nach  diesem  Abstecher  in  die  Abgrunde  des  Raubkopierens  und 
Programme-Knackens  wollen  wir  wieder  zu  harmloseren  An- 
wendungen  zuriickkehren:  Wenn  Sie  das  Programm,  das  Sie  an- 
hangen  wollen,  abgespeichert  haben,  laden  Sie  bitte  wie  gewohnt 
unser  Videotitel-Programm. 

load  "Videotitel" 

Beim  Verketten  von  zwei  Programmen  muB  sich  das  erste  Pro- 
gramm im  Speicher  befinden,  das  zweite  wird  von  Diskette  da- 
zugeladen.  Der  Befehl,  der  ein  im  ASCII-Format  abgespeichertes 
Programm  an  das  aktuelle  Programm  anhangt,  ist  ganz  einfach: 

merge  "Grafik" 

Falls  Ihr  Programm  nicht  "Grafik"  hieB,  mussen  Sie  natiirlich 
den  von  Ihnen  verwendeten  Namen  angeben.  "Merge"  heiBt  auf 
Deutsch  ubrigens  "verschmelzen,  sich  einverleiben".  Damit  ist 
alles  ausgedruckt,  was  dieser  Befehl  kann. 

Am  Ende  des  Videotitel-Programms  steht  nun  Ihr  Grafik-Pro- 
gramm.  Das  war  doch  ganz  einfach,  nicht  wahr?  Jetzt  mttssen 
wir  nur  noch  dafiir  sorgen,  daB  dieses  neue  Unterprogramm 
auch  ausgefiihrt  wird.  Versehen  Sie  es  dazu  zun^chst  mit  einem 
Label,  am  besten  'Grafik:'.  Falls  in  dem  angehSngten  Pro- 
grammteil  noch  SCREEN  und  WINDOW-Befehle  stehen,  mussen 
diese  geloscht  werden.  Die  hSchste  erlaubte  Farbnummer  kann 
Ihr  Programm  aus  der  Variablen  'Maxfarbe'  erfahren. 
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Bitte  achten  Sie  darauf,  daB  Sie  in  dem  neuen  Teil  keine  Vari- 
ablen  benutzen,  die  im  Hauptprogramm  benfttigt  werden.  So  et- 
was  ist  nSmlich  eine  beliebte  Ursache  fur  Errors.  Am  Ende  des 
Programms  muB  noch  ein  RETURN-Befehl  eingefiigt  werden. 
In  unserem  Fall  sieht  das  zum  Beispiel  so  aus: 

Grafik: 

FOR  x=0  TO  570 

Fa=Fa+1  :  IF  Fa>Maxfarbe  THEN  Fa=0 

y1=90-80*SIN(x2/200) 

y2=90+70*SIN(x/60) 

x2=320-300*SIN(x/50) 

LINE  <640-x2,y1)-(x2,y2>,Fa 

NEXT  x 

RETURN 

Alles  was  jetzt  noch  fehlt,  ist  der  Aufruf  des  angehangten  Pro- 
gramms. Ihn  fiigen  Sie  bitte  im  Programmteil  'WiedergStart:'  des 
Videotitel-Programms  ein: 

UiedergStart: 

WIDTH  80 

COLOR  Textfa,Hintgr  :  CLS 

GOSUB  Grafik 

COLOR  Textfa,Texthi 


So,  das  war's  schon.  Sie  kftnnen  sich  das  Ergebnis  ja  gleich  an- 
schauen.  Vergessen  Sie  bitte  das  Abspeichern  nicht,  falls  Ihnen 
die  neue  Version  gef&llt!  Auf  der  Diskette  im  Buch  finden  Sie 
eine  zusammengestellte  Version  unter  dem  Namen  "Videoti- 
tel+GrafikH. 

Mit  der  hier  vorgestellten  Methode  kdnnen  Sie  in  Zukunft  Pro- 
gramme in  beliebiger  Zahl  und  Reihenfolge  aneinanderketten. 
Beim  Erstellen  gr8Berer  Programme  kann  das  sehr  hilfreich  sein. 
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Fur  Ihre  Videotitel  k6nnen  Sie  naturlich  verschiedene  Hinter- 
grundgrafiken  "mergen".  Sie  kOnnten  sich  ja  zum  Beispiel  eine 
Sammlung  kleiner  Grafikroutinen  anlegen,  aus  der  Sie  dann  im- 
mer  ein  passendes  Programm  ausw&hlen.  Damit  Sie  dazu  auch 
genugend  Programme  haben,  sollen  Sie  wieder  ein  paar  neue 
Befehle  kennenlernen.  Deshalb  machen  wir  jetzt  gleich  weiter. 


2.6        Es  geht  rund  -  weitere  Grafikbefehle 

Der  niichste  Befehl,  den  wir  kennenlernen  wollen,  ermbglicht  es 
Ihnen,  Kreise  zu  zeichnen.  Ein  Beispiel,  was  damit  mflglich  ist: 

CIRCLE  (320,90), 160 

CIRCLE  <260,50),15,,,,.5 

CIRCLE  (380,50), 15,,,, .5 

CIRCLE  (260, 53), 8 

CIRCLE  (380, 53), 8 

CIRCLE  (380, 50), 45,,. 2, 2.2 

CIRCLE  (260, 50), 45,, .8,2.8 

CIRCLE  (320, 80), 20,,,,. 7 

CIRCLE  (320,110),80,,3.1,0,.2 

CIRCLE  (320, 10), 10, ,4. 7,1. 5, .9 

CIRCLE  (320, 15), 5, ,5, 1.8, .7 

Das  Beispiel  ist  zugegebenermaBen  nicht  ganz  leicht  abzutippen. 
Deshalb  hier  mal  wieder  groB  und  deutlich  der  Hinweis  auf  die 
Diskette  im  Buch:  Sie  finden  dieses  Programm  unter  dem  Namen 
MCirclesmileH  in  der  HGrafiktt-Schublade. 

Wenn  Sie  es  aber  wirklich  selbst  abtippen  wollen,  dann  passen 
Sie  bitte  besonders  bei  der  Anzahl  der  Kommas  auf! 

Das  Ergebnis  ist,  so  hoffen  wir,  in  jedem  Fall  die  Muhe  wert: 
Sieht  doch  ganz  niedlich  aus,  nicht?  Wenn  Sie  es  selbst  abgetippt 
haben,  kfinnen  Sie  es  ja  abspeichern... 

Die  ganze  Grafik  ist  nur  mit  dem  BASIC-Befehl  CIRCLE  reali- 
siert  worden.  Das  beweist  wohl  schon,  wie  leistungsfahig  er  ist. 
CIRCLE   ist  wohl   von  alien   AmigaBASIC-Befehlen   derjenige, 
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der  die  meisten  Optionen  bietet.  Das  lustige  Gesicht,  das  wir  im 
Beispielprogramm  gemalt  haben,  besteht  aus  alien  mdglichen 
Kreisen,  Ellipsen  und  Kreisstucken.  Sie  alle  kflnnen  durch  ver- 
schiedene  Parameter  am  CIRCLE-Befehl  erzeugt  werden. 

Die  einfachste  Form  des  CIRCLE- Befehls  sieht  so  aus: 

CIRCLE  (x,y),Radius 

Damit  wird  ein  Kreis  mit  dem  Mittelpunkt  (x,y)  und  dem  ange- 
gebenen  Radius  gezeichnet.  Der  Wert  fur  den  Radius  legt  den 
Radius  in  Pixels  fest.  Die  Anzahl  der  Pixels  gilt  allerdings  nur 
fur  die  x-Richtung.  Zum  y-Radius  kommen  wir  spiiter.  Natur- 
lich  geht  es  auch  in  verschiedenen  Farben: 

CIRCLE  (x,y),Radius,Zeichenfarbe 

Nicht  nur  vollstandige  Kreise,  auch  Kreisstiicke  kflnnen  mit 
CIRCLE  erzeugt  werden.  Mit  den  nachsten  beiden  Werten  k6n- 
nen  Sie  zwei  Winkel  angeben.  Der  erste  Winkel  legt  den  Anfang 
des  Kreisbogens  fest,  der  zweite  Winkel  das  Ende: 

CIRCLE  (x,y),Radius,Zeichenfarbe,Winkell ,Winkel2 

Die  Winkel  liegen  zwischen  0  und  2*Pi.  Das  entspricht  der  in 
Amerika  grunds&tzlich  iiblichen  und  in  Deutschland  auch  nicht 
gerade  unbekannten  Angabe  von  Winkeln  als  Vielfache  von  Pi 
("BogenmaB"  nennt  das  der  Fachmann  iibrigens).  Ein  Viertelkreis 
geht  von  0  bis  1.57,  ein  Halbkreis  von  0  bis  3.14.  Ein  Dreivier- 
tel-Kreis  von  0  bis  4.71  und  ein  Vollkreis  von  0  bis  6.28.  Fur 
einen  Vollkreis  k6nnen  Sie  die  Angaben  aber  auch  einfach 
weglassen.  Die  folgende  Abbildung  hilft  Ihnen,  fur  bestimmte 
Kreisbdgen  die  richtigen  Winkel  herauszufinden: 
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2.36 


2.75 


3.14 


3.53' 


4.32 


4,71 


0.78 


0.39 


0  /  6.28 


5.89 


5.10 


Bild  6: 


Kreiswinkel  als  Vielfache  von  Pi 


Falls  Sie  bestimmte  Kreissektoren  (z.B.  Tortenstucke)  zeichnen 
wollen,  bietet  AmigaBASIC  noch  eine  besondere  Hilfe:  Wenn  Sie 
fur  einen  Winkel  eine  negative  Zahl  angeben,  wird  der  zuge- 
h6rige  Punkt  am  Kreis  mit  dem  Mittelpunkt  verbunden.  Sie 
konnen  das  im  BASIC-Window  ausprobieren: 


circle  (320, 100), 200, 3,-1 .57,  -3.U 

Der  letzte  mdgliche  Wert  schlieBlich  (es  ist  der  siebte  mittler- 
weile)  ist  dafur  zustandig,  ob  ein  Kreis  Oder  eine  Ellipse  ge- 
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zeichnet  wird:  Er  gibt  das  VerhSltnis  vom  x-Radius  zum  y-Ra- 
dius  an. 

CIRCLE  (x(y),RadiuslZeichenfarbe,Winkell,Winkel2tx/y-Verhfiltnia 

Will  man  einen  hundertprozentig  runden  Kreis,  hgngt  der  Wert, 
der  hier  angegeben  werden  mufl,  von  der  Monitor-Einstellung 
ab.  Am  Amiga-Monitor  1081  kflnnen  Sie  mit  dem  linken  der 
drei  DrehknOpfe  auf  der  Ruckseite  die  BildhOhe  einstellen. 
Wenn  man  diese  Einstellung  sehr  extrem  vornimmt,  wird  schnell 
aus  einem  Kreis  ein  Ei  oder  umgekehrt.  Bei  normaler  Einstel- 
lung des  Monitors  sorgt  der  Wert  0.44  fur  das  richtige  Verh&ltnis 
von  x-  und  y-Radius.  Die  Zahl  0.44  wird  deshalb  auch  von 
AmigaBASIC  verwendet,  wenn  keine  Angabe  gemacht  wird. 
Werte  kleiner  als  0.44  drucken  den  Kreis  zusammen,  eine  lie- 
gende  Ellipse  entsteht.  Werte  grdfier  als  0.44  ziehen  den  Kreis 
auseinander,  eine  stehende  Ellipse  (vielleicht  das  Ei  des  Kolum- 
bus?!)  entsteht. 

Mit  diesem  Wissen  geriistet,  wollen  wir  jetzt  das  Listing  fur  das 
Gesicht  einzeln  durchgehen. 

Die  erste  Zeile  CIRCLE  (320,90),  160  zeichnet  einen  absolut 
runden  Kreis  mit  dem  Radius  160  Punkte  um  den  Mittelpunkt 
(320,90).  Das  ist  der  Kopf. 

Die  nachsten  beiden  Zeilen  CIRCLE  (260,50),  15„„.5  und 
CIRCLE  (380,50),  15, ,,,.5  zeichnen  die  Augen:  Es  entstehen  zwei 
leicht  eiformige  Ellipsen,  weil  das  x/y-Verhaltnis  mit  0.5  etwas 
iiber  dem  Normalwert  liegt. 

Die  vierte  und  die  fiinfte  Zeile  CIRCLE  (260,53),8  und 
CIRCLE  (380,53),8  bringen  die  Pupillen  in  die  Augen. 

Mit  den  folgenden  beiden  Zeilen  erzeugen  wir  die  Augenbrauen. 

CIRCLE  (380, 50), 45,, .2,2.2 
CIRCLE  (260, 50), 45,,. 8, 2. 8 
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Es  werden  normale  Kreise  mit  einem  Radius  von  45  Pixels  ver- 
wendet.  Allerdings  zeichnen  wir  bloIJ  einen  Bogen  mit  den 
Anfangswinkeln  0.2  bzw.  0.8  und  den  Endwinkeln  2.2  bzw.  2.8. 
Suchen  Sie  bitte  diese  Werte  in  Bild  6,  um  zu  sehen,  wo  die 
Winkel  liegen. 

Jetzt  ist  die  Nase  dran:  CIRCLE  (320,80),20„„.7  -  sie  liegt  ge- 
nau  im  Mittelpunkt  des  Gesichts  und  hat  deutlichen  Ellipsen- 
Charakter.  (Freundlicher  kann  das  Riechorgan  wohl  kaum  be- 
schrieben  werden...) 

Fur  einen  frohlich  lachelnden  Mund  nehmen  wir: 
CIRCLE  (320,110),80„3.1,0,.2  -  ein  Halbkreis  von  Pi  bis  0  (wo- 
bei  der  Wert  0  identisch  mit  2*Pi  ist),  ergibt  genau  die  untere 
H&lfte  eines  Kreises. 

Um  fur  einen,  wenn  auch  spSrlichen,  Haarwuchs  zu  sorgen, 
kommen  noch  die  letzten  beiden  Befehle: 

CIRCLE  (320,10), 10, ,4.7,1.5,. 9 
CIRCLE  (320,15), 5, ,5, 1.8,. 7 

Die  beiden  Haare  sind  Bogen  aus  einer  stehenden  Ellipse.  Die 
Anfangs-  und  Endwinkel  vergleichen  Sie  bitte  wieder  mit  unse- 
rer  Abbildung. 

Vielleicht  m6chten  Sie  den  Aufbau  der  Figur  auf  dem  Bild- 
schirm  einmal  selbst  in  dieser  langsamen,  schrittweisen  Reihen- 
folge  nachvollziehen?  Dabei  macht  Ihnen  der  Amiga  mit  seiner 
Geschwindigkeit  ja  einen  ziemlichen  Strich  durch  die  Rechnung. 
Auch  der  Trace-Modus  kann  Ihnen  nicht  allzuviel  helfen. 

Aus  diesem  Grund  gibt  es  im  "RunM-Pulldown  eine  weitere 
Funktion,  die  dazu  gedacht  ist,  das  Austesten  von  Programmen 
zu  vereinfachen.  Die  Rede  ist  vom  letzten  Meniipunkt:  "Step". 
Mit  dieser  Funktion  lassen  Sie  ein  Programm  im  sogenannten 
Einzelschritt-Modus  laufen.  Das  heiBt,  daB  immer  nur  ein  Be- 
fehl  ausgefuhrt  wird,  dann  halt  der  Amiga  an  und  wartet.  Und 
zwar  wartet  er  darauf,  daB  Sie  entweder  erneut  "Step"  im  "Run"- 
Pulldown    anwShlen   oder   die    Tastenkombinaton    <geschlossene 
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Amiga-TastexT>  driicken.  Einen  BASIC-Befehl  gibt  es  fur 
diese  Funktion  nicht.  Probieren  Sie  das  doch  gleich  einmal  aus: 
Jedesmal,  wenn  Sie  "Step"  anwiihlen  oder  die  beiden  Tasten 
driicken,  wird  genau  ein  Element  des  Gesichts  gezeichnet.  So 
kSnnen  Sie  Schritt  fur  Schritt  beobachten,  was  die  einzelnen 
Befehle  in  welcher  Reihenfolge  bewirken.  Wenn  Sie  das  LIST- 
Window  auf  dem  Bildschirm  sehen,  wird  hier  der  gerade  abge- 
arbeitete  Befehl  genau  wie  bei  Trace  durch  eine  orange  Umrah- 
mung  sichtbar  gemacht. 

Soweit  alles  klar?  Ob  schnell  oder  langsam,  die  Zeichnung  erin- 
nert  bisher  eher  an  eine  Kreidezeichnung  auf  der  Schultafel.  Um 
sie  etwas  mehr  Amiga-like  zu  machen,  benutzen  wir  einen  wei- 
teren  Befehl:  Mit  PAINT  (deutsch:  malen)  kflnnen  umrandete 
FlSchen  ausgemalt  werden.  Bitte  ergSnzen  Sie  das  Programm  so, 
daB  das  folgende  Listing  dabei  herauskommt. 

CIRCLE  (320,190),200,1,,,.6 

PAINT  (320,170), 1 

CIRCLE  (320,90), 160,3 

PAINT  (320, 90), 3 

CIRCLE  (260, 50), 15,1, ,,.5 

CIRCLE  (380,50), 15,1, ,,.5 

PAINT  (260,50), 1 

PAINT  (380,50), 1 

CIRCLE  (260,53), 8,2 

CIRCLE  (380, 53), 8, 2 

PAINT  (260, 53), 2 

PAINT  (380, 53), 2 

CIRCLE  (380, 50), 45, 2, .2,2.2 

CIRCLE  (260, 50), 45, 2, .8,2.8 

CIRCLE  (320, 80), 20, 2,, ,.7 

CIRCLE  (320, 110), 80,2, 3. 1,0, .2 

CIRCLE  (320, 10), 10, 2, 4. 7,1. 5, .9 

CIRCLE  (320, 15), 5, 2, 5, 1.8, .7 

CIRCLE  (160,70),40,3,,,.6 

CIRCLE  (480, 70), 40, 3,,,. 6 

PAINT  (160,70), 3 
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PAINT  (480,70), 3 
CIRCLE  <160,60),30,2,1,3,.3 
CIRCLE  (480,60), 30,2,. 3, 2,2, .3 
CIRCLE  (150, 65), 25, 2,4,1,. 7 
CIRCLE  (490,65), 25, 2, 2. 2,5. 4, .7 

Fur  Tippfaule:  "Circlesmile.Farbe"  heifit  dieses  Programm  auf 
der  Diskette  im  Buch. 

Wenn  Sie  selbst  getippt  haben,  bitte  gleich  nach  Fertigstellung 
abspeichern!  Abgesehen  davon,  daB  unser  kleiner  Mann  breite 
Schultern  und  ein  Paar  Ohren  verpaBt  bekommen  hat,  hat  er 
jetzt  vor  allem  mehr  Farbe  im  Gesicht.  Wenn  Sie  den  Aufbau 
der  Figur  genau  beobachten,  kommt  Ihnen  wahrscheinlich  schon 
eine  Idee,  wie  PAINT  wirkt:  Sie  geben  einen  beliebigen  Punkt 
innerhalb  einer  vollst&ndig  umrandeten  F13che  und  eine  Farb- 
nummer  an.  AmigaBASIC  malt  dann  die  Fiache  in  der  angege- 
ben  Farbe  aus.  Die  hohe  Geschwindigkeit,  in  der  das  passiert, 
haben  wir  dem  Blitter-Chip  in  der  Videobaugruppe  zu  verdan- 
ken.  Er  ist  besonders  gut  darin,  FlSchen  zu  verschieben,  zu  fal- 
len oder  zu  verandern. 

Eine  EinschrSnkung  bei  PAINT  ist  sehr  wichtig:  PAINT  erkennt 
bloB  Randbegrenzungen  in  einer  einzigen,  bestimmten  Farbe  an. 
Sie  haben  zum  Beispiel  gesehen  (oder  wenn  nicht,  dann  starten 
Sie  das  Programm  noch  mal  und  achten  Sie  darauf),  daB  zuerst 
der  Kftrper  gezeichnet  und  weiB  ausgemalt  wird,  dann  der  Kopf 
erscheint  und  der  danach  folgende  PAINT-Befehl  den  ganzen 
Kopf  ausmalt,  wobei  er  einen  Teil  des  Kflrpers  uberdeckt. 

Der  Befehl   zum  Ausmalen  von  FlSchen  hat  folgende  genaue 

Syntax: 

PAINT  (x,y),  Zeichenfarbe,  Begrenzungsfarbe 

Wird  keine  Begrenzungsfarbe  angegeben,  gilt  die  Zeichenfarbe 
gleichzeitig  auch  als  Begrenzungsfarbe.  PAINT  (320,90),3  malt 
deshalb  alles  aus,  bis  es  an  eine  orange  Begrenzung  stoBt.  Ware 


184 Ami  gaB  ASIC 


die  Begrenzung  z.B.  weiB  (Farbnr.  1)  und  die  Fullfarbe  schwarz 
(2),  miilJte  folgender  Befehl  vetwendet  werden: 

PAINT  <x#y),2,1 

Bedenken  Sie  diese  Eigenheit  des  PAINT-Befehls!  Sonst  hat  wi- 
ser kleiner  Mann  schnell  sein  Gesicht  verloren. 

Natiirlich  kflnnen  die  Begrenzungen  der  FlSchen,  die  Sie  mit 
PAINT  ausmalen,  durch  beliebige  Grafik-Befehle  entstanden 
sein.  Die  FlSchen  mussen  nicht  durch  Kreise  oder  Ellipsen  be- 
grenzt  sein.  Hauptsache  ist,  daB  die  Begrenzung  wirklich  an  al- 
ien Punkten  geschlossen  ist,  sonst  wird  die  Farbe  auslaufen  und 
mehr  Teile  ausftillen  als  beabsichtigt. 

Wenn  Sie  sich  daran  erinnern:  Dieses  Problem  ist  in  unserem 
Buch  schon  einmal  aufgetaucht,  beim  Object  Editor,  mit  dem 
wir  unsere  Grafikobjekte  definiert  haben.  Er  ist  ja  auch  ein 
BASIC-Programm  und  benutzt  zum  Ausmalen  ebenfalls  den 
PAINT-Befehl. 

Das  niichste  Programm  zeigt  eine  andere  MDglichkeit,  wie  Be- 
grenzungen entstehen  konnen:  Mit  LINE-Befehlen  wird  ein 
Gitter  gezeichnet,  dessen  einzelne  Segmente  dann  zuf&Uig  aus- 
gemalt  werden.  Nach  einiger  Zeit  sieht  der  Bildschirm  aus  wie 
ein  Spielplan  beim  "Schiffe  versenken".  Wenn  wir  uns  das  so 
recht  iiberlegen:  Vielleicht  sollten  Sie  wirklich  mal  "Schiffe  ver- 
senken" auf  dem  Amiga  programmieren...  Fur  die  schfinste  Ver- 
sion wurden  wir  uns  vielleicht  sogar  eine  kleine  Uberraschung 
einfallen  lassen.  Na,  wir  denken  nochmal  driiber  nach.  Jetzt  aber 
das  versprochene  Listing: 

FOR  x=0  TO  615  STEP  15 
LINE  (x,0)-(x,185) 
NEXT  x 

FOR  y=0  TO  180  STEP  10 
LINE  <0,y)-<635,y) 
NEXT  y 
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AusmaLen: 

PAINT  (635*RND,180*RND) 

GOTO  Ausmalen 

Das  Programm  gibt*s  auch  auf  Diskette:  "Rasterfill"  in  der  "Gra- 
fik"-Schublade. 

Neu  ist  Ihnen  vielleicht  die  Ergiinzung  STEP  beim 
FOR...NEXT-Befehl:  Damit  k6nnen  Sie  beim  Zahlen  eine 
Schrittweite  angeben.  FOR  x=0  TO  615  STEP  15  zahlt  in  15er- 
Schritten  von  0  bis  615,  also:  0,  15,  30,  45,  usw.  So  erzeugt  un- 
ser  Programm  die  notwendigen  Abstande  zwischen  den  einzelnen 
Gitterlinien.  Andern  Sie  versuchshalber  die  STEP-Werte,  und 
sehen  Sie,  was  passiert. 

Jetzt  kennen  wir  schon  Befehle,  um  Punkte,  Linien,  Rechtecke, 
geffillte  Rechtecke,  Kreise,  Ellipsen  und  Kreisbogen  zu  zeichnen 
und  einen  Befehl,  der  umrandete  Fiachen  ausmalt.  Damit  sind 
wir  fur  die  Grafikprogammierung  ganz  gut  ausgeriistet.  Aber 
AmigaBASIC  bietet  noch  mehr  Komfort  beim  Thema  Grafik. 
Wie  Sie  ja  schon  wissen,  kann  der  Blitter  Fiachen  ungeheuer 
schnell  fullen.  Der  nachste  BASIC-Befehl,  den  wir  kennenlernen 
wollen,  macht  sich  das  zunutze.  Zuerst  wieder  ein  Beispiel- 
programm: 

COLOR  3,0 
AREA  (100,150) 
AREA  (400,150) 
AREA  (250,20) 
ARE AF ILL 
COLOR  2,0 
AREA  (100,150) 
AREA  (400,150) 
AREA  (200,180) 
AREAFILL 
COLOR  1,0 
AREA  (250,20) 
AREA  (400,150) 
AREA  (450,100) 
AREAFILL 
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Dieses  kleine  Programm  fuhrt  uns  (wie  seinerzeit  Asterix  und 
Obelix)  in  das  Reich  der  Pyramiden.  Sie  sehen,  wie  durch  drei 
verschiedenfarbige  Dreiecke  bereits  ein  glaubwurdiger  optischer 
Effekt  erzielt  werden  kann. 

Auf  der  Diskette  im  Buch  heiBt  das  Programm  ubrigens  so,  wie 
nicht  anders  zu  erwarten:  "Pyramide". 

Wir  wollen  jetzt  aber  nicht  den  Verdacht  aufkommen  lassen, 
AREA  diene  ausschlieBlich  dazu,  Dreiecksverhaitnisse  zu  produ- 
zieren.  (Das  englische  Wort  "Area"  heiBt  auf  Deutsch  ubrigens 
"FlSche,  Gebiet".)  Mit  diesem  Befehl  k6nnen  Sie  noch  viel  mehr 
anstellen:  Sie  geben  mit  mehreren  AREA-Befehlen  die  Eck- 
punkte  eines  beliebigen  Vielecks  an.  Diese  Punkte  speichert  der 
Amiga  solange,  bis  er  auf  den  Befehl  AREAFILL  trifft.  Und 
dann  kommt's:  Auf  einen  Schlag  wird  das  angegebene  Objekt 
auf  den  Bildschirm  gebracht.  Und  das,  wie  bereits  erwahnt,  in 
schier  unglaublicher  Geschwindigkeit.  Eine  EinschrSnkung  gibt's 
allerdings  doch:  Mehr  als  20  Eckpunkte  kann  sich  selbst 
AmigaBASIC  nicht  merken.  Alle  dariiber  hinaus  definierten 
Punkte  werden  nicht  gespeichert.  Das  ist  aber  nicht  allzu  tra- 
gisch,  denn  ein  20-Eck  ist  schon  ein  sehr  komplexes  Gebilde. 

Wenn  Sie  Areas  auf  Zufallsbasis  zeichnen  lassen,  kommen  wie- 
der  interessante  Grafiken  dabei  heraus.  Das  nSchste  Programm 
ist  ein  Beispiel  dafur. 

Farben=4 

SCREEN  1,640, 200, Farben,2 

WINDOW  1, "Area-Demo",, 31,1 

Start: 

COLOR  <(2AFarben)-1)*RND,0 

FOR  x=1  TO  3+17*RND 

AREA  (617*RND,184*RND) 

NEXT 

AREAFILL 

GOTO  Start 
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Das  Programm  arbeitet  recht  einfach:  ZunSchst  wird  mit  CO- 
LOR eine  zufailige  Farbe  innerhalb  des  erlaubten  Bereichs  aus- 
gewShlt.  Die  FOR...NEXT-SchIeife  wird  zwischen  3  und  20  mal 
durchlaufen.  Der  Mindestwert  ist  deshalb  drei,  weil  drei  Punkte 
n6tig  sind,  um  eine  sichtbare  Fl&che  zu  erzeugen.  Zwei  Punkte 
ergaben  logischerweise  nur  einen  Strich  in  der  Landschaft.  Wenn 
die  Fl&che  gezeichnet  ist,  springt  das  Programm  zum  Label 
'Start:'  zuriick  und  beginnt  den  ganzen  Ablauf  von  vorne. 

Da  alle  Eckpunkte  aus  Zufallszahlen  errechnet  werden,  kommen 
naturlich  oft  sehr  verwinkelte,  unfdrmige  Gebilde  dabei  heraus. 
Aber  gerade  die  kftnnen  besonders  interessant  aussehen.  Natur- 
lich laBt  sich  der  AREA-Befehl  genauso  gut  im  Rahmen  mathe- 
matischer  Formeln  einsetzen: 

Farben=4 

SCREEN  1,640, 200, Farben, 2 

WINDOW  1, "Areas",, 31,1 

FOR  x=0  TO  617 

Fa=Fa+1  :  IF  Fa>(2AFarben)-1  THEN  Fa=0 

COLOR  Fa,0 

y1=90+80*SIN(x/40> 

y2=90+70*COS((617-x)/25) 

x2=ABS(320-x) 

AREA  (x,y1) 

AREA  (x2,y2) 

AREA  (x,x/4) 

AREA  (320,90) 

ARE AF ILL 

NEXT  x 

Dieses  Beispiel  finden  Sie  auf  unserer  Diskette  unter  dem  Na- 
men  "Areasinus". 

Mit  AREA  und  AREAFILL  haben  wir  jetzt  alle  wichtigen 
Grafikbefehle  durchgesprochen.  In  den  folgenden  Kapiteln  wird 
es  darum  gehen,  diese  Befehle  in  etwas  umfangreicheren  Pro- 
grammen  einzusetzen,  von  denen  Sie  neben  dem  Lerneffekt  vor 
allem  einen  praktischen  Nutzen  haben  sollen.  Fur  jeden  Ge- 
schmack  ist  etwas  dabei:  Zuerst  machen  wir  ein  wenig  Statistik, 
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das  wird  die  eher  geschaftlich/wirtschaftlich  Interessierten  unter 
Ihnen  freuen.  Danach  kommt  ein  Bonbon  fur  diejenigen,  die 
sich  mehr  zu  kunstlerischen  Anwendungen  hingezogen  fuhlen. 
Wobei  sich  die  beiden  genannten  Dinge  dank  Amiga  ja  nicht 
unbedingt  ausschlieBen  mussen.  Doch  nun  genug  der  An- 
kundigungen,  fangen  wir  an. 


2.7        Die  Wende  -  das  Balken-  und  Tortengrafik-Utility 

Sicher  haben  Sie  schon  einmal  irgendwo  Balken-  und  Torten- 
grafiken  gesehen,  auch  wenn  Ihnen  die  Namen  vielleicht  nicht 
allzuviel  sagen.  Wenn  Sie  zum  Beispiel  die  letzte  Wahl  im  Fern- 
sehen  verfolgt  haben,  hat  Ihnen  ein  freundlicher  Herr  im  Lauf 
des  Abends  immer  wieder  mal  die  aktuelle  Hochrechnung  in 
grafischer  Form  pr&sentiert.  Auch  Statistik  ist  ein  beliebtes  An- 
wendungsgebiet  fur  Computergrafik. 

Die  sogenannten  Tortengrafiken  sind  die  runden  Kuchen,  von 
denen  die  Parteien  am  liebsten  immer  das  grOBte  Stuck  ab- 
bekommen  wollen.  Die  GrflBe  des  jeweiligen  Sektors  entspricht 
dem  prozentualen  Anteil  einer  Partei  an  der  Gesamtzahl  aller 
abgegebenen  Stimmen,  nicht,  wie  viele  mittlerweile  glauben, 
dem  Anteil  vom  Parteispendenkuchen. 

Wahlen  sind  aber  nicht  die  einzige  Gelegenheit,  wo  Torten- 
grafiken eingesetzt  werden.  Wann  immer  es  um  Anteile  (z.B. 
Marktanteile),  Zusammensetzungen  (seien  es  nun  Parlamente, 
Aufsichtsrate  oder  die  neueste  Cola-Rezeptur)  oder  Verh&ltnisse 
geht  (z.B.  Gewinn  verglichen  mit  Gesamtumsatz),  eignen  sich 
Tortengrafiken  dazu,  niichterne  Zahlen  besser  vorstellbar  zu 
machen. 

Eine  andere  Art,  statistische  Daten  optisch  aufzubereiten,  heiBt 
Balkengrafiken.  Das  sind  bei  der  Wahlberichtserstattung  die 
verschieden  hohen  SSulen,  die  den  abgegebenen  Stimmen  pro 
Partei  entsprechen. 
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Balkengrafiken  sind  hilfreich,  urn  sich  das  Verhaltnis  verschie- 
dener  Werte  zueinander  deutlich  zu  machen.  Oder  die  Entwick- 
Iung  eines  einzelnen  Wertes.  Man  kann  also  z.B.  Verkaufszahlen, 
Preisentwicklungen  oder  Aktienkurse  mit  Hilfe  von  Balken- 
grafiken darstellen.  Und  zwar  entweder  nach  dem  Motto  "Ich 
gebe  jetzt  mal  unsere  Verkaufszahlen  der  letzten  Monate  ein" 
oder  "Ich  vergleiche  unsere  Zahlen  dieses  Monats  mit  denen  der 
Konkurrenz". 

Die  Anwendungsmoglichkeiten  sind  so  vielschichtig  wie  die  Da- 
ten,  die  den  Auswertungen  zugrundeliegen. 

Naturlich  konnen  Sie  Balken-  und  Tortengrafiken  auch  auf  Ih- 
rem  Amiga  erzeugen.  Und  damit  Ihnen  das  ein  biBchen  leichter 
failt,  haben  wir  fur  Sie  ein  Programm  geschrieben,  das  Ihnen  die 
Arbeit  abnimmt.  Hier  zunachst  das  Listing: 

Grafik: 

IF  Wert(0)=0  THEN  RETURN 

IF  UCASE$(Wert$(0))=»B»  THEN  GOSUB  Balkengref ik 

IF  UCASE$(Wert$<0))=''T"  THEN  GOSUB  Tortengrafik 
RETURN 

Tortengrafik: 
Gesamt=0 
FOR  x=1  TO  Wert(O) 

Gesamt=Gesamt+Wert(x) 
NEXT  x 

Divi=Gesamt/6.283  :  Winkel1=.0001  :  Bfarb=1 
FOR  x=1  TO  Wert(O) 

Zfarb=Bfarb 

IF  Zfarb>(2AFarben)-1  THEN  Zfarb=1 

Bfarb=Zfarbf1 

IF  Bfarb>(2AFarben)-1  THEN  Bfarb=1 

Winkel2=Winkel1+Wert(x)/Divi 

CIRCLE  (320,100)#156,Bfarb 

CIRCLE  (320,100)/150,Bfarb#-Winket2,-Winket1 

PAINT  (320,32), Zfarb.Bfarb 

CIRCLE  (320,100),150,Bfarb,-Uinkel1/-Winkel2 

Mitwinkel=(WinkelHWinkel2)/2 
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px=320+165*COS(Mitwinkel) 
py=100-80*SIN(Mitwinkel) 
Abstand=0 

IF  Mitwinkel>1.57  AND  Mitwinkel<4.72  THEN  Abstand=LEN(Uert$(x)> 
IF  Abstand>15  THEN  Abstand=15 
COLOR  Zfarb,0 

LOCATE  <py/8.3)+1,(px/8)+1-Abstand 
PRINT  Uert$(x>; 
Uinkel1=Uinkel2 
NEXT  x 

CIRCLE  (320, 100), 156,0 
RETURN 

Balkengraf ik: 

Max=.0001  :  Zfarb=0 
FOR  x=1  TO  Wert(O) 

IF  Wert(x)>Max  THEN  Max=Wert<x) 
NEXT  x 

Breite=INT(550/(Wert<0))) 
IF  Breite>100  THEN  Breite=100 
Fakt=160/Max 
LOCATE  2,1  :  PRINT  Max; 
LOCATE  12,1  :  PRINT  Max/2; 
FOR  x=0  TO  10 

LINE  (1,170-x*16)-(5,170-x*16) 
NEXT  X 
FOR  x=1  TO  Wert(O) 

Zfarb=Zfarb+1  :  IF  Zfarb>(2AFarben)-1  THEN  ZFarb=1 

LINE  (30+(x-1)*Breite,170-Wert(x)*Fakt)-(25+x*Breite,170),Zfarb,bf 

COLOR  Zfarb,0 

LOCATE  23,<4+<x-1)*(Breite/7.8>) 

PRINT  Wert$(x); 
NEXT  x 
RETURN 


Weia,  hoffentlich  haben  wir  Ihnen  da  nicht  zuviel  zugemutet. 
Das  ganze  Ding  abtippen...  Aber  Sie  finden's  naturlich  auch 
wieder  auf  unserer  Diskette.  Es  ist  das  Programm  "Balktort"  in 
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der  ltGrafik"-Schublade.  Diese  Version  ist  jedoch  allein  nicht 
Iauffahig.  Sie  erhalten  nach  RUN  einen  "Return  without  Go- 
sub"-Error.  Das  ist  auch  kein  Wunder,  denn  der  oben  abge- 
druckte  Teil  ist  nur  ein  Unterprogramm.  Was  bisher  fehlt,  ist 
das  Hauptprogramm,  das  diesen  Teil  aufruft.  Dazu  kommen  wir 
jedoch  gleich.  Jetzt  wollen  wir  erstmal  das  Unterprogramm  er- 
kiaren: 

Zuerst  ist  Ihnen  sicher  aufgefallen,  daB  das  Listing  rein  auBer- 
lich  etwas  anders  aussieht  als  die  bisherigen:  Die  meisten  Zeilen 
sind  ein  paar  Positionen  eingeriickt.  Was  hat  das  zu  bedeuten? 

Das  Stichwort  heiBt  "strukturierte  Programmierung".  BASIC-Pro- 
gramme  haben  nSmlich  oft  die  Eigenschaft,  sehr  uniibersichtlich 
auszusehen.  Meist  sind  sie  dann  auch  sehr  uniibersichtlich  pro- 
grammiert.  So  kommt  es,  daB  sich  selbst  derjenige,  der  das  Pro- 
gramm  geschrieben  hat,  nach  einiger  Zeit  nicht  mehr  auskennt. 
Da  AmigaBASIC  alle  Mflglichkeiten  bietet,  die  Ubersichtlichkeit 
in  Programmen  zu  gewahrleisten  (Labels,  Unterprogramme  etc.), 
sollte  man  dem  auch  optisch  Rechnung  tragen.  Wer  herausfinden 
will,  wie  ein  Programm  funktioniert,  tut  sich  bei  dem  gerade 
eingetippten  Listing  sicher  leichter  als  bei  den  Programmen,  wo 
die  Zeilen  einfach  auf  einer  Hdhe  untereinander  stehen. 

Diese  Technik  haben  wir  es  hier  zum  ersten  Mai  eingesetzt,  weil 
Sie  hier  auch  zum  ersten  Mai  ein  ganzes  Programm  abtippen 
muflten,  ohne  zwischendrin  logische  Pausen  durch  unsere  Er- 
klarungen  zu  haben.  Die  Regel,  wie  man  Programmstrukturen 
richtig  kennzeichnet,  ist  ganz  einfach:  Wann  immer  ein  Teil  in- 
nerhalb  einer  Schleife  oder  eines  Unterprogramms  bzw.  eine  ei- 
gene  logische  Einheit  beginnt,  rucken  wir  den  Zeilenanfang  um 
eine  oder  zwei  Stellen  nach  rechts.  Ist  der  betreffende  Teil  dann 
zu  Ende,  rucken  wir  wieder  um  die  gleiche  Stellenzahl  nach 
links.  Das  war's  schon.  Wer  noch  mehr  tun  mochte,  kann  zwi- 
schen  einzelnen  Programmteilen  noch  Leerzeilen  einfiigen. 

Auf  jeden  Fall  sollten  Sie  bitte  auch  diesmal  das  Programm  auf 
Diskette  abspeichern.  Zumindest  dann,  wenn  Sie  es  selbst  einge- 
tippt  haben.  Aber  daran  haben  Sie  in  diesem  Fall  sicher  schon 
selbst  gedacht. 
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So  wie  das  Programm  jetzt  im  Speicher  steht,  konnen  Sie  es 
noch  nicht  benutzen.  Es  ist  ja  schlieBlich  nur  ein  Unter- 
progamm,  und  wir  haben  noch  kein  Programm,  das  es  aufruft. 
Fur  die  ersten  Experimente  mit  unseren  Grafiken  gibt  es  deshalb 
noch  ein  kleines  Testprogramm,  das  Sie  vor  Ihrem  Balken-  und 
Tortengrafik-Utility  eingeben  kdnnen.  Bringen  Sie  also  bitte  den 
Cursor  an  den  Programmanfang,  und  geben  Sie  dort  noch  die 
nachsten  Zeilen  ein: 

Vorbereitungen: 
Farben=3 

SCREEN  4,640,200, Farben,2 
WINDOW  99, "Graf ik», ,8,4 
PALETTE  7#.8,.2,.1 
DIM  Wert(50),Wert$<50) 

Testeingabe: 

WINDOW  1 

INPUT  »B=Balken,  T=Torten:  ",Wert$(0> 
Eingabe: 

Wert(0)=Wert<0)+1 

PRINT  Wert(0)".  Wert:"; 

INPUT  Wert(Wert(0)) 

PRINT  "Bezel" chnung  dazu:11; 

INPUT  Wert$(Wert(0)) 

IF  Wert$(Wert(0))<>  ""  THEN  Eingabe 

Aufruf : 

Wert(0)=Wert(0)-1 
WINDOW  99 
GOSUB  Grafik 
END 

Wenn  Sie  das  entstandene  Programm  jetzt  abspeichern,  wShlen 
Sie  bitte  einen  neuen  Namen,  damit  Sie  sowohl  die  Test-Version 
als  auch  das  reine  Unterprogramm  auf  Diskette  haben.  Auf  un- 
serer  Diskette  im  Buch  hat  diese  erweiterte  Version  den  Namen 
"Balktort.Test". 
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Wer  will,  kann  das  Programm  gleich  ausprobieren.  ZunSchst 
miissen  Sie  entscheiden,  ob  Sie  mit  Ihren  Daten  eine  Balken- 
oder  eine  Tortengrafik  erzeugen  wollen.  Geben  Sie  "b"  fur 
Balkengrafik  ein  bzw.  "t"  fur  Tortengrafik  und  drucken  Sie 
<RETURN>. 

Nun  fragt  Sie  das  Programm  nach  dem  ersten  Wert.  Hier  kflnnen 
Sie  eine  beliebige  Zahl  eingeben,  zum  Beispiel  850.  Nach  der 
Bestatigung  mit  <RETURN>  fragt  das  Programm  nach  der  Be- 
zeichnung  zu  dem  eben  eingegebenen  Wert.  Diese  Bezeichnung 
wird  dann  unter  die  Balken  bzw.  neben  die  Tortensegmente  ge- 
druckt.  Sie  kdnnten  zum  Beispiel  "Amiga"  eintippen.  Im  laufen- 
den  Monat  sind  nach  Ihren  Angaben  850  Amigas  verkauft  wor- 
den.  Die  nSchste  Zahl  konnte  400  sein,  Bezeichnung  "Atari". 
Eine  dritte  Zahl  soil  den  Rest  aller  Computermarken  in  sich 
aufnehmen:  1200,  Bezeichnung:  "sonstige".  Danach  drucken  Sie 
bitte  zweimal  <RETURN>,  ohne  irgendwelche  Werte  einzuge- 
ben. 

Mit  diesen  Eingaben  ktinnen  Sie  jetzt  schon  eine  aussagekrftftige 
Grafik  zum  Thema  Computer- VerkSufe  erstellen.  Fiir  die  stati- 
stische  Qualitat  unserer  Beispielzahlen  k6nnen  wir  allerdings 
keine  Haftung  iibernehmen. 

Nun  zur  Bedienung  und  Funktion  unseres  Utilities.  Ach  ja, 
"Utility"  haben  wir  als  Begriff  bisher  auch  noch  nicht  erklart. 
Das  englische  Wort  bedeutet  "etwas  Nutzliches,  Nutzbringendes" 
und  steht  im  Zusammenhang  mit  Computern  fiir  Programme,  die 
bestimmte  Hilfen  anbieten.  Wir  helfen  Ihnen  zum  Beispiel,  Ihre 
Daten  in  Grafik  umzuwandeln,  und  das  ist  doch  ganz  nOtzlich, 
oder? 

Das  Unterprogramm  ubernimmt  von  Hauptprogramm  drei  ver- 
schiedene  Arten  von  Daten.  Erstens  braucht  es  die  Anzahl  der 
erlaubten  Bit-Ebenen.  Wie  schon  gewohnt,  legen  wir  diesen  Wert 
in  der  Variablen  'Farben*  ab. 

Die  Zahlen,  die  der  Grafik  zugrunde  liegen,  stehen  im  Datenfeld 
'Wert(x)'.  Dieses  Feld  kann  beliebig  viele  Elemente  haben,  mehr 
als  50  sollten  Sie  aber  mit  Rucksicht  auf  die  Ubersichtlichkeit 
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der  Grafiken  auf  keinen  Fall  verwenden.  Die  Anzahl  der  Daten, 
die  in  der  Grafik  dargestellt  werden  sollen,  steht  in  der  Feldpo- 
sition  'Wert(0)\  Befindet  sich  hier  also  z.B.  die  Zahl  5,  werden 
die  Zahlen  aus  'Wert(l)',  1Wert(2)\...  bis  'Wert(5)'  verwendet.  Sie 
konnen  fur  beide  Grafiktypen  beliebige  Zahlen  angeben.  Das 
bedeutet,  auch  die  Werte  fur  Tortengrafiken  miissen  zusammen 
nicht  100  %  ergeben,  denn  urn  die  Umrechnung  auf  prozentuale 
Anteile  kummert  sich  das  Unterprogramm  selbst. 

Die  Bezeichnungen  zu  den  Werten  stehen  im  Feld  'WertSW.  Fur 
jede  Zahl  im  Feld  'Wert(x)'  steht  die  Bezeichnung  an  der  ent- 
sprechenden  Position  in  'Wert$(x)\  Der  Text  zu  'WertU)'  steht 
also  in  'Wert$(l)'  usw.  In  'Wert$(0)'  geben  Sie  durch  einen 
Kennbuchstaben  an,  welche  Darstellung  gewunscht  ist.  Fur  Bal- 
kengrafiken  muB  hier  ein  Hb"  stehen,  fur  Tortengrafiken  ein  V. 
Bei  alien  anderen  Buchstaben  springt  das  Programm  zuruck, 
ohne  eine  Grafik  zu  zeichnen. 

Fur  diese  aufgefiihrten  Daten  mussen  Sie  also  in  Ihrem  eigenen 
Programm  selbst  sorgen.  Zur  Verdeutlichung  hier  noch  einmal 
alle  iibergebenen  Variablen  und  ihre  Werte,  wie  sie  in  unserem 
Beispiel  verwendet  wurden: 


Name  Inhalt  z.B.         Bemerkung 


Farben 

4 

Anzahl  Bit-Ebenen, 

fur  Workbench-Screen:  2 

Wert(O) 

3 

Anzahl  der  Daten 

in  den  Feldern  'Wert'  und  'WertS' 

Wert(l) 

850 

1.  Zahl 

Wert(2) 

400 

2.  Zahl 

Wert(3) 

1200 

3.  Zahl 

Wert$(0) 

t 

b=Balkengrafik 
t=Tortengrafik 

Wert$(l) 

Amiga 

Bezeichnung  zur  1.  Zahl 

Wert$(2) 

Atari 

Bezeichnung  zur  2.  Zahl 

Wert$(3) 

sonstige 

Bezeichnung  zur  3.  Zahl 

Tabelle  5:          Die  Obergabe- 

Variablen  im  Balken-/Tortengrafik-Utility 
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Mehr  Angaben  braucht  das  Unterprogramm  nicht.  Reicht  ja 
auch.  Wenn  Sie  ein  eigenes  Datenverarbeitungsprogramm  schrei- 
ben,  mussen  Sie  gegebenenfalls  den  Screen  und  das  Window,  in 
dem  Sie  die  Grafik  gern  hatten,  selbst  anlegen.  Vor  dem  Aufruf 
des  Unterprogramms  muB  das  gewunschte  Window  mit 

WINDOW  Windownummer 

zum  Ausgabe- Window  gemacht  werden.  Dann  rufen  Sie  das 
Unterprogramm  mit 

GOSUB  Grafik 

auf.  Dahinter  k6nnen  dann  wieder  eigene  Programmteile  folgen. 

Das  war  alles,  was  Sie  zur  Anwendung  des  Utilities  wissen 
mussen.  Wir  besprechen  jetzt  noch,  wie  das  Programm  funktio- 
niert.  Wenn  das  stellenweise  etwas  zu  mathematisch  wird:  Um 
das  Programm  zu  benutzen,  mussen  Sie  ja  nicht  alles  ganz  genau 
verstanden  haben. 

Das  Testprogramm  gibt  im  Teil  'Vorbereitungen:'  zuerst  die  Bit- 
Ebenen  an,  legt  einen  640  *  200-Screen  mit  der  gewunschten 
Farbenzahl  an  und  erdffnet  ein  Window  mit  der  Nummer  99. 
Diese  hohe  Nummer  haben  wir  gewShlt,  damit  Ihnen  das  Win- 
dow nicht  in  die  Quere  kommt,  falls  Sie  unsere  Test- Version 
selbst  etwas  erweitern  wollen. 

Der  PALETTE-Befehl  legt  eine  Farbe  fest.  Nattirlich  kSnnen  Sie 
gem  alle  verwendeten  Farben  Sndern.  Beachten  Sie  dabei,  daB 
PALETTE  immer  nur  auf  dem  Screen  wirkt,  auf  dem  das  aktu- 
elle  Ausgabe-Window  liegt.  Wir  haben  die  Farbe  Nummer  7  um- 
definiert,  weil  diese  beim  Einschalten  des  Amiga  die  gleiche 
Einstellung  hat  wie  Farbe  Nummer  1  (in  beiden  Fallen  weiB). 
Kommt  bei  einer  Tortengrafik  aus  7  Elementen  der  Sektor  mit 
der  Farbe  7  neben  den  Sektor  mit  der  Farbe  1,  lage  weiB  neben 
weiB  und  das  ist  etwas  unpraktisch.  Deshalb  haben  wird  die 
Farbe  7  in  Rot  geSndert. 


196  AmigaBASIC 


Als  nachstes  werden  die  Felder  'Wert'  und  'Wert$'  dimensioniert, 
je  auf  50  Elemente.  Im  Teil  'Testeingabe:'  kflnnen  Sie  solange 
Werte  in  die  beiden  Felder  eingeben,  bis  bei  einer  Bezeichnung 
eine  leere  Eingabe  erfolgt.  Dieses  Kriterium  zeigt  dem  Pro- 
gramm  an,  dalJ  jetzt  alle  Werte  vorliegen. 

Der  Teil  'Aufruf:'  berichtigt  den  Inhalt  von  'Wert(0)\  der  die 
Anzahl  der  vorhandenen  Daten  angibt.  Dann  wird  Window  99 
zum  Ausgabe-Window  gemacht  und  das  Grafik-Unterprogramm 
aufgerufen.  Nach  der  Riickkehr  aus  diesem  Unterprogramm  ist 
das  Programm  zu  Ende. 

Das  Unterprogramm  beginnt  mit  dem  Teil  'Grafik:*  und  checkt 
zuerst  ab,  ob  uberhaupt  irgendwelche  Werte  vorhanden  sind. 
Falls  nicht,  springt  es  gleich  zuruck.  Anhand  des  Inhalts  von 
'Wert$(0)*  entscheidet  sich  nun,  ob  eine  Balken-  oder  eine  Tor- 
tengrafik  gezeichnet  wird.  Wie  schon  einmal,  macht  uns  die 
Funktion  UCASES  davon  unabhangig,  ob  der  Kennbuchstabe  in 
Klein-  oder  GroBschrift  angegeben  wurde.  Innerhalb  des  Unter- 
programms  wird  nun  wieder  ein  Unterprogramm  aufgerufen, 
namlich  das,  das  die  gewiinschte  Grafik  erzeugt. 

Kommen  wir  zum  Teil  'Tortengrafik:'.  Die  ersten  vier  Zeilen 
addieren  alle  vorhandenen  Werte  und  errechnen  so  die  Gesamt- 
summe.  Diese  Gesamtsumme  entspricht  100%.  Daher  wird  in  der 
Variablen  'Divi1  die  Zahl  errechnet,  durch  die  die  Zahl  geteilt 
werden  muB,  urn  die  Einzelwerte  auf  die  zugehflrigen  Kreis- 
winkel  umzurechnen.  Die  Zahl  6.283  ist  2*Pi,  also  der  hochste 
mCgliche  Winkel. 

Der  Anfangswert  von  'Winkell'  wird  etwas  iiber  0  gesetzt,  weil 
der  CIRCLE-Befehl  (wie  jeder  gute  Mathematiker  (Da  staunen 
Sie  aber,  Herr  Ott,  was?  (Herr  Ott  war  unser  Mathematik- 
lehrer)))  nicht  zwischen  +0  und  -0  unterscheidet.  Bei  einem 
Winkel  von  0  wurde  der  erste  Sektor  nicht  ordnungsgem&B  mit 
dem  Kreismittelpunkt  verbunden.  *Bfarb\  die  Begrenzungsfarbe, 
bekommt  den  Startwert  1  (weiB). 
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Die  nachfolgende  FOR...NEXT-Schleife  beinhaltet  die  Zeichen- 
befehle.  Sie  wird  so  oft  ausgefuhrt,  wie  Werte  vorhanden  sind. 
Zu  Beginn  der  Schleife  bekommt  die  Zeichenfarbe  'Zfarb'  den 
alten  Wert  von  'Bfarb'.  Falls  eine  der  Farben  uber  der  erlaubten 
Hflchstzahl  liegt,  wird  sie  auf  1  zuriickgesetzt.  Die  Hinter- 
grundfarbe  0  verwenden  wir  nicht  zum  Zeichnen.  Danach  wird 
auch  die  Begrenzungsfarbe  um  1  erh6ht. 

Was  hat  es  nun  auf  sich  mit  den  beiden  Farben?  Wie  Sie  sicher 
noch  wissen,  akzeptiert  PAINT  zum  Ausmalen  von  Flachen  im- 
mer  nur  Begrenzungen  in  einer  bestimmten  Farbe.  Wir  wollen 
die  Sektoren  unserer  Tortengrafik  in  verschiedenen  Farben  aus- 
malen. Dazu  brauchen  wir  eine  Zeichenfarbe,  eben  'Zfarb'  und 
eine  Begrenzungsfarbe,  eben  'Bfarb'. 

Der  Trick,  mit  dem  wir  das  Ausmalen  erreichen,  ist  nicht  gerade 
von  mathematischer  Brillanz,  aber  recht  praktisch  -  und  das  geht 
manchmal  vor.  Das  Problem:  PAINT  bendtigt  ja  immer  einen 
Punkt  innerhalb  der  Flache,  die  ausgemalt  werden  soil.  Da  die 
Sektoren  sehr  unterschiedliche  Gr6Ben  haben  konnen,  ist  dieser 
Punkt  nicht  einfach  zu  berechnen.  Die  L6sung:  Zum  Zeichnen 
der  Tortengrafik  werden  zwei  ineinanderliegende  Kreise  ver- 
wendet,  der  SuBere  ist  ein  kleines  Stuck  grGBer  (Radius:  156)  als 
der  innere  (Radius:  150).  Mit  der  Begrenzungsfarbe  werden  die 
Teile  des  Kreises  geschutzt,  die  bereits  fertig  sind.  Dann  wird 
die  Flache  zwischen  den  beiden  Kreisen  mit  PAINT  ausgemalt. 
Das  Resultat:  Die  Farbe  l&uft  auch  in  die  ungeschutzten  Teile 
des  Kreises  und  malt  diese  in  der  angegebenen  Zeichenfarbe 
aus.  Deshalb  verwenden  wir  fur  die  Begrenzung  immer  die 
Farbe,  die  eine  Nummer  hGher  ist  als  die  Zeichenfarbe.  Ganz 
am  SchluB  wird  dann  der  auBere  Kreis  gel5scht.  Wenn  Sie  ganz 
genau  aufpassen,  konnen  Sie  dieses  Prinzip  wahrend  des  Ent- 
stehens  der  Grafik  verfolgen. 

Schauen  wir  uns  nun  an,  wie  im  Programm  unser  theoretischer 
Plan  in  die  Praxis  umgesetzt  wurde.  Die  funfte  Zeile  innerhalb 
der  Schleife  errechnet  den  neuen  Wert  von  'Winkel2\  Das  ist  der 
groBere  der  beiden  Begrenzungswinkel.  Seine  neue  GroBe  ist  der 
Anfangswinkel  plus  dem  Anteil,  den  der  nSchste  darzustellende 
Wert  am  Kreisbogen  hat. 
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Zuerst  wird  der  auBere  Kreis  in  der  aktuellen  Begrenzungsfarbe 
gezeichnet.  Dann  ebenfalls  in  der  Begrenzungsfarbe  der  Kreis- 
ausschnitt,  der  die  bereits  fertigen  Teile  schiitzt.  (Dazu  wird 
einfach  ein  Rand  um  den  Kreis  gezeichnet  und  dabei  genau  der 
Teil  ausgespart,  der  ausgemalt  werden  soil.)  Der  PAINT-Befehl 
in  der  nSchsten  Zeile  malt  in  der  Zeichenfarbe  'Zfarb*  aus  und 
erkennt  als  Begrenzung  die  Linien,  die  in  der  Farbe  *Bfarb*  ge- 
zeichnet wurden.  Sein  Anfangspunkt  liegt  genau  in  der  freien 
FlSche  zwischen  den  ineinanderliegenden  Kreisen.  Nach  dem 
Ausmalen  wird  der  gesamte  innere  Kreis  mit  der  Begrenzungs- 
farbe umschlossen  und  die  Fl&che  zwischen  den  Kreisen  durch 
Ausmalen  in  der  Hintergrundfarbe  0  geldscht.  Zu  guter  Letzt 
grenzen  wir  die  Sektoren  mit  der  Begrenzungsfarbe  voneinander 
ab. 

Was  nun  noch  innerhalb  der  Schleife  an  Befehlen  steht,  dient 
hauptsachlich  einem  Zweck:  Die  zugeh5rigen  Texte  sollen  neben 
die  Sektoren  gedruckt  werden.  Auch  dafur  muGten  wir  uns  wie- 
der  einen  Trick  einfallen  lassen:  Wir  rechnen  zuerst  den  Winkel 
aus,  der  genau  durch  die  Mitte  des  aktuellen  Sektors  lauft.  Die- 
ser  Winkel  soil  'Mitwinkel'  heiBen. 

Um  ehrlich  zu  sein:  Jetzt  wurde  es  echt  knifflig.  Wie  um  alles  in 
der  Welt  kann  man  aus  einem  bekannten  Radius  und  einem  be- 
kannten  Winkel  den  Punkt  bestimmen,  wo  der  Winkel  den 
Kreisbogen  schneidet?  Den  brauchen  wir  namlich,  um  den  Text 
richtig  zu  positionieren.  Wer  sich  das  -  wenn  schon  iiberhaupt  - 
optisch  besser  vorstellen  kann,  dem  zeigt  die  Abbildung  7,  was 
gemeint  ist: 
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Bild  7:  Der  Winkel  schneidet  den  Kreisbogen  -  wir  suchen  den  Schnitt- 

punkt 


Wir  wollen  uns  nicht  mit  fremden  Federn  schmucken.  Die  Er- 
Ieuchtung  kam  Hannes  Rugheimer  nach  einiger  Zeit  frustrierten 
Biatterns  in  der  alten  Formelsammlung,  die  ihm  schon  wShrend 
seines  Mathe-Abiturs  als  Schutzschild  diente.  Da  fand  sich  nam- 
lich  unter  der  vielsagenden  Uberschrift  "Goniometrie  -  Veran- 
schaulichung  am  Einheitskreis"  ein  genialer  Zusammenhang: 
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Bild  8: 


Sinus  und  Cosinus  im  Kreis 


Sieh  an!  Sinus  und  Cosinus  kann  man  also  nicht  nur  fur  hiibsche 
Computergrafiken  gebrauchen,  sondern  auch  fur  ganz  nuchterne 
Berechnungen:  Der  Radius  multipliziert  mit  dem  Cosinus  des 
Winkels  ergibt  die  x-Koordinate  des  gesuchten  Schnittpunkts, 
Radius  mal  Sinus  des  Winkels  liefert  die  y-Koordinate.  Na,  das 
ist  doch  was.  Nur  noch  auf  Bildschirmkoordinaten  umrechnen 
(der  Mittelpunkt  ist  (320,100),  und  schon  haben  wir  die  Vari- 
ablen  'px'  und  'py\ 

Das  nftchste  Problem...  Schon  wieder  ein  Problem!  Jetzt  lernen 
Sie  die  wahren  Abgrunde  des  Programmierens  kennen.  Ahnlich 
wie  Indiana  Jones  beim  Weg  zum  Tempel  des  Todes  kampft  sich 
ein  Programmierer  standig  mit  einem  symbolischen  Buschmesser 
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in  der  Hand  durch  das  Dickicht  des  BASIC-Dschungels.  Trotz- 
dem  ist  das  hier  nicht  das  Dschungel-Buch.  Also  gehen  wir,  zu- 
sammen  mit  Indiana  Hannes,  zum  n&chsten  Problem  uber:  Um  es 
gleich  vorwegzunehmen  -  wir  konnen  das  Zahneklappern  der 
Nichtmathematiker  bis  hierher  h6ren  -  diesmal  war  es  ver- 
gleichsweise  einfach  zu  ltfsen. 

Wenn  sich  ein  Text  neben  der  rechten  HStlfte  der  Tortengrafik 
befindet,  darf  er  beliebig  lang  sein.  Schlimmstenfalls  wird  er 
halt  am  rechten  Bildschirmrand  abgeschnitten.  Aber  ein  Text, 
der  an  der  linken  Seite  steht,  wird  schon  nach  wenigen  Zeichen 
in  die  Grafik  hineinragen  -  ein  Zustand,  den  wir  nicht  fiir 
wiinschenswert  hielten.  Die  Zeile,  die  mit  dem  Befehl 

Abstand=0 

beginnt,  schafft  Abhilfe  bzw.  den  notigen  Abstand:  Wenn  der 
Winkel  zwischen  1.57  (i  *  Pi)  und  4.72  (1{  *  Pi)  liegt,  befindet 
sich  der  Text  links  von  der  Torte.  Ist  dies  der  Fall,  wird  von  der 
Anfangsposition  noch  die  LSnge  des  Textes  abgezogen.  So  wird 
der  letzte  Buchstabe  der  Bezeichnung  genau  neben  dem  Kreis 
stehen. 

In  diesem  Zusammenhang  gibt  es  auch  mal  wieder  einen  neuen 
BASIC-Befehl:  LEN(a$).  Er  liefert  die  LSnge  eines  Strings  in 
Zeichen. 

LENC'HaLlo") 

ist  also  5  und 

LEN  ( "Oberpostdi  rekt  i  onsbr  i  ef  markenstempe  t  autotnatenmechani  ker" ) 

ist  55.  Sie  kdnhen  ja  nachzShlen... 

Ist  der  Abstand  des  Textanfangs  vom  Kreis  groBer  als  15  Zei- 
chen, muB  er  allerdings  auf  15  begrenzt  werden,  mehr  Platz  gibt 
es  leider  nicht  auf  dem  Bildschirm.  SchlieBlich  werden  die  Ko- 
ordinaten  'px'  und  'py\  die  ja  Pixels  vertreten,  noch  in  Zeilen 
und  Spalten  fiir  LOCATE  umgerechnet  und  der  Text  zu  guter 


202 AmigaBASIC 


Letzt  auf  den  Bildschirm  gebracht.  Der  gesamte  Formelapparat 
bezieht  sich  iibrigens  auf  80  Zeichen  pro  Zeile.  Bitte  stellen  Sie 
nur  diesen  Wert  als  Grundwert  in  Preferences  ein. 

Fur  den  n£chsten  Schleifendurchlauf  bekommt  der  Anfangs- 
winkel  ('WinkelT)  den  Wert  des  Eridwinkels  ('Winked),  und  die 
ganze  Prozedur  beginnt  fur  den  folgenden  Sektor  von  vorn. 

Sind  alle  Sektoren  gezeichnet,  wird,  wie  schon  erwjihnt,  noch 
der  auBere  Kreis  gelftscht.  Dann  springt  das  Unterprogramm  mit 
RETURN  an  die  Stelle  zuruck,  von  der  es  aufgerufen  wurde. 

Hoffentlich  raucht  Ihnen  der  Kopf  nicht  zu  sehr.  Sie  wissen  ja: 
Wenn  Ihnen  die  letzte  Nuance  mathematischer  Spitzfindigkeiten 
in  diesem  Abschnitt  entgangen  sein  sollte,  macht's  auch  nichts. 
Zum  Thema  Tortengrafik  bleibt  uns  nur  noch  zu  wunschen: 
Guten  Appetit. 

Im  Unterprogramm  'Balkengrafiken:'  haben  wir  mit  weniger  er- 
bittertem  Widerstand  von  seiten  der  Logik  zu  rechnen.  Die  er- 
sten  vier  Zeilen  suchen  aus  alien  Werten  den  GrdBten.  Nach 
diesem  Wert  richtet  sich  die  Hohe  der  anderen  Balken.  Er  wird 
in  die  Variable  'Max1  geschrieben.  Wir  dachten  bei  der  Namens- 
gebung  iibrigens  weniger  an  Max  und  Moritz,  sondern  mehr  an 
einen  Maximalwert.  Mindestwert  fur  'Max1  ist  iibrigens  deshalb 
0.0001,  weil  wir  schon  in  der  iibernachsten  Zeile  550  durch  Max 
teilen  werden.  Und  Teilen  durch  0?  "Das  geht  doch  nicht." 
Bravo,  wer's  zuerst  gesagt  hat,  bekommt  einen  Punkt.  Und  wenn 
Sie  damit  Ihre  Chance  gekommen  sehen,  Amiga  endlich  einmal 
reinzulegen,  probieren  Sie  im  BASIC-Window: 

?  vo 

Der  darauf  erfolgte  "Division  by  Zero"-Error  heiBt  iibrigens  auf 
Deutsch  "Division  durch  Null".  Sie  sehen:  Irgendwo  in  den  Ent- 
wicklungsburos  von  Microsoft  muB  zumindest  ein  Mathematik- 
lehrer  rumlaufen,  der  auf  so  etwas  geachtet  hat.  Kunststiick:  Es 
gibt  ja  genug  davon  -  zumindest  aus  der  Sicht  eines  Schulers. 
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Die  Variable  'Breite'  gibt  spfcter  die  Breite  unserer  Balken  an. 
Der  Wert  ist  abhangig  von  der  Anzahl  der  Balken,  die  dargestellt 
werden  sollen.  Aber  groBer  als  100  Pixels  sollte  er  auf  keinen 
Fall  werden,  schlieBlich  wollen  wir  normale  Balken  zeichnen 
und  keine  kalifornischen  Tausendjahres-Eichen.  Ein  Balken,  der 
die  ganze  Bildschirmbreite  ausfiillt,  kann  ja  nicht  mehr  als  Bal- 
ken bezeichet  werden.  Hdchstens  als  Brett  vorm  Schirm. 

'Fakt'  ergibt  den  Wert,  mit  dem  wir  die  einzelnen  Werte  multi- 
plizieren  mussen,  um  sie  alle  auf  die  richtige  Gr6Be  umzurech- 
nen.  160  Pixels  hoch  darf  unser  Maximalwert  sein,  alle  anderen 
werden  entsprechend  kleiner. 

An  den  linken  Rand  drucken  wir  noch  eine  Achsenbeschriftung, 
damit  man  die  Hdhe  der  einzelnen  Balken  ablesen  kann.  Die  fol- 
genden  fiinf  Zeilen  besorgen  das  fur  uns.  Gedruckt  wird  der 
Maximalwert  und  die  Halfte  davon.  AnschlieBend  noch  elf  Tei- 
lungsstriche. 

In  den  letzten  sechs  Zeilen  unseres  Unterprogramms  liegt  die 
Schleife,  die  fiir  das  Zeichnen  der  Balken  zust&ndig  ist.  Genau 
wie  bei  den  Tortengrafiken  wird  die  Schleife  so  oft  durchlaufen, 
wie  darzustellende  Werte  vorkommen.  Die  Zeichenfarbe  wechselt 
innerhalb  des  mdglichen  Bereichs  um  eine  Farbnummer  pro  Bal- 
ken. Die  Hintergrundfarbe  lassen  wir  natiirlich  wieder  aus. 

Mit  einem  LINE-Befehl  bringen  wir  die  Balken  auf  den  Bild- 
schirm.  Unterhalb  der  Balken  wird  mit  LOCATE  und  PRINT 
dann  schlieBlich  noch  der  zugehflrige  Text  gedruckt.  Die  Posi- 
tion richtet  sich  dabei  in  erster  Linie  nach  der  Breite  der  Bal- 
ken. Das  Ganze  wiederholt  sich  fiir  alle  Werte,  danach  springt 
das  Progamm  mit  RETURN  zuriick. 

Herzlichen  Gluckwunsch!  Sie  haben  auch  diesen  sehr  mathe- 
matisch-theoretischen  Teil  gut  iiberstanden.  Jetzt  sollten  Sie 
erstmal  ein  wenig  mit  Ihrem  neuen  Utility  experimentieren.  Sie 
glauben  gar  nicht,  was  sich  alles  statistisch  erfassen  laBt.  Selbst 
die  Bundesregierung  hat  noch  nicht  alle  MSglichkeiten  entdeckt. 
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Im  Laufe  des  Buches  werden  wir  vor  allem  noch  den  Eingabeteil 
verbessern,  so  daB  Sie  zum  Beispiel  Werte  auf  Diskette  abspei- 
chern  k&nnen,  um  Ihre  Aktienkurse  oder  Ihre  Verkaufszahlen 
uber  einen  langeren  Zeitraum  zu  beobachten.  Sollten  Sie  stati- 
stischen  und  wirtschaftlichen  Dingen  iiberhaupt  nichts  abgewin- 
nen  kSnnen,  haben  wir  auch  noch  einen  Trost  fur  Sie:  Die 
nachsten  Kapitel  werden  ein  Programm  hervorbringen,  das  den 
Kiinstler  in  Ihnen  zu  neuen  HGchstleistungen  anspornen  diirfte. 
Und  wer  ware  dazu  besser  geeignet  als  Ihr  Amiga? 


2.8        Mehr  Schein  als  Sein?  -  Menus  und  Maussteuerung  in 
BASIC 

Was  meinen  Sie:  Worin  unterscheiden  sich  die  professionellen 
Programme,  wie  Graphicraft  oder  Textcraft,  hauptsachlich  von 
unseren  selbstgeschriebenen  BASIC-Programmen?  Sie  sind 
schneller,  gut.  Sie  sind  ein  Stuck  leistungsfahiger,  auch  gut. 
Aber  einer  der  Hauptunterschiede  ist  doch:  Der  Anwender  kann 
das  Programm  vollstandig  mit  der  Maus  bedienen.  Die  gesamte 
Meniisteuerung  ist  durch  den  Mauszeiger  und  durch  Pulldown- 
Menus  realisiert.  "Ja,H  werden  Sie  jetzt  sagen,  "wenn  da  die  Pro- 
fis  rangehen." 

Gut,  gut.  Hiermit  befordern  wir  Sie  in  die  Gruppe  der  Profis 
und  liiften  damit  wieder  ein  paar  Geheimnisse  der  BASIC-Pro- 
grammierung.  Menus,  Pulldowns,  Maussteuerung?  Kein  Problem, 
AmigaBASIC  unterstutzt  diese  Funktionen.  Es  ist  gar  nicht  so 
schwer,  BASIC- Programme  zu  schreiben,  die  von  der  Aufma- 
chung  her  absolut  professionell  aussehen.  Probieren  Sie  nur  mal 
diese  Zeilen.  Sie  finden  dieses  Beispiel,  wie  so  oft,  auch  auf 
unserer  Diskette.  Suchen  Sie  nach  "Menudemo". 

MENU  1,0,1,"Auswahl" 
FOR  x=1  TO  9 

MENU  1,x,1f"Punkt  "+CHR$(48+x> 
NEXT  x 
FOR  x=2  TO  4 
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MENU  xf0,0,m' 
NEXT  X 

ON  MENU  G0SU6  Auswahl 
MENU  ON 

Warten: 
GOTO  Warten 

Auswah I : 

LOCATE  10,20 

PRINT  "Sie  haben  Punkt,,;MENU(1);(,gewahlt,"; 

RETURN 

Wenn  Sie  das  Programm  ausprobieren,  glauben  Sie  wahrschein- 
lich  zuerst,  daB  es  gar  nichts  tut.  Aber  drucken  Sie  bitte  die 
Meniitaste  der  Maus  (das  ist  die  rechte  Taste).  Anstelle  der  ge- 
wohnten  BASIC-Pulldowns  sehen  Sie  nur  einen  einzigen  Menu- 
titel  in  der  Kopfzeile,  namlich  "Auswahl".  Fahren  Sie  bitte  mit 
gedruckter  Maustaste  auf  dieses  Menu  und  schauen  Sie  sich  sei- 
nen  Inhalt  an.  Zur  Demonstration  gibt  es  9  verschiedene  Menu- 
punkte.  WShlen  Sie  einen  davon,  und  das  Programm  druckt  die 
Nummer  auf  den  Bildschirm,  auf  die  Ihre  Wahl  fiel. 

Zugegeben,  dieses  Programm  leistet  noch  nichts  GroBartiges, 
aber  es  zeigt  Ihnen,  wie  einfach  Menusteuerung  in  AmigaBASIC 
programmiert  werden  kann,  und  wie  professionell  das  Ergebnis 
aussieht.  Um  das  Programm  zu  beenden,  haben  wir  bisher  noch 
keine  Pulldown-Option  vorgesehen.  Und  das  "Run"-PuIIdown 
mit  seiner  "Stop"-Option  gibt  es  ja  zur  Zeit  nicht.  Drucken  Sie 
deshalb  bitte  die  Tastenkombination  <CTRL>-<C>.  Mit  diesen 
beiden  Tasten  konnen  Sie  fast  jedes  BASIC-Programm  ab- 
brechen. 

Sie  werden  feststellen,  daB  die  gewohnten  Pulldown-Funktionen 
auch  nach  dem  Beenden  des  Programms  nicht  zuriickgekehrt 
sind.  Da  wir  sie  aber  zum  Arbeiten  benfltigen,  muB  es  wohl  eine 
M6glichkeit  geben,  die  Grundbelegung  der  Pulldown-Menus 
wiederherzustellen.  Der  dazu  notige  BASIC-Befehl  heiBt: 
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menu  reset 

Geben  Sie  ihn  bitte  im  BASIC-Window  ein.  Danach  sind  die 
gewohnten  BASIC-Pulldowns  wieder  verfugbar. 

Kommen  wir  nun  etwas  genauer  zu  den  einzelnen  Befehlen  und 
ihren  Auswirkungen:  MENU  benfltigt  drei  Zahlenwerte  und  den 
Namen,  den  die  entsprechende  Option  bekommen  soil.  Der  Be- 
fehl  am  Anfang  unseres  Beispielprogramms  lautet: 

MENU  1,0,V'Auswahl» 

Die  erste  Zahl  hinter  dem  Befehl  gibt  die  Nummer  eines  Menus 
an.  Bei  der  Standardbelegung  ist  das  MProject"-Menii  die  Num- 
mer 1,  "Edit"  die  Nummer  2,  "Run"  die  Nummer  3  und  "Win- 
dows" die  Nummer  4.  Ingesamt  konnen  in  AmigaBASIC  10  ver- 
schiedene  Pulldown-Menus  definiert  werden. 

Die  zweite  Zahl  bestimmt  den  Menupunkt  innerhalb  des  ange- 
gebenen  Menus.  Nummer  0  ist  der  Titel  des  Menus,  die  Num- 
mern  1  bis  (hochstens)  19  geben  die  verschiedenen  Optionen  an. 

An  dritter  Stelle  kann  nur  eine  von  drei  Zahlen  stehen. 

0  schaltet  den  angegebenen  Menupunkt  aus.  Der  Punkt  ist  dann 
nicht  mehr  verfugbar,  er  wird  in  der  etwas  schwer  lesbaren 
Schrift  gedruckt,  die  Sie  ja  schon  kennen.  Diese  Schrift  nennt 
man  auch  "Geisterschrift".  Ist  die  zweite  Zahl  hinter  dem 
MENU-Befehl  eine  0,  bezieht  sich  das  Aus-  oder  Anschalten 
auf  das  ganze  Pulldown. 

1  bewirkt  das  Gegenteil  von  0.  Die  angegebene  Menu-Option 
bzw.  das  gesamte  Pulldown  wird  angeschaltet,  steht  wieder  zur 
Auswahl. 

2  schliefllich  wirkt  wie  1,  mit  einem  Unterschied:  Der  ange- 
gebene Menupunkt  wird  mit  einem  H&kchen  versehen.  (Es  ist 
der  Typ  Hakchen,  der  auch  in  Schule  und  Beruf  immer  das  be- 
ruhigende  Gefuhl  vermittelt,  sich  fur  das  Richtige  entschieden 
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zu  haben.  Im  Gegensatz  zu  Kreuzchen,  die  man  bei  Wahlen 
macht.)  Mit  dieser  Hilfe  konnen  Sie  dem  Benutzer  Ihres  Pro- 
gramms  leicht  anzeigen,  welcher  Modus  zur  Zeit  aktiv  ist. 

Fur  den  Titel  des  jeweiligen  Meniipunkts  geben  Sie  einen  belie- 
bigen  Stringausdruck  an,  entweder  den  Text  in  Anfuhrungs- 
zeichen  oder  eine  Stringvariable,  die  den  Text  beinhaltet.  Wenn 
Sie  den  String  weglassen,  ver&ndert  der  MENU-Befehl  lediglich 
die  Parameter  einer  bereits  vorhandenen  Pulldown-Option  (mei- 
stens  werden  Sie  wohl  die  dritte  Zahl  verandern).  Sie  kflnnen 
auch,  wie  in  unserem  Beispielprogramm,  mit  dem  CHR$-Befehl 
einzelne  Zeichen  angeben  oder  zum  Text  hinzufugen.  Wenn  Sie 
sich  fragen,  warum  wir  zu  den  Zahlen  in  V  ausgerechnet  den 
Wert  48  addieren,  dann  schauen  Sie  sich  bitte  die  ASCII-Tabelle 
an,  die  Sie  beim  CHR$-Befehl  im  Anhang  B  finden. 

menu  1,0,1, "Test" 

tauft  das  Pulldown  Nummer  1  auf  den  Namen  "Test".  Geben  Sie 
gleich  den  nachsten  Befehl  ein.  Lassen  Sie  dabei  bitte  vor  dem 
Wort  "Nummer"  zwei  Leerstellen  Platz. 

menu  1,1,1,"     Nummer  1" 

Jetzt  dtirfen  Sie  sich  beruhigt  das  erste  Pulldown  anschauen.  Mit 
dem  zweiten  Befehl  haben  wir  dort  einen  eigenen  Unterpunkt 
definiert.  Allerdings  kann  AmigaBASIC  verstandlicherweise  im 
Direktmodus  (das  heiBt  also  ohne  Programmkontrolle)  mit  dieser 
Option  nichts  anfangen,  also  nicht  darauf  reagieren.  Wenn  Sie 
das  gesamte  Menu  Nummer  1  abschalten  wollen,  verwenden  Sie: 

menu  1,0,0 
Um  dies  rtickgfcngig  zu  machen,  verwenden  Sie  den  Befehl: 
menu  1,0,1 

Der  n&chste  Befehl  versieht  den  ersten  Punkt  des  ersten  Mentis 
mit  einem  HSkchen,  zur  Kennzeichnung  dieser  Menuoption: 
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menu  1,1,2 

Wie  Sie  in  unserem  Beispielprogramm  sehen,  ist  es  notig,  die 
voreingestellten  BASIC-Pulldowns  einzeln  zu  loschen,  falls  im 
Programm  weniger  als  vier  eigene  Menus  definiert  werden.  Das 
LSschen  geht  so: 

for  x=1   to  4   :  menu  x,0,0#""   :   next  x 

Nach  dieser  Zeile  gibt  es  uberhaupt  keine  Pulldowns  mehr. 
Diese  Moglichkeit  kann  in  manchen  Programmen  auch  recht 
sinnvoll  sein.  Sollten  Sie  schon  bald  groBe  Sehnsucht  nach  den 
gewohnten  und  geschatzten  Menus  verspuren,  wissen  Sie  ja 
noch,  wie  Sie  sie  zuruckbekommen: 

menu  reset 

Mit  dem  MENU-Befehl  konnen  Sie  in  Ihren  Programmen 
zunachst  alle  Menus  nach  Ihren  Vorstellungen  anrichten,  oh 
Verzeihung  -  wir  meinen  natiirlich:  einrichten. 

Bisher  haben  wir  die  Uberwachung  und  Auswertung  der  Mentis 
noch  nicht  ins  Spiel  gebracht.  Die  Methode,  nach  der  diese 
Uberwachung  funktioniert,  geh6rt  zu  den  faszinierendsten  M6g- 
lichkeiten  von  AmigaBASIC:  Wenn  Sie  sich  das  Beispiel- 
programm noch  einmal  genau  ansehen  (oder  es  mit  TRACE 
verfolgen),  werden  Sie  feststellen,  daB  das  Hauptprogramm 
eigentlich  nur  aus  der  Schleife  'Warten:'  besteht.  Diese  Schleife 
springt  st&ndig  auf  sich  selbst.  Das  ist  auch  wieder  so  etwas,  was 
nur  Computer  fertigbringen,  ohne  dabei  verriickt  zu  werden. 

Alles  andere  funktioniert  nach  dem  Prinzip  des  "Event  Trapping" 
(deutsch  etwa:  Ereignisuberwachung).  In  dem  Augenblick,  wo 
ein  bestimmtes  Ereignis  eintritt,  das  von  AmigaBASIC  iiber- 
wacht  werden  soil,  wird  das  gegenw&rtige  Programm  unter- 
brochen  und  ein  vorher  festgelegtes  Unterprogramm  aufgerufen. 
Ist  dieses  Unterprogramm  zu  Ende,  macht  AmigaBASIC  genau 
an  der  Stelle  weiter,  wo  es  vorher  unterbrochen  hat.  Diese  Art 
zu  programmieren,  ist  nicht  nur  uberaus  praktisch,  sondern  auch 
sehr  effektiv.  Sie  kOnnen  verschiedene  Unterroutinen  schreiben, 
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die  sich  um  Programmabbruch,  Kollision  von  Grafikobjekten, 
Fehlermeldungen,  Menu-  und  Maus-Steuerung  oder  Timer-Ab- 
laufe  (also  zeitlich  festgelegte  Unterbrechungen)  kummern, 
wShrend  das  Hauptprogramm  etwas  vollig  anderes  tut. 

Der  Befehl,  mit  dem  Sie  AmigaBASIC  mitteilen,  welches  Unter- 
programm  angesprungen  soil,  wenn  der  Benutzer  eine  Menu- 
Auswahl  vornimmt,  lautet: 

ON  MENU  GOSUB  ... 

Dahinter  kdnnen  Sie  ein  Label  oder  eine  Zeilennummer  angeben. 
Jede  Mflglichkeit  des  Event  Trapping  hat  noch  eine  eigene  "Si- 
cherung"  und  mufl  erst  ausdrucklich  "scharf"  gemacht,  bzw.  akti- 
viert  werden.  Dazu  verwenden  Sie  fur  die  Menii-Uberwachung 
den  Befehl 

MENU  ON 

Wollen  Sie  das  Menu-Trapping  vorubergehend  unterbrechen, 
verwenden  Sie  MENU  STOP.  Zum  endgiiltigen  Abschalten  gibt 
es  MENU  OFF.  Der  Unterschied  zwischen  diesen  beiden  Befeh- 
len  liegt  in  der  "Wahrnehmung"  des  Ereignisses. 

Bei  MENU  STOP  registriert  der  Amiga  die  Menuauswahl,  rea- 
giert  aber  nicht  sofort  darauf.  Er  wartet,  bis  Event  Trapping 
wieder  zugelassen  wird.  Nach  dem  nftchsten  MENU  ON  werden 
dann  auch  die  Ereignisse  ausgewertet,  die  wahrend  der  Unter- 
brechung  stattfanden.  Dagegen  unterdriickt  MENU  OFF  die 
Uberwachung  vollstandig.  Der  Amiga  reagiert  nicht  auf  die 
Menuauswahl,  bis  das  Event  Trapping  durch  MENU  ON  wieder 
zugelassen  wird. 

Die  Arbeitsweise  von  ON,  OFF  und  STOP  ist  identisch  fur  alle 
anderen  moglichen  Ereignisse.  Wir  werden  von  Fall  zu  Fall 
darauf  zuruckkommen.  Da  konnen  Sie  dann  auch  am  praktischen 
Beispiel  die  Unterschiede  zwischen  OFF  und  STOP  besser  er- 
kennen. 
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Die  letzte  Frage,  die  wir  jetzt  noch  beantworten  sollten,  lautet: 
"Was  kann  ich  das  von  ON  MENU  GOSUB  aufgerufene  Unter- 
programm  alles  machen  lassen?"  Wie  gesagt,  wird  bei  jeder  An- 
wahl  einer  Menuoption  durch  den  Benutzer  das  angegebene 
Unterprogramm  aufgerufen.  Dieses  Unterprogramm  muB  nun 
zuerst  mal  herausfinden,  welcher  Menupunkt  uberhaupt  gewahlt 
wurde.  Dazu  gibt  es  zwei  Funktionen,  namlich  MENU(O)  und 
MENU(l).  MENU(O)  liefert  die  Nummer  des  gewahlten  Pull- 
downs,  diese  Zahl  entspricht  der  ersten  Angabe  beim  MENU- 
Befehl.  MENU(l)  liefert  die  Nummer  der  gewfchlten  Option  in- 
nerhalb  des  gewShlten  Pulldowns,  diese  Zahl  entspricht  der 
zweiten  Angabe  im  MENU-Befehl.  Damit  erhalt  Ihr  BASIC- 
Programm  alle  Informationen,  die  es  braucht,  um  auf  die  Menii- 
Auswahl  zu  reagieren. 

Das  folgende  Beispiel  soil  Ihnen  das  verdeutlichen:  Wir  erweitern 
das  Beispielprogramm  um  einen  Menupunkt.  Fiigen  Sie  den  Be- 
fehl  bitte  genau  zwischen  die  beiden  FOR...NEXT-Schleifen  im 
ersten  Teil  des  Programms  ein: 

menu  1,10,  V'Beenden" 

Das  Unterprogramm  'Auswahl:*  ver£ndern  Sie  nun  so,  dafl  dabei 
folgendes  herauskommt: 

Auswahl: 

IF  MENU(1)=10  THEN  MENU  RESET  :  END 

LOCATE  10,20 

PRINT  "Sie  haben  Punk^'.-MENUCD^^ewahlt." 

RETURN 

Die  Version,  die  nun  entstanden  ist,  finden  Sie  als  MMenudemo2" 
auch  auf  der  Diskette  im  Buch. 

Und  so  funktioniert's:  Das  'Auswahli'-Programm  iiberpruft  zu- 
erst, ob  der  gewahlte  Punkt  die  Nummer  10  hat.  Nummer  10 
bedeutet  "Beenden".  (Wer  jetzt  an  Bo  Dereks  Film  "10"  gedacht 
hat,  ist  vielleicht  ein  biBchen  entt&uscht...)  Trifft  das  zu,  wird 
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mit  MENU  RESET  die  Menii-Grundbelegung  wiederhergestellt, 
und  das  Programm  bricht  mit  END  ab.  In  alien  anderen  Fallen 
verh&lt  sich  das  Programm  so  wie  bisher. 

Da  es  in  unserem  Beispiel  nur  ein  Pulldown  gibt,  brauchen  wir 
uns  urn  die  Nummer  des  Pulldowns,  also  den  Wert  MENU(O), 
nicht  weiter  zu  kummern.  In  grdfieren  Programmen  mit  mehre- 
ren  Pulldowns  mussen  Sie  erst  mit  MENU(O)  das  gewahlte  Menu 
feststellen,  bevor  Sie  mit  MENU(l)  die  einzelnen  Punkte  ab- 
prufen  k6nnen. 

1st  soweit  alles  klar?  Sollte  es  Ihnen  noch  ein  wenig  an  umfang- 
reicheren  Anwendungsbeispielen  mangeln:  Es  dauert  gar  nicht 
mehr  lange,  bis  wir  Ihnen  anhand  eines  groBen  und  leistungs- 
f&higen  BASIC-Utilities  die  Menusteuerung  und  manches  andere 
vorfuhren  kOnnen.  Vorher  fehlt  uns  aber  noch  eine  andere 
wichtige  Grundlage:  Die  Abfrage  und  Programmierung  der 
Maus.  Zur  Demonstration  bieten  wir  Ihnen  das  wohl  kurzeste 
Malprogramm  auf  dem  Amiga: 

ON  HOUSE  GOSUB  Zeichnen 
MOUSE  ON 

War ten: 
GOTO  Warten 

Zeichnen: 

WHILE  M0USE(0)<>0 

PSET  (MOUSE(1),MOUSE(2)) 

WEND 
RETURN 

Bedenkt  man  die  geringe  Arbeit,  die  Sie  mit  der  Eingabe  hatten, 
ist  das  Programm  doch  schon  ganz  ordentlich,  oder  nicht?  Und 
wenn  Sie  sich  die  Arbeit  noch  weiter  erleichtern  wollen,  kflnnen 
Sie  das  Ganze  auch  als  "Mausdemo"  von  der  beiliegenden  Dis- 
kette laden. 
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Sie  sehen  jedenfalls,  daB  Maus-Abfragen  vom  Grundprinzip  her 
genauso  funktionieren  wie  Menu-Abfragen.  Mit  dem  Befehl 

ON  MOUSE  GOSUB  ... 

geben  Sie  das  Unterprogramm  an  das  sich  bei  Bedarf  um  die 
Maus  kummern  soil. 

MOUSE  ON 

aktiviert  das  Ganze,  und  die  folgende  Endlosschleife  vertritt  ein 
laufendes  Programm. 

Nur  im  Programmteil  'Zeichnen:'  gibt  es  einiges  Neue  und  Er- 
kULrenswerte:  Zum  Beispiel  den  WHILE.. .WEND-Befehl.  Diese 
beiden  Befehle  bieten  eine  neue  Moglichkeit,  Schleifen  zu  pro- 
grammieren.  "While"  heiBt  auf  Deutsch  "Wahrend,  solange"  und 
"wend"  ist  wahrscheinlich  ein  Kunstwort  aus  "WHILE  End",  es 
konnte  aber  auch  iibersetzt  "wenden,  sich  umdrehen"  bedeuten. 
Sie  sehen:  So  ganz  einfach  sind  die  Uberlegungen  der  BASIC- 
SprachschGpfer  auch  nicht  immer  nachzuvollziehen. 

Diese  Schleifenstruktur  dient  dazu,  einen  Programmteil  solange 
ausf uhren  zu  lassen,  wie  ein  bestimmter  Zustand  anhSlt.  Eine 
einfache  Schleife,  die  auf  einen  Tastendruck  wartet,  sieht  so  aus: 

WHILE   INKEY$=""    :   WEND 

Dieses  Beispiel  kdnnen  Sie  sogar  im  BASIC-Window  auspro- 
bieren.  WHILE.. .WEND  ist  oft  einfacher  und  eleganter  als 
FOR.. .NEXT  oder  IF.. .THEN,  obwohl  man  mit  ein  wenig  Auf- 
wand  jede  der  drei  Schleifenarten  durch  eine  der  beiden  anderen 
ersetzen  kann.  Die  Bedingung,  die  die  WHILE.. .WEND-Schleife 
im  Beispielprogramm  abfragt,  heiBt: 

MOUSE(0)<>0 

Ihnen  wird  aufgefallen  sein,  daB  Sie  nur  zeichnen  konnen, 
wahrend  die  linke  Maustaste  gedruckt  ist.  Die  Funktion 
MOUSE(O)  gibt  Auskunft  uber  den  Zustand  der  Maustaste.  Sie 
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hat  den  Wert  0,  wenn  keine  Maustaste  gedruckt  ist.  Falls  sie 
doch  gedruckt  ist,  gibt  es  verschiedene  Moglichkeiten,  die  wir 
aber  an  dieser  Stelle  noch  nicht  alle  besprechen  wollen.  Wenn 
wir  beim  Programmieren  einer  bestimmten  Variante  iiber  den 
Weg  laufen,  werden  wir  sie  dort  erklaren.  Wer  sofort  alles  wis- 
sen  will,  kann  aber  auch  gern  gleich  unter  MOUSE(x)  in  der 
Befehlsbeschreibung  im  Referenzteil  dieses  Buches  nachschauen. 
Nicht  nur  MOUSE(O),  sondern  auch  MOUSE(l)  und  MOUSE(2) 
kommen  in  unserem  Beispiel  vor.  Die  beiden  sind  fast  noch 
einfacher  als  MOUSE(O): 

MOUSE(l)  liefert  die  x-Koordinate  der  Maus. 
MOUSE(2)  liefert  die  y-Koordinate  der  Maus. 

Beide  Werte  werden  in  Pixels  angegeben,  wobei  sich  Amiga- 
BASIC  beim  Z&hlen  automatisch  an  den  aktuellen  Screen  anpaBt. 
Das  macht  das  Zeichnen  mit  der  Maus  so  einfach. 

Vielleicht  haben  Sie  jetzt  schon  einen  Verdacht,  welche  Art  von 
Programm  unser  vielgepriesenes  Utility  sein  k6nnte.  Was  konnte 
wohl  am  besten  dazu  geeignet  sein,  alle  denkbaren  Funktionen 
von  Maus  und  Pulldowns  zu  demonstrieren,  dabei  auch  noch  ein 
nutzliches  Hilfsmittel  ergeben  und  vor  allem  auf  dem  Amiga 
interessant  sein? 

Wir  werden  im  nachsten  Kapitel  ein  eigenes  Malprogramm 
schreiben.  Ein  Malprogramm,  das  fast  alle  Grafikfahigkeiten  von 
AmigaBASIC  unterstiitzt,  einfach  zu  bedienen  ist  .und  dabei 
wirklich  tolle  Bilder  erzeugen  kann.  Was  es  aufierdem  noch  bie- 
tet?  Ein  paar  besondere  Bonbons  -  aber  lesen  Sie  selbst... 


2.9        Das  grofle  Tippen  -  das  AmigaBASIC- Malprogramm 

Wir  wollen  Ihnen  jetzt  ein  Utility  vorstellen,  das  Ihnen  hilft,  in 
BASIC  Bilder  und  Zeichnungen  zu  erzeugen.  Das  Ding  zu  ent- 
wickeln,  war  wirklich  ein  gutes  Stuck  Arbeit.  Wir  sagen  das  jetzt 
nicht,  urn  uns  zu  loben,  sondern  um  Ihnen  klar  zu  machen, 
warum  es  so  lang  geworden  ist.  Sie  sollten  also  etwas  Zeit  mit- 
bringen,  wenn  Sie  sich  an  das  bisher  groBte  Projekt  in  diesem 
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Buch  wagen.  (Vielleicht  nehmen  Sie  auch  noch  gleich  ein  paar 
NiiBchen,  Chips  und  was  zu  Trinken  mit...)  Sind  Sie  soweit? 
Verabschieden  Sie  sich  von  Ihrer  Familie,  schlieflen  Sie  die  Tur 
hinter  sich:  Es  geht  los.  Aber  es  wird  sich  lohnen.  Sowohl  vom 
Ergebnis  als  auch  vom  Lernerfolg  her. 

Wenn  Sie  bisher  alle  Beispiele  dieses  Buches  mitgemacht  haben, 
besitzen  Sie  von  uns  schon  zwei  groBere  Hilfsprogramme:  Den 
Videotitelgenerator,  mit  dem  Sie  aus  Texten  und  bewegten 
Grafikobjekten  einen  Video-Vorspann  erzeugen  kdnnen  und  das 
Balken-/Tortengrafik-Utility,  das  statistische  Daten  in  Grafiken 
umsetzt. 

Bei  der  Entwicklung  unser  Beispiele  verfolgten  wir  vor  allem  ein 
Ziel:  Wir  wollen  Ihnen  Programme  in  die  Hand  geben,  die  Ihnen 
auch  nach  der  Lern-Phase  einen  moglichst  hohen  Nutzen  bieten. 
Gerade  auf  dem  Gebiet  der  Grafik  gibt  es  einen  wichtigen 
Punkt,  urn  den  Anwendungswert  einzelner  Programme  zu  erho- 
hen:  Die  Programme  sollten  untereinander  kompatibel  sein.  Da- 
durch  wird  es  fur  Sie  zum  Beispiel  moglich,  mit  dem  Mal- 
programm  Bilder  zu  erzeugen,  die  Sie  spater  im  Videotitel-Pro- 
gramm  einlesen  und  als  Hintergrunde  verwenden  konnen.  Oder 
auch  die  Bilder  der  "grofien"  Malprogramme,  wie  Graphicraft 
oder  DeluxePaint,  einzulesen  und  in  AmigaBASIC  weiter  zu  be- 
arbeiten.  Ja,  das  geht!  Wir  haben  doch  gesagt,  es  wird  sich  loh- 
nen. Und  wir  versuchen,  immer  zu  halten,  was  wir  versprechen. 

Ein  wichtiges  Glied  in  dieser  Kompatibilit&tskette  ist  unser  Mal- 
programm.  Wir  glauben,  daB  mit  ihm  ein  sehr  hilfreiches  und 
leistungsfahiges  Utility  entstanden  ist.  Viele  der  MSglichkeiten, 
die  Sie  von  kommerziellen  Grafik-Programmen  kennen,  werden 
Sie  auch  in  unserem  BASIC-Programm  finden.  Naturlich  kann 
ein  Programm,  das  so  viel  bietet,  nicht  so  kurz  sein  wie  die 
Beispiele,  mit  denen  wir  nur  einzelne  Befehle  eriautern.  Im 
Klartext  heiBt  das,  daB  im  Lauf  der  nachsten  beiden  Kapitel 
insgesamt  9  Seiten  Listing  auf  Sie  warten,  die  in  den  Amiga  ein- 
gegeben  werden  miissen.  Naturlich  haben  Sie  auch  hier  die 
Moglichkeit,  das  ganze  Programm  von  unserer  beigelegten  Dis- 
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kette  zu  laden.  Allerdings  sollten  Sie  sich  trotzdem  StOck  fur 
Stuck  mit  den  Beschreibungen  in  den  folgenden  Kapitel  aus- 
einandersetzen  und  sie  mit  dem  Programm  vergleichen. 

Wie  gesagt:  Fur  diese  Kapitel  werden  Sie  einige  Zeit  brauchen. 
Nehmen  Sie  sich  diese  Zeit,  niemand  dr^ngt  Sie.  Machen  Sie 
auch  zwischendrin  ruhig  einige  Pausen  -  wir  sind  nicht  sauer, 
wenn  Sie  uns  mal  ein  biBchen  in  den  Bucherschrank  stellen. 

Naturlich  erklaren  wir  das  Programm  ausfuhrlich  und  weisen 
dabei  auf  besondere  Befehle,  Optionen  oder  spezielle  Tricks  hin. 
Und  damit  kann's  eigentlich  losgehen.  Wenn  Sie  sich  fiirs  Tippen 
entschieden  haben,  dann  geben  Sie  bitte  nacheinander  die  Pro- 
grammteile  aus  diesem  Kapitel  ein.  Ubernehmen  Sie  dabei  m6g- 
lichst  die  strukturierte  Schreibweise.  Das  Programm  wird  da- 
durch  nicht  nur  iibersichtlicher,  sondern  Sie  werden  auch  Einga- 
befehler  leichter  finden  und  ausmerzen  konnen. 


Vorbereitungen: 

Farben=5   :  Maxfarbe=2*Farben-1 
DIM  Zeiger(4,1),Attfarbe(4),Farben%<31,2> 
DIM  Muster%(7),AlLemuster%(8,7),VoU%<1) 
Zart=1    :   Zfarbe=1    :   Ffarbe=2  :  Modus=1 

Voll%(0)=&HFFFF   :   Vol l%(1)=&HFFFF 
FOR  x=0  TO  7 

Muster%(x)=&HFFFF 

AUemuster%(0,x)=&HFFFF 
NEXT  x 
FOR  x=1   TO  8 

FOR  y=0  TO  7 
READ  Allemuster%(x,y) 

NEXT  y 
NEXT  x 

DATA  24672,1542,24672,1542,24672,1542,24672,1542 
DATA  -13108,13107,-13108,13107,-13108,13107,-13108,13107 
DATA  26214,13107,-26215,-13108,26214,13107,-26215,-13108 
DATA  •13108,-26215,13107,26214,-13108,-26215,13107,26214 
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DATA  -258, -258, -258,0, -4113, -4113, -4113,0 

DATA  -8185,-8197,-18019,-20491,-20467,-8197,-8185,-1 

DATA  0,0,1632,4080,4080,2016,384,0 

DATA  960,1984,3520,6592,16320,25024,-3104,0 

SCREEN  1,320, 200, Farben,1 

WINDOW  2 ."AmigaBASIC  Zeichenprogramm",,16,1 

WINDOW  CLOSE  3 

WINDOW  CLOSE  4 

WINDOW  2 


Das  Programm  beginnt  mit  einem  Vorbereitungsteil.  Hier  wer- 
den  alle  Variablen  auf  ihre  Grundwerte  gesetzt,  die  Datenfelder 
mit  ihrer  Ausgangsbelegung  versehen  und  Screen  und  Window 
fur  die  Bildschirmausgabe  angelegt. 

In  der  Variablen  'Farben'  legen  Sie  wie  immer  die  Anzahl  der 
verwendeten  Bit-Ebenen  fest.  Diesmal  stehen  die  Zahlen  3  (8 
Farben),  4  (16  Farben)  oder  5  (32  Farben)  zur  Auswahl.  Im 
Normalfall  werden  Sie  mit  32  Farben  arbeiten,  denn  unser  Pro- 
gramm arbeitet  im  niedrigauflosenden  Modus.  Auf  einem  Amiga 
mit  mindestens  512KByte  RAM  durfte  es  mit  dem  Speicherplatz 
also  keine  Probleme  geben. 

Beim  Feld  'Farben%'  failt  Ihnen  sicher  zuerst  die  ungewohnte 
Schreibweise  mit  dem  Prozentzeichen  hinter  dem  Namen  auf. 
AmigaBASIC  bietet  verschiedene  Variablentypen.  Zwei  kennen 
Sie  bisher  schon,  namlich  die  normalen,  numerischen  Variablen 
(V,  'b',  'c\  'Hallo'...)  und  die  Stringvariablen  ('a$\  'b$\  'c$\ 
'HalloS').  Stringvariablen  werden  durch  ein  $-Zeichen  hinter 
dem  Variablennamen  gekennzeichnet.  Eine  vergleichbare  Funk- 
tion  hat  auch  das  %-Zeichen.  Damit  werden  Integer-Variablen 
gekennzeichnet. 

Sie  kennen  ja  schon  die  BASIC-Funktionen  INT  und  CINT.  Da- 
her  wissen  Sie,  daB  Integer-Zahlen  immer  ganze  Zahlen  sind, 
also  keinen  Nachkommateil  haben.  Es  gibt  die  M6glichkeit,  Va- 
riablen oder  Felder  von  vornherein  als  Integer-Zahlen  zu  dekla- 
rieren.   Diese   Zahlen  kdnnen  nie  einen  Nachkommateil   haben 
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und  benotigen  daher  auch  weniger  Platz  im  Speicher.  Der  Grund 
dafur  ist  die  Art,  wie  Zahlen  vom  Amiga  intern  verwaltet  wer- 
den.  Aus  denselben  Griinden  k6nnen  Integer-Zahlen  nur  Werte 
zwischen  -32768  und  32767  annehmen.  Im  Zwischenspiel  4  wer- 
den  wir  darauf  genauer  eingehen.  Und  im  nSchsten  Teil  dieses 
Buches  werden  wir  noch  verschiedene  andere  Variablentypen 
kennenlernen.  Probieren  Sie  im  BASIC-Window: 

a=7/3  :  a%=7/3  :  ?  a,a% 

Sie  sehen,  daB  die  Variable  *a%'  keine  Stellen  hinter  dem 
Komma  annimmt.  Da  im  Malprogramm  verschiedene  Daten,  wie 
Farben  und  Muster,  nur  ganze  Zahlen  sein  kflnnen,  verwenden 
wir  dafur  Integer-Felder.  Das  Feld  Tarben%'  hat  die  Dimensio- 
nen  (31,2),  kann  also  32  *  3  Elemente  aufnehmen.  (Erinnern  Sie 
sich  noch  an  mehrdimensionale  Felder?  Stellen  Sie  sich  solche 
Felder  am  besten  als  Tabelle  vor,  in  der  in  an  einer  bestimmten 
Position  immer  eine  bestimmte  Zahl  steht.)  Wir  kflnnen  im  Pro- 
gramm  bis  zu  32  verschiedene  Farben  verwenden,  wobei  pro 
Farbe  drei  Werte  zu  merken  sind  (R,  G  und  B). 

Im  Vorbereitungsteil  definieren  wir  unter  anderem  auch  Fiill- 
muster.  Sie  kflnnen  in  AmigaBASIC  Muster  angeben,  mit  denen 
FlSchen  ausgefullt  werden.  Wie  das  genau  geht,  zeigen  wir  im 
nachsten  Kapitel.  Bisher  mussen  Sie  zu  diesem  Thema  nur  eines 
wissen:  Man  benotigt  dazu  Integerfelder,  in  denen  das  Aussehen 
der  Muster  gespeichert  wird.  Wir  machen  das  in  unserem  Pro- 
gramm  in  den  Feldern  'Muster%\  'Allemusteryo'  und  'Voll%\ 

Im  Feld  *Muster%*  wird  das  Aussehen  des  aktuellen  Musters 
festgelegt,  im  Feld  'Allemusteryo'  befinden  sich  (wie  der  Name 
schon  sagt)  alle  Muster.  Unser  Malprogramm  bietet  nSmlich  die 
M6glichkeit,  zum  Fallen  von  FlSchen  immer  eines  aus  9  ver- 
schiedenen  Mustern  auszuwahlen.  Die  Definitionen  aller  9  Mu- 
ster stehen  in  *Allemuster%\  Und  in  'Voll%*  ist  ein  ganz  spe- 
zielles  Muster  abgelegt,  das  voile,  einfarbige  Fiachen  produziert. 
Die  brauchen  wir  namlich  auch  von  Zeit  zu  Zeit. 
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Im  Vorbereitungsteil  werden  die  Felder  mit  Grundwerten  ge- 
fullt.  Zu  den  Befehlen,  die  dabei  vorkommen,  zwei  Erkiarungen: 
Da  gibt  es  schon  wieder  eine  spezielle  Schreibweise  fur  Zahlen. 
Was  hat  das  auf  den  ersten  Blick  kurios  aussehende  &HFFFF  zu 
bedeuten?  Nun,  dabei  handelt  es  sich  urn  eine  Hexadezimal- 
Zahl.  Das  ist  eine  fur  Programmierer  besonders  geeignete 
Schreibweise  fur  Zahlen.  Alles  weitere  iiber  diese  Zahlen  finden 
Sie  im  Zwischenspiel  4.  Mit  Hexadezimal-Zahlen  kann  Amiga- 
BASIC auch  arbeiten.  Der  Wert  &HFFFF  bewirkt  bei  der 
Musterdefinition,  daB  alle  Punkte  im  Raster  angeschaltet  sind. 
So  entsteht  eine  voile,  gleichf5rmige,  einfarbige  Flache.  Dieses 
voile  Muster  legen  wir  zu  Beginn  des  Programms  ab  in  den  Fel- 
dern  'Voll%'  und  'Muster0/*)'  und  im  ersten  der  neun  Auswahl- 
muster. 

Wir  wollen  Ihnen  gleich  nach  dem  Starten  des  Programms  eine 
Auswahl  an  vorhandenen  Mustern  bieten.  Deshalb  haben  wir  9 
Stuck  fur  Sie  vorbereitet.  Die  notigen  Werte  werden  mit  READ 
und  DATA  eingelesen.  Moment  bitte,  womit? 

Die  Befehle  READ  und  DATA  sind  ein  Gespann,  mit  dessen 
Hilfe  es  mfiglich  ist,  Daten  innerhalb  eines  Programms  abzu- 
legen,  dann  einzulesen  und  zu  verwenden.  (Deshalb  auch  READ 
=  lesen  und  DATA  -  Daten).  Mit  Daten  meinen  wir  zum  Bei- 
spiel  Zahlen  oder  Worte,  aber  auch  jede  beliebige  Mischform 
aus  Zahlen,  Zeichen  und  Buchstaben.  Die  Daten  stehen  in  einer 
Programmzeile,  die  mit  dem  Befehl  DATA  beginnt.  Dahinter 
stehen,  durch  Kommas  getrennt,  die  einzelnen  Werte.  Mit  dem 
READ-Befehl  lesen  Sie  diese  Daten  in  Variablen  ein.  Das 
READ/DATA-Gespann  ist  nur  innerhalb  eines  Programms  sinn- 
voll.  Daher  kdnnen  wir  Ihnen  kein  Beispiel  im  Direktmodus  zei- 
gen.  Die  folgenden  funf  Zeilen  gehoren  nicht  zum  Mal- 
programm.  Wenn  Sie  das  Beispiel  ausprobieren  wollen,  vergessen 
Sie  bitte  auf  keinen  Fall,  vorher  Ihr  Malprogramm  abzu- 
speichern! 

read  a$,b$,c$,d 

PRINT  "Ich  habe  mir  einen  ";a$;"  gekauft." 

PRINT  "Das  ist  ein  toller  ";b$;",  der  mir  viel  ";c$;"  macht." 
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PRINT  "Mit  ihm  kann  man  '^d;1'  Dinge  machen." 
DATA  Amiga, Computer, Spass, 1000 


Sehen  Sie,  wie's  funktioniert?  Den  verschiedenen  Variablen 
hinter  READ  wird  immer  der  nachste,  noch  nicht  gelesene  Wert 
aus  der  aktuellen  DATA-Zeile  zugewiesen.  In  einem  Programm 
fangt  das  Lesen  mit  READ  immer  in  der  ersten  DATA-Zeile 
an,  egal  wo  sie  steht.  Dann  kommt  ein  Wert  nach  dem  anderen 
an  die  Reihe.  Sie  miissen  darauf  achten,  daB  die  DAT  As  und  die 
Variablentypen  zusammenpassen.  Wenn  der  nachste  DATA-Wert 
Buchstaben  enthait  und  Sie  ihn  z.B.  in  eine  Zahlenvariable  ein- 
lesen  wollen,  erhalten  Sie  einen  "Type  mismatclT-Error  ("Da- 
tentyp  durcheinander  gebracht").  Wenn  alle  DATAs  gelesen  sind 
und  wieder  ein  READ-Befehl  im  Programm  ausgefuhrt  werden 
soil,  meldet  AmigaBASIC  einen  "Out  of  DATA"-Error. 

Der  erste  Block  von  DATA-Befehlen  im  Programm  hat  das 
Aussehen  der  neun  Grund-Muster  gespeichert.  Diese  Werte  wer- 
den ins  Feld  *Allemuster%'  eingelesen.  Dann  definieren  wir  den 
Ausgabe-Screen  und  das  Ausgabe-Window. 

Wie  wir  schon  einmal  erwahnt  haben,  lauft  unser  Malprogramm 
in  der  niedrigsten  Auflflsungsstufe  (320  *  200  Punkte).  Das  hat 
verschiedene  Grunde.  Der  Hauptgrund:  Wir  wollen  spater  ja 
fertige  Bilder  bearbeiten,  die  z.B.  mit  dem  Programm  Gra- 
phicraft  erzeugt  wurden.  Fast  alle  professionellen  Malprogramme 
verwenden  die  niedrige  Auflosung.  Sie  reicht  v611ig  aus,  urn 
uberzeugende  Bilder  darzustellen,  und  sie  ermdglicht  32  ver- 
schiedene Farben.  Wer  einige  Beispielbilder  auf  dem  Amiga  ge- 
sehen  hat,  kann  bestatigen:  Die  Vielfalt  an  Farbtonen  macht  die 
relativ  grobe  Aufldsung  wett. 

Vielleicht  fragen  Sie  sich,  warum  wir  fur  die  Bildschirm- 
darstellungen  in  unseren  Beispielprogrammen  den  PAL-Bereich 
des  Bildschirms  nicht  nutzen.  Auch  hier  ist  der  Grund,  daO  wir 
zu  den  ublichen  Grafikprogrammen  wie  Graficraft  oder  DPaint 
kompatibel  bleiben  wollen.  Und  alle  guten  Grafikprogramme 
kommen  zur  Zeit  nun  mal  aus  Amerika  und  nutzen  deshalb  den 
PAL-Bereich  nicht. 
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Die  n&chsten  beiden  Programmzeilen  lassen  die  Windows  3  und  4 
verschwinden,  falls  sie  sich  schon  auf  dem  Bildschirm  befinden 
(was  passieren  kdnnte,  wenn  das  Programm  abgebrochen  und 
neu  gestartet  wird). 

Geben  Sie  jetzt  bitte  den  nachsten  Teil  des  Malprogramms  ein: 

for  x=o  TO  31 

READ  r,g,b 

PALETTE  x,r/16,g/16,b/16 

Farben%<x,0)=r  :  Farben%(x,1)=g  :   Farben%<x,2)=b 
NEXT  x 

DATA  0,0,3,  15,15,15,  0,3,12,  15,0,0 

DATA  0,14,15,  15,0,15  ,3,10,1,  15,14,0 

DATA  15,8,0,  10,0,14,  8,5,0,  11,8,3 

DATA  2,11,0,  15,10,15,  0,0,9,  7,15,0 

DATA  14,12,0,  15,2,3,  0,0,0,  15,11,10 

DATA  0,6,8,  3,3,3,  4,4,4,  5,5,5 

DATA  6,6,6,  7,7,7,  8,8,8,  9,9,9 

DATA  11,11,11,  13,13,13,  0,0,15,  12,15,12 

Das  Feld  Tarben%'  wird  in  diesem  Teil  mit  seinen  Grundwerten 
geladen.  Im  Lauf  des  Programms  stehen  in  Tarben%'  die  R-, 
G-  und  B-Anteile  der  verwendeten  Farben  als  Zahlen  zwischen 
0  und  15.  Am  Anfang  tritt  aber  ein  Problem  auf:  Sie  wissen 
vielleicht  noch  vom  Videotitel-Programm,  daB  es  keinen  BASIC- 
Befehl  gibt,  um  die  aktuellen  Werte  der  Farbregister  auszulesen. 
Sie  konnen  zwar  mit  PALETTE  geSndert  werden,  aber  wir  ken- 
nen  keine  M6glichkeit,  die  aktuellen  Werte  von  BASIC  aus 
festzustellen. 

Wenn  die  Farben  im  Programm  zum  ersten  Mai  ge&ndert  werden 
sollen,  wiirde  ihre  Grundeinstellung  zunachst  auf  Schwarz  fallen 
(R=0,  G=0,  B=0).  Das  ergabe  auf  dem  Bildschirm  einen  so 
trostlosen  Eindruck,  daB  wir  Ihnen  so  etwas  nicht  zumuten 
konnten.  Fruher  oder  sp&ter  wurde  ja  auch  der  Nacht-und-Ne- 
bel-Effekt  eintreten,  denn  schwarze  Zeichnungen  auf  schwarzem 
Grund  sind  nun  mal  extrem  schwer  zu  erkennen. 
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Wir  haben  deshalb  die  RGB-Werte  von  32  Farben  in  DATA- 
Zeilen  abgelegt,  die  zu  Beginn  in  das  Feld  'Farben%'  eingelesen 
werden  und  dort  solange  bleiben,  bis  sie  vom  Programm  geSn- 
dert  werden. 

Pulldown: 

MENU  3,0,0,"" 
MENU  4,0,0,"" 
MENU  1,0,1, "Programm" 
MENU  1,1,1,"Zeichnen" 
MENU  1,2,1, "Farben  andern" 
MENU  1,3,1,"Muster  andern" 
MENU  1,4,1,"Bild  laden" 
MENU  1,5,1,"Bild  speichern" 
MENU  1,6,1,»Bild  loschen" 
MENU  1,7,1,"Ende» 
MENU  2,0,1,"Zeichenart» 
MENU  2,1,2,"  Frefhand  dunn" 
MENU  2,2,1,"  Freihand  dick" 
MENU  2,3,1,"  Punkte" 
MENU  2,4,1,"  Spraydose" 
MENU  2,5,1,"  Unien" 
MENU  2,6,1,"  Rechtecke" 
MENU  2,7,1,"  Blocks" 
MENU  2,8,1,"  Vielecke" 
MENU  2,9,1,"  Kreise" 
MENU  2,10,1,"  Ausmalen" 
MENU  2,11,1,"  Radiergummf" 
MENU  2,12,1,"  Text" 

Was  hier  passiert,  ist  schon  durch  den  standig  auftauchenden 
MENU-Befehl  unubersehbar:  Die  Pulldown-Menus  werden  ein- 
gerichtet.  Zuerst  Idschen  wir  die  Meniis  3  und  4,  denn  in  unse- 
rem  Programm  kommen  wir  mit  zwei  Pulldowns  aus.  Im  Menu  1 
liegen  die  Optionen  zur  Programmsteuerung.  Damit  werden  die 
einzelnen  Funktionen  ausgewahlt.  Im  Menu  2  finden  Sie  die 
Werkzeuge,  die  Ihnen  beim  Zeichnen  zur  Verfugung  stehen.  Die 
gerade  aktive  Zeichenart  wird  stSndig  -durch  ein  Hakchen  ge- 
kennzeichnet.  Deshalb  auch  bitte  beim  Eintippen  vor  den  einzel- 
nen Meniipunkten  zwei  Stellen  freilassen. 


222  AmigaBASIC 


Schon  sind  alle  nOtigen  Vorbereitungen  durchgefuhrt.  Nun 
schliefit  sich  nahtlos  der  eigentliche  Kern  des  Programms  an,  die 
'Hauptschleife:'. 

Hauptschleife: 
ON  MENU  GOSUB  Menuauswahl 
ON  HOUSE  GOSUB  Maus 
MENU  ON 
MOUSE  ON 

WHILE  -1 

WEND 

Das  Event  Trapping  fur  Menus  und  Maussteuerung  wird  akti- 
viert  und  mit  zustandigen  Unterprogrammen  versehen.  Dahinter 
sehen  Sie  eine  WHILE.. .WEND-Schleife.  Auch  wenn  Sie's  nicht 
glauben:  Es  fehlt  nichts,  es  handelt  sich  auch  nicht  urn  einen 
Druckfehler.  Die  Zahl  -1  hinter  WHILE  stellt  fur  AmigaBASIC 
eine  logisch  "wahre",  d.h.  zutreffende  Bedingung  dar.  Wir  wer- 
den  iiber  dieses  Thema  noch  genauer  im  nachsten  Zwischenspiel 
sprechen.  Jedenfalls  bewirken  die  beiden  Zeilen  eine  leere  End- 
losschleife. 

Solange  der  Anwender  die  Maus  nicht  benutzt  (also  weder  ein 
Menii  anwahlt,  noch  die  Maus  bewegt  oder  mit  einer  Maustaste 
klickt),  l&uft  das  Programm  nur  in  dieser  Schleife.  Samtliche 
Funktionen  unseres  Malprogramms  werden  durch  Event  Trap- 
ping gesteuert.  Falls  Sie  schon  einmal  auf  einem  anderen  Com- 
puter programmiert  haben,  wird  Ihnen  diese  Methode  ziemlich 
ungewrjhnlich  vorkommen,  doch  sie  erm6glicht  sehr  flexible  und 
leistungsfahige  Programme.  Naturlich  lassen  sich  Event  Trapping 
und  "normale"  Programmierung  auch  miteinander  verbinden.  Wie 
Sie  ein  Programm  anlegen,  hangt  von  der  Aufgabenstellung  ab. 

Im  AnschluB  an  das  Hauptprogramm  folgen  die  Programmteile, 
die  fiir  die  Meniisteuerung  gebraucht  werden: 
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Menuauswah I : 
Men=HENU(0) 
Menpunkt=MENU(1) 
ON  Men  GOTO  Projekt,   Zeichenart 

Maus: 

IF  Modus=1  THEN  ON  Zart  GOSUB  DueFreihand,DiFreihand,Punkte,Spraydose, 

Limen,Rechtecke, Block,  Flaechen,Kreis,Fuellen,Radiergurmn", Text 

IF  Modus=2  THEN  GOSUB  Farbeinstellung  :  IF  EndOK=1  THEN  GOSUB  Farbaus 

IF  Modus=3  THEN  GOSUB  Musterdef  :  IF  EndOK=2  THEN  GOSUB  Musteraus 

IF  Modus=4  THEN  GOSUB  RGBDef  :  IF  EndOK=3  THEN  Modus=2  :  GOSUB  Farbaus 

wah  I 

RETURN 

Projekt: 

IF  Menpunkt=1  THEN  GOSUB  Farbaus  :  GOSUB  Musteraus 

IF  Menpunkt=2  THEN  GOSUB  Musteraus  :  MENU  2,0,0  :  Modus=2  :  GOSUB  Farb 
auswah I 

IF  Menpunkt=3  THEN  GOSUB  Farbaus  :  MENU  2,0,0  :  Modus=3  :  GOSUB  Muster 
editor 

IF  Menpunkt=6  AND  Modus=1  THEN  OK=0  :  GOSUB  Abfrage  :  IF  OK=1  THEN  Ade 
f=0  :  AREAFIU  :  CLS 

IF  Menpunkt=7  THEN  GOSUB  Farbaus  :  GOSUB  Musteraus  :  OK=0  :  GOSUB  Abfr 
age  :  IF  OK=1  THEN  Ende 
RETURN 

Zeichenart: 

MENU  2, Zart, 1 

Zart  =  MENU  (1) 

MENU  2,Zart,2 
RETURN 


'Menuauswahl:'  fragt  die  angewahlte  Menu-Option  ab.  In  der 
Variablen  'Men'  steht  das  Menu  und  in  'Menpunkt'  steht  -  na 
was  wohl  -  der  MenUpunkt  eben.  Je  nachdem,  welches  Menu 
gewahlt  wurde,  wird  Trojekt:'  oder  'Zeichenart:'  angesprungen. 
Hier  gibt  es  eine  neue  Variante  des  GOTO-Befehls  kennenzu- 
lernen. 
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ON. ..GOTO  verzweigt  zu  einem  betimmten  Label  bzw.  einer 
Zeilennummer,  abhangig  vom  Wert  einer  Variablen.  GSnnen  wir 
uns  ein  kulinarisches  Beispiel,  wo  es  ja  im  weiteren  Sinne  auch 
um  ein  Menu  geht.  Die  folgende  Zeile  tippen  Sie  bitte  nicht  ab, 
sie  geh6rt  nicht  zum  Malprogramm: 

ON  x  GOTO  Aperitif, Vorspeise,Suppe,Hauptgen*cht#Kase#Nachspeise 

Hat  x  den  Wert  1,  springt  AmigaBASIC  zum  Label  Aperitif.  Bei 
x=2  wird  Vorspeise  aufgerufen.  Bei  x=3  ist  die  Suppe  dran.  Die 
Bedingung  x=4  fiihrt  zum  Hauptgericht,  x=5  schlieBt  den  Magen 
mittels  Kase  und  x=6  serviert  die  Nachspeise. 

Ist  x  kleiner  als  1  oder  grSBer  als  6,  wird  der  ON...GOTO-Be- 
fehl  uberhaupt  nicht  ausgefuhrt  und  das  Programm  macht  bei 
der  n&chsten  Zeile  weiter.  Wer  sich  nicht  im  ublichen  Rahmen 
bewegen  kann,  bekommt  eben  gar  nichts  zu  essen.  Wenn  Sie 
jetzt  Hunger  bekommen  haben  sollten,  beschweren  Sie  sich  nicht 
bei  uns:  Wir  haben  extra  gesagt,  Sie  sollten  noch  was  zum  Knab- 
bern  mitnehmen... 

Am  Anfang  des  Programmteils  'Maus:'  finden  Sie  eine 
ON...GOSUB-Zeile,  die  auch  nicht  gerade  klein  und  bescheiden 
ist.  ON...GOSUB  funktioniert  iibrigens  genauso  wie  ON...GOTO. 
Nur  kehrt  das  Programm  beim  nachsten  RETURN  an  die  Stelle 
zuriick,  wo  der  GOSUB-Aufruf  steht.  Aber  immer  schfln  der 
Reihe  nach:  'Maus:'  ist  fur  die  Kontrolle  und  Auswertung  der 
Maus  zustandig.  Wenn  der  Benutzer  des  Programms  mit  der  lin- 
ken  Maustaste  klickt,  springt  AmigaBASIC  zunSchst  zu  diesem 
Label.  Das  Klicken  mit  der  Maus  kann  ja  sehr  unterschiedliche 
Absichten  bekunden. 

Was  der  Anwender  mit  dem  Mausklick  bezweckt,  hangt  davon 
ab,  in  welchem  Modus  sich  das  Programm  gerade  befindet.  Um 
das  festzustellen,  gibt  es  die  Variable  'Modus'.  Die  verschie- 
denen  Unterprogramme  versorgen  sie  mit  dem  richtigen  Wert. 
Hat  'Modus'  den  Wert  1,  wird  gerade  gezeichnet.  Dieser  Modus 
wird  im  Programm  durch  die  erste  Option  des  ersten  Pulldowns 
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gewahlt.  Die  Variable  'Zart'  hat  nichts  mit  zart  oder  zartbitter  zu 
tun.  Warum  denken  wir  eigentlich  st&ndig  ans  Essen?  Wird  Zeit, 
daB  wir  mal  wieder  zum  Luigi  gehen... 

'Zart'  ist  eine  Abkurzung  fur  "Zeichenart".  Durch  das  Auswahlen 
einer  Option  aus  dem  zweiten  Pulldown  legt  der  Anwender  eine 
Zeichenart  fest.  Fur  jede  Zeichenart  gibt  es  ein  eigenes  Unter- 
programm, das  angesprungen  wird,  sobald  die  linke  Maustaste 
betatigt  wird.  Was  dann  weiter  passiert,  ist  Sache  des  aufge- 
rufenen  Unterprogramms. 

Hat  'Modus'  den  Wert  2,  ist  zur  Zeit  der  Programmteil  aktiv,  in 
dem  die  Farben  ftir  Zeichnen  und  Ausmalen  ausgewahlt  werden 
kflnnen.  In  diesem  Fall  wird  die  Kontrolle  dem  Unterprogramm 
'Farbeinstellung:'  ubergeben.  Urn  dem  aufrufenden  Programmteil 
mitzuteilen,  ob  die  Farbeinstellung  beendet  ist  (der  Anwender 
erreicht  das  durch  Klicken  in  ein  OK-Feld),  gibt  es  die  Variable 
'EndOK'.  Ist  'EndOKM,  fuhrt  AmigaBASIC  den  Programmteil 
'Farbaus:'  aus. 

Beim  Modus  3  passiert  im  Prinzip  dasselbe  wie  bei  Modus  2,  nur 
geht  es  diesmal  urn  den  Teil,  der  fur  die  Definition  der  Full- 
muster  zustandig  ist.  Das  Unterprogramm  'Musterdef:'  wird  auf- 
gerufen.  Soil  die  Musterdefinition  beendet  werden,  muG 
'EndOK'=2  sein. 

Modus  4  unterscheidet  sich  auch  nicht  weiter  von  seinen  drei 
Artgenossen.  Hierbei  dreht  es  sich  urn  eine  besondere  Funktion 
des  Farb-Unterprogramms.  Es  wird  keine  Farbe  ausgewahlt, 
sondern  mit  Schiebereglern  der  R-,  G-  und  B-Anteil  einer 
Farbe  festlegt.  Das  zustandige  Unterprogramm  heiBt  'RGBDef:'. 
Damit  die  Farbdefinition  (Festlegen  der  Farben  mit  RGB-Reg- 
lern)  von  der  Farbauswahl  (Aussuchen  der  Farben,  die  zum 
Zeichnen  und  Ausmalen  benutzt  werden)  unterschieden  werden 
kann,  gibt  es  dafiir  einen  eigenen  Modus.  Wenn  dieser  Modus 
durch  'EndOK'=3  beendet  wurde,  kehrt  das  Programm  zunSchst 
zum  Modus  2  zuruck,  also  zur  Farbauswahl. 
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Weil  'Maus:'  ein  Unterprogramm  ist,  muB  es  mit  einem  RE- 
TURN-Befehl  beendet  werden,  der  zum  aufrufenden  Pro- 
grammteil  zuriickspringt. 

Der  nachste  Programmteil  namens  Trojekt:'  kummert  sich  um 
die  Funktionen  des  ersten  Pulldowns.  Die  Variable  'Menpunkt* 
enthait  den  Meniipunkt,  der  von  'Menuauswahl:'  festgestellt 
wurde.  Abhangig  vom  Wert  'Menpunkt'  werden  jetzt  die  Pro- 
gramme aufgerufen,  die  die  verschiedenen  Funktionen  aus- 
fiihren. 

Menupunkt  1  wird  dazu  verwendet,  aus  dem  Farb-  oder  dem 
Muster-Unterprogramm  zum  Zeichenmodus  zuriickzukehren. 
Am  Anfang  des  Programms  ist  der  Zeichenmodus  automatisch 
aktiv  (in  den  Vorbereitungen  heiBt  es  ja  nicht  umsonst  'Mo- 
dus'-1),  er  muB  nicht  extra  gewahlt  werden.  Also  braucht  das 
Programm  beim  ersten  Menupunkt  nur  die  Teile  aufzurufen,  die 
das  Farb-  und  das  Muster-Unterprogramm  beenden,  namlich 
'Farbaus:'  und  'Musteraus:' 

Menupunkt  2  ruft  das  Farbauswahl-Unterprogramm  auf.  Fur 
den  Fall,  daB  das  Musterdefinitions-Programm  schon  lauft,  wird 
es  zuerst  durch  GOSUB  Musteraus  abgeschaltet.  Das  zweite  Pull- 
down, das  die  Zeichenarten  anbietet,  soil  gesperrt  werden,  wah- 
rend  das  Farb-Programm  lauft.  Also:  MENU  2,0,0.  Die  Variable 
'Modus1  erhait  den  Wert  2,  dann  wird  das  Label  Tarbauswahl:' 
angesprungen. 

Der  dritte  Menupunkt  dient  zum  Aktivieren  des  Muster-Editors. 
In  diesem  Unterprogramm  ist  es  moglich,  Fullmuster  zu  defi- 
nieren.  Zuerst  wird  das  eventuell  noch  aktive  Farb-Programm 
abgeschaltet,  wieder  die  Zeichenarten- Auswahl  gesperrt  und 
'Modus*  auf  3  gesetzt.  Nach  diesen  Vorbereitungen  geht's  weiter 
mit  *Mustereditor:\ 

Die  Meniipunkte  4  und  5  sind  zur  Zeit  noch  nicht  verfugbar. 
Hier  werden  Sie  Bilder  auf  Diskette  abspeichern  und  wieder 
einlesen  k&nnen.  Diese  Features  wollen  wir  aber  erst  im  nachsten 
Teil  des  Buches  hinzufiigen,  da  Sie  dort  auch  Naheres  uber  die 
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Arbeit  mit  Peripherieger&ten  und  Datei-Verwaltung  erfahren 
werden.  Bis  dahin  sollten  Sie  sich  auch  groBere,  wertvolle 
Kunstwerke  verkneifen. 

Meniipunkt  6  ist  nur  im  Modus  1  erlaubt.  Damit  wird  das  aktu- 
elle  Bild  gel6scht.  Der  Programmteil  'Abfrage:'  bringt  vorher  ein 
Window  auf  den  Bildschirm,  in  dem  Sie  noch  einmal  gefragt 
werden,  ob  Sie  das  aktuelle  Bild  wirklich  verlieren  wollen.  Wenn 
Sie  dieser  Abfrage  Ihr  OK  gegeben  haben,  tritt  das  Loschen  in 
Aktion.  Mit  den  Befehlen  Adef=0  und  AREAFILL  entledigt  sich 
das  Malprogramm  eines  eventuell  in  Entstehung  befindlichen 
Areas.  Das  ist  namlich  die  einzige  Zeichenart,  wo  das  Ergebnis 
nicht  sofort  entsteht,  da  fur  das  Vieleck  in  mehreren  Arbeits- 
gSngen  die  einzelnen  Ecken  definiert  werden.  Dieser  Vorgang 
wiirde  ja  durch  das  Bildschirmloschen  unterbrochen  und  muB 
deshalb  an  dieser  Stelle  beendet  werden.  CLS  loscht  schlieBlich 
den  Bildschirm. 

Der  siebte  und  letzte  Meniipunkt  ermfiglicht  das  Beenden  des 
Malprogramms.  Dazu  werden  zuerst  die  Farb-  und  Muster- 
definition  abgeschaltet,  dann  folgt  wie  beim  Lflschen  eine 
Sicherheitsabfrage.  Gibt  sie  griines  Licht,  springt  das  Programm 
zum  Label  *Ende:\  wo  der  Ausstieg  aus  dem  Malprogramm 
durchgefuhrt  wird. 

Auch  das  'Projekti'-Unterprogramm  endet  mit  RETURN. 

'Zeichenart:'  kummert  sich  urn  das  zweite  Menu.  Hier  werden 
die  Werkzeuge  zum  Zeichnen  ausgewahlt.  Der  alte  Meniipunkt 
verliert  sein  Hakchen,  dann  wird  die  Variable  'Zart1  auf  den 
neuesten  Stand  gebracht  und  schlieBlich  der  neue  Meniipunkt 
mit  einem  Hakchen  versehen.  Das  war  schon  alles. 

Jetzt  folgen  die  Unterprogramme,  die  die  einzelnen  Zeichenarten 
ermOglichen.  Es  geht  los  mit  der  Version  des  Freihandzeichnens, 
die  eine  diinne  Linie  erzeugt: 

DueFreihand: 

Test=MOUSE(0)  :  x=MOUSE(1)  :  y=M0USE(2) 
WHILE  MOUSE(0)<>0 
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LINE  <x,Y)-(M0USE<1),M0USE(2)),Zfarbe 
x=M0USE(1)  :  y=M0USE(2) 
WEND 
RETURN 

Vielleicht  wundern  Sie  sich,  warum  wir  den  Wert  von 
MOUSE(O)  einer  Variablen  Test'  zuweisen,  die  wir  dann  uber- 
haupt  nicht  mehr  benotigen.  Dafiir  gibt  es  trotzdem  einen  guten 
Grund:  Wie  Sie  sich  erinnern,  kann  mit  MOUSE(O)  abgefragt 
werden,  ob  die  linke  Maustaste  gedruckt  ist  oder  gedruckt 
wurde.  MOUSE(l)  liefert  die  x-  und  MOUSE(2)  die  y-Koordi- 
nate  des  Mauszeigers.  Nimmt  man  es  ganz  genau,  und  darauf 
kommt's  in  diesem  Fall  an,  liefert  MOUSE(l)  die  x-Koordinate 
des  Punkts,  wo  die  Maus  beim  letzten  Aufruf  der  Funktion 
MOUSE(O)  stand,  und  MOUSE(2)  die  entsprechende  y-Koordi- 
nate.  Um  einen  moglichst  aktuellen  Punkt  zu  bekommen,  rufen 
wir  also  ganz  kurz  vor  der  Koordinaten-Abfrage  die  Funktion 
MOUSE(O)  auf. 

Die  WHILE. ..WEND-Schleife  verbindet  den  letzten  verwendeten 
Punkt  solange  mit  dem  aktuellen  Standpunkt  des  Mauszeigers, 
wie  die  Maustaste  gedruckt  bleibt.  'Zfarbe'  ist  ubrigens  die 
Zeichenfarbe.  Das  Resultat:  Es  entsteht  ein  durchgezogener 
Strich,  Sie  kflnnen  mit  gedriickter  Maustaste  freihandzeichnen. 
Das  Unterprogramm  fur  das  Freihandzeichnen  mit  einem  dicken 
Strich  unterscheidet  sich  nur  gering: 

DiFreihand: 
Test=MOUSE<0) 
WHILE  MOUSE(0)<>0 

x=MOUSE(1>  :  y=MOUSE(2) 
LINE  <x,y)-(x+5,y+5),Zfarbe,bf 
WEND 
RETURN 

Um  einen  dicken  Strich  zu  erzeugen,  werden  an  der  aktuellen 
Position  des  Mauszeigers  kleine  Blocks  gezeichnet.  Solange  Sie 
die  Maus  langsam  bewegen,  entsteht  ein  dicker  Strich.  Wird  die 
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Bewegung  allerdings  zu  schnell,  haben  die  Kastchen  einen  klei- 
nen  Abstand  voneinander,  eine  Art  gepunktete  Linie  entsteht. 

Apropos  gepunktete  Linie:  Wenn  Sie  so  einen  ahnlichen  Effekt 
absichtlich  verwenden  wollen,  kflnnen  Sie  das  mit  der  nachsten 
Zeichenart: 

Punkte: 

Test=MOUSE<0) 

WHILE  MOUSE(0)<>0 

PSET  <MOUSE(1),MOUSE(2)),Zfarbe 

WEND 
RETURN 

An  der  Position  des  Mauszeigers  wird  ein  Punkt  gezeichnet.  Bei 
sehr  langsamer  Bewegung  der  Maus  entsteht  eine  durchgezogene, 
bei  normaler  und  schneller  Bewegung  eine  gepunktete  Linie. 
Diese  Darstellung  ist  ubrigens  dieselbe,  die  wir  in  unserem  er- 
sten  kleinen  Beispielprogramm  zur  Maussteuerung  (Sie  wissen 
schon:  Die  Super-Mini-Version  des  Malprogramms)  benutzt  ha- 
ben. 

Auch  ein  Spraydosen-Effekt  ist  nicht  schwer  zu  programmieren: 

Spraydose: 
Test=MOUSE(0) 
WHILE  MOUSE(0)<>0 

x=MOUSE(1)+14*RND  :  y=MOUSE(2)+7*RN0 
LINE  (x,y)-(x,y),Zfarbe,bf 
WEND 
RETURN 

Bei  der  Spraydose  sollen  innerhalb  eines  bestimmten  Bereichs 
einzelne,  verstreute  "Farbspritzer"  entstehen.  Deshalb  lassen  wir 
die  Punkt-Koordinaten  durch  Zufallszahlen  berechnen.  Sie  k6n- 
nen  horizontal  bis  zu  14  und  vertikal  bis  zu  7  Punkte  von  der 
Mausposition  abweichen.  Dorthin  setzen  wir  dann  einen  Punkt. 


230  AmigaBASIC 


Aber  halt!  Warum  verwenden  wir  denn  fur  einen  simplen  Punkt 
den  komlizierten  LINE-Befehl  mit  Blockfill-Option?  Es  entsteht 
ja  tatsachlich  nur  ein  einziger  Punkt,  denn  die  linke  obere  und 
die  rechte  untere  Begrenzung  des  Rechtecks  sind  identisch.  Wir 
haben  das  naturlich  mit  Absicht  gemacht.  Diese  Methode  hat 
n&mlich  gegeniiber  PSET  einen  groBen  Vorteil:  Die  Blockfill- 
Option  bewirkt,  da(J  auf  jeden  Fall  das  angegebene  Fullmuster 
verwendet  wird,  egal  wie  groB  das  gezeichnete  Objekt  ist.  Haben 
Sie  also  spater  ein  bestimmtes  Fullmuster  ausgewfchlt  und  halten 
die  Spraydose  langere  Zeit  auf  dieselbe  Stelle,  bildet  sich  das 
Muster.  Damit  lassen  sich  interessante  Effekte  erzielen. 

Da  wir  jetzt  schon  gerade  einmal  bei  LINE  sind,  kommen  gleich 
noch  mehr  Funktionen,  die  diesen  Befehl  benutzen: 

Linien: 

Test=MOUSE(0) 

x1=M0USE<3>  :  y1=MOUSE<4) 

PSET  <x1,y1),Zfarbe 

WHILE  MOUSE(0)<>0 

WEND 

LINE  <x1,y1)-(MOUSE<5>,MOUSE<6>),Zfarbe 

RETURN 

Mit  diesem  Teil  haben  Sie  die  M6glichkeit,  Geraden  zwischen 
zwei  Punkten  zu  zeichnen.  Die  Bedienung  ist  ganz  einfach:  Be- 
wegen  Sie  den  Mauszeiger  an  den  Anfangspunkt,  drucken  Sie 
die  linke  Maustaste  und  schieben  Sie  die  Maus  nun  mit  ge- 
druckter  Maustaste  an  den  Endpunkt.  Dann  lassen  Sie  los.  Schon 
ist  die  Linie  gezeichnet. 

Sie  haben  sicher  die  neuen,  Ihnen  noch  unbekannten  Funktions- 
Argumente  von  MOUSE  entdeckt:  MOUSE(3)  und  MOUSE  (4), 
MOUSE(5)  und  MOUSE(6)  werden  da  verwendet.  Diese  Werte 
funktionieren  so:  Wird  die  Maustaste  gedriickt,  die  Maus  bewegt 
und  dann  die  Maustaste  wieder  losgelassen,  liefert: 

MOUSE(3)     die    x-Koordinate    des    Anfangspunkts    der 
Mausbewegung, 

MOUSE(4)     die  zugehorige  y-Koordinate, 
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MOUSE(5)     die  x-Koordinate  des  Endpunkts  der  Maus- 
bewegung, 

MOUSE(6)     die  zugehttrige  y-Koordinate. 

Um  den  Unterschied  noch  mal  klar  zu  machen:  Mit  MOUSE(l) 
und  MOUSE(2)  erhalten  Sie  einen  bestimmten  Punkt,  eine  Art 
Momentaufnahme  des  Augenblicks,  an  dem  MOUSE(O)  ab- 
gefragt  wurde.  MOUSE(3)  bis  MOUSE(6)  hingegen  geben  Ihnen 
den  Anfangs-  und  Endpunkt  einer  Bewegung  an.  Sie  beginnt  mit 
dem  Drucken  der  Maustaste  und  endet  mit  dem  Loslassen  der 
Taste. 

Der  Anfangspunkt  wird  vom  Programm  als  'xl'  und  'yl'  ge- 
merkt.  Damit  der  Anwender  den  Anfangspunkt  sehen  kann, 
wird  der  Punkt  mit  PSET  auf  den  Bildschirm  gezeichnet.  Die 
leere  WHILE.. ,WEND-Schleife  wartet,  solange  die  Maustaste  ge- 
druckt  ist.  1st  sie  nicht  mehr  gedriickt  (haben  Sie  also  los- 
gelassen),  wird  die  Linie  vom  gespeicherten  Anfangspunkt  zum 
aktuellen  Endpunkt  gezeichnet. 

Die  Funktionen  von  MOUSE(3),  MOUSE(4)  und  MOUSE(5), 
MOUSE(6)  sind  gerade  beim  Zeichnen  von  Linien  und  iiber- 
haupt  alien  Figuren,  fur  die  mehr  als  ein  Punkt  angegeben  wer- 
den  muB,  sehr  nutzlich.  Auch  zum  Zeichnen  von  Rechtecken 
kflnnen  wir  sie  benutzen: 

Rechtecke: 
Test=MOUSE(0) 
x1=MOUSE(3)  :  y1=M0USE(4) 
Zeiger(0,0)=x1  :  Zeiger(0i1)=y1 
Zeiger(1,0)=x1  :  Zeiger(2l1)=y1 
Anzahl=4 
WHILE  MOUSE(0)<>0 

Zeiger(3,0)=M0USE(5) 

Zeiger(3,1)=MOUSE(6) 

Zeiger(1f1)=Zeiger(3,1) 

Zeiger(2tO)=Zeiger(3l0) 

GOSUB  Zeigerpunkte 
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WEND 

LINE  <x1,y1)-<Zeiger(3,0),Zeiger(3,1)),Zfarbe,b 
RETURN 

Der  grSBte  Teil  dieser  Routine  aktualisiert  den  Inhalt  eines 
Datenfelds  namens  'Zeiger\  Erst  ganz  am  SchluB  steht  ein 
LINE-Befehl  mit  Block-Option.  Was  soil  das  schon  wieder? 

Bei  manchen  Funktionen,  wie  dem  Zeichnen  von  Rechtecken, 
ausgemalten  Rechtecken  oder  Kreisen,  kann  der  Anwender  vor 
der  endgultigen  Darstellung  eines  Objekts  dessen  Lage  und 
Gr6Be  festlegen.  Wahrend  dieses  Vorgangs  muB  ihm  angezeigt 
werden,  wie  die  tats&chlichen  AusmaBe  gerade  sind.  Professio- 
nelle  Zeichenprogramme  zeigen  das  entstehende  Objekt,  also 
zum  Beispiel  das  Rechteck,  standig  in  Bewegung.  Das  Rechteck 
wird  gr5Ber  und  kleiner,  erscheint  dabei  immer  auf  dem  Bild- 
schirm,  laBt  den  Hintergrund  aber  unverandert.  Diese  Moglich- 
keit  verwenden  wir  in  unserem  Malprogramm  nicht,  da  Amiga- 
BASIC fur  solche  Funktionen  erstens  zu  wenig  Speicherplatz 
bietet  und  zweitens  in  punkto  Geschwindigkeit  ganz  sch5n  zu 
kampfen  hatte. 

Wir  haben  eine  andere  Losung  gefunden:  Unser  Programm  zeigt 
einfach  nur  die  Eckpunkte  des  Objekts  an.  Diese  Eckpunkte  be- 
finden  sich  im  Feld  'Zeiger',  und  zwar  in  dieser  Reihenfolge: 
'ZeigerCOjO)*  enthalt  die  x-Koordinate  des  ersten  Punktes,  *Zei- 
ger(0,l)'  die  zugeh6rige  y-Koordinate.  In  'Zeiger(l,0)'  steht  der 
x-Wert  des  zweiten  Punktes,  in  'Zeiger(l,l)*  der  zugehdrige  y- 
Wert,  in  (2,0)  der  dritte  x-Wert,  in  (2,1)  der  dritte  y-Wert  usw. 
Die  Variable  'Anzahl'  speichert  die  Anzahl  der  Punkte.  Das  Un- 
terprogramm  'Zeigerpunkte:'  bringt  dann  die  Werte  aus  'Zeiger' 
als  bewegliche  Punkte  auf  den  Bildschirm. 

Urn  ein  Rechteck  zu  zeichnen,  druckt  der  Anwender  die 
Maustaste  und  markiert  damit  einen  Eckpunkt.  Nun  kann  er  mit 
gedriickter  Maustaste  den  anderen,  diagonal  gegenuberliegenden 
Eckpunkt  plazieren,  die  Zeigerpunkte  geben  dabei  standig  die 
anderen  Eckpunkte  des  aktuellen  Rechtecks  an.  Nach  dem  Los- 
lassen  der  Maustaste  wird  das  Rechteck  gezeichnet. 
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Noch  etwas  ist  auffailig:  Innerhalb  der  WHILE.. .WEND-Schleife 
fragen  wir  MOUSE(5)  und  MOUSE(6)  ab,  obwohl  doch  die 
Maustaste  noch  gedriickt  ist,  die  Bewegung  also  noch  gar  nicht 
abgeschlossen  ist.  Wenn  Sie  MOUSE(5)  und  MOUSE(6)  benut- 
zen,  bevor  die  Maustaste  losgelassen  wurde,  erhalten  Sie  den- 
selben  Wert  wie  mit  MOUSE(l)  und  MOUSE(2).  Das  heiBt,  dann 
ist  wieder  der  Zeitpunkt  des  letzten  Aufrufs  der  Funktion 
MOUSE(O)  ausschlaggebend  fur  die  Koordinaten,  die  als  Ergeb- 
nis  geliefert  werden. 

Das  Teilprogramm  fur  das  Zeichnen  von  Blocks  ist  bis  auf  ein 
einziges  Zeichen  vdllig  identisch  mit  dem  Teil  fur  Rechtecke: 
Der  LINE-Befehl  wird  nicht  mit  der  Option  ,b,  sondern  mit  der 
Option  ,bf  (Blockfill)  verwendet.  Am  besten  kopieren  Sie  mit 
"Copy"  und  "Paste"  aus  dem  MEdit"-Pulldown  den  letzten 
Programmteil  unter  das  bisherige  Listing  und  machen  die  not- 
wendigen  Anderungen.  Das  gilt  naturlich  nur  dann,  wenn  Sie 
das  Programm  selbst  abtippen,  statt  die  Version  auf  der  beilie- 
genden  Diskette  zu  nutzen. 

Block: 

Test=MOUSE(0) 

x1=MOUSE<3>  :  y1=MOUSE(4) 

Zeiger(0,0)=x1  :  Zeiger(0,1)=y1 

Zeiger(1,0)=x1  :  Zeiger(2,1)=y1 

Anzahl=4 

WHILE  MOUSE(0)<>0 

Zeiger(3,0)=MOUSE<5) 

Zeiger(3#1)=MOUSE(6) 

Zeiger(1#1)=Zeiger(3/1) 

Zeiger(2/0)=2eiger(3f0) 

GOSUB  Zeigerpunkte 
WEND 

LINE  (x1,y1)-(Zeiger(3,0),Zeiger(3f1))/Zfarbe,bf 
RETURN 

Mit  der  Block-Option  zeichnen  Sie  dieselben  Rechtecke  wie 
vorhin,  aber  diesmal  ausgeffillt.  Zum  Ausfiillen  wird  das  aktuelle 
Fullmuster  verwendet.  Um  ausgefullte  Fiachen  zu  bekommen, 


234 Ami  gaB  ASIC 


kennen  wir  ja  nicht  nur  Blocks,  sondern  auch  den  AREA-Be- 
fehl.  Er  darf  naturlich  in  unserem  Malprogramm  nicht  fehlen. 

Flaechen: 

Test=MOUSE(0) 

x1=M0USE<3>  :  y1=M0USE(4) 

IF  y1>186  THEN  y1=186 

IF  x1>311  THEN  x1=311 

AREA  <x1,y1) 

IF  Adef=0  THEN  Adef=1  :  xa=x1  :  ya=y1 

IF  Adef<>1  AND  x1=xa  AND  y1=ya  THEN  Fertig 

Adef=Adef+1  :  IF  Adef=20  THEN  Fertig 

LINE  (xa,ya)-(x1,y1),Zfarbe 

xa=x1  :  ya=y1 
RETURN 

Fertig: 

Adef=0  :  COLOR  Zfarbe#0  :  AREAFILL 
RETURN 

So  funktioniert  das  Zeichnen  von  Areas:  Nachdem  Sie  den  Punkt 
"Vielecke"  im  Zeichenart-Pulldown  gewahlt  haben,  positionieren 
Sie  den  Mauszeiger  auf  den  ersten  Eckpunkt,  den  das  Vieleck 
haben  soil.  Klicken  Sie  dann  einmal  mit  der  linken  Maustaste 
und  bewegen  Sie  die  Maus  zum  zweiten  Eckpunkt.  Die  bisher 
definierten  Punkte  werden  durch  Linien  miteinander  verbunden, 
so  daB  Sie  bereits  beim  Entstehen  der  Figur  die  spateren  Um- 
risse  verfolgen  k5nnen.  Sie  konnen  das  Ganze  beliebig  oft  wie- 
derholen.  Das  heiBt,  fast  beliebig  oft...  Nach  20  Punkten  wird 
das  Vieleck  automatisch  auf  den  Bildschirm  gebracht,  da  sich 
AmigaBASIC  beim  AREA-Befehl  nicht  mehr  Punkte  merken 
kann.  Und  was  miissen  Sie  tun,  wenn  Sie  das  Vieleck  vor  dem 
zwanzigsten  Punkt  beenden  wollen?  Das  Vieleck  erscheint  sofort 
auf  dem  Bildschirm,  wenn  Sie  zweimal  hintereinander  die  linke 
Maustaste  driicken,  ohne  die  Maus  zwischen  den  beiden  Klicks 
zu  bewegen. 

Der  AREA-Befehl  wiirde  eine  Fehlermeldung  bringen,  wenn  ein 
Punkt  auBerhalb  des  erlaubten  Bereichs  angegeben  wiirde.  Der 
erlaubte  Bereich  ist  in  unserem  Window   186  Punkte  hoch  und 
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311  Punkte  breit.  Die  Werte  werden  vom  Tlaechen:'-Unter- 
programm  automatisch  in  diesen  Bereich  eingeschrankt.  (Die 
beiden  IF-Zeilen  sind  dafur  zustSndig.)  Danach  teilt  das  Pro- 
gramm  die  Punkte  des  aktuellen  Klicks  mit  AREA  dem  Com- 
puter mit.  Die  Variable  'Adef  speichert  die  Anzahl  der  bereits 
definierten  Ecken.  Falls  'Adef  gleich  0  ist,  wird  es  auf  1  ge- 
setzt,  und  AmigaBASIC  speichert  die  Koordinaten,  die  die  Maus 
beim  Aufruf  hatte,  in  den  Variablen  *xa'  (fur  x  alt)  und  'ya'  (fur 
y  alt).  Die  beiden  brauchen  wir,  um  vom  letzten  verwendeten 
Punkt  eine  Linie  zum  neuen  Punkt  zu  ziehen.  Unsere  nachste 
Programmzeile  pruft  ab,  ob  sich  die  x-Koordinate  oder  die  y- 
Koordinate  seit  dem  letzten  Klick  verandert  haben.  Falls  nicht, 
ist  die  Definition  zu  Ende  (Tertig:').  Bei  jeder  Angabe  eines 
Punkts  zShlt  AmigaBASIC  die  Variable  'Adef  hoch.  Hat  'Adef 
den  Wert  20  erreicht,  wird  durch  Aufruf  des  Unterprogramms 
'Fertig:'  ebenfalls  mit  der  Definition  SchluB  gemacht.  Zuletzt 
merken  sich  *xa'  und  'ya'  noch  die  neuen  alten  Werte.  Der  'Fer- 
tig:'-Teil  setzt  'Adef  wieder  auf  0,  stellt  mit  einem  COLOR- 
Befehl  die  verwendete  Zeichenfarbe  fur  den  AREAFILL-Befehl 
ein  und  zeichnet  das  gewunschte  Objekt.  Fertig. 

Auf  zur  nachsten  Runde!  Wir  haben  uns  bisher  mit  alien  mog- 
lichen  Arten  von  eckigen  Gebilden  beschaftigt  -  es  wird  Zeit, 
mal  eine  runde  Sache  anzugehen.  Dieser  Teil  zeichnet  Kreise 
und  Ellipsen: 

Kreis: 
Test=MOUSE(0) 
x1=MOUSE(3)  :  y1=MOUSE(4) 
Zeiger(0,0)=x1  :  Zeiger(0,1)=y1 
Zeiger(1,0)=x1  :  Zeiger(2,1)=y1 
Zeiger(3,0)=x1  :  Zeiger(4,1)=y1 
Anzahl =5 
WHILE  MOUSE(0)<>0 

r1=ABS(x1-M0USE(5)) 

r2=ABS(y1-MOUSE(6)) 

Zeiger(1,1)=y1-r2  :  Zeiger(2f0)=x1+r1 

Zeiger(3,1)=y1+r2  :  Zeiger(4,0)=x1-M 

GOSUB  Zeigerpunkte 
WEND 
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IF  r1=0  THEN  M  =  .1 

IF  M<r2  THEN  Faktor=<r2/r1)  :  r1=r1*Faktor  :  r2=r2*Faktor 
CIRCLE  (x1,y1),r1,Zfarbe#,,(r2/r1) 
RETURN 

Im  Malprogramm  geht  das  Zeichnen  von  Kreisen  bzw.  Ellipsen 
so:  Bewegen  Sie  den  Mauscursor  auf  den  Mittelpunkt  des  ge- 
wunschten  Kreises.  Drucken  Sie  die  rechte  Maustaste  und  halten 
Sie  sie  gedruckt.  Verschieben  Sie  nun  die  Maus.  Der  horizontale 
Abstand  der  Maus  zum  Mittelpunkt  legt  den  x-Radius  der  El- 
lipse fest,  der  vertikale  Abstand  den  y-Radius.  An  den  Stellen, 
die  am  Kreis  (an  der  Ellipse)  am  weitesten  vom  Mittelpunkt 
entfernt  sind,  sehen  Sie  vier  Zeigerpunkte.  Der  funfte  Zeiger- 
punkt  zeigt  den  Mittelpunkt  an.  Die  Lage  der  einzelnen  Punkte 
am  Kreis  ist  in  Bild  9  dargestellt. 
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Bild  9: 


Die  Lage  der  Zeigerpunkte  an  einem  Kreis 


Durch  Loslassen  der  Maustaste  wird  der  Kreis  gezeichnet. 


In  'xl'und  'yl'  wird  der  Mittelpunkt  festgelegt.  Wenn  Sie  die 
obige  Abbildung  mit  den  Werten  vergleichen,  die  dem  Feld 
'Zeiger'  zugewiesen  werden,  werden  Sie  sicher  schnell  verstehen, 
wie's  funktioniert:  Jeder  Punkt  hat  entweder  den  x-Wert  oder 
den  y-Wert  seiner  Koordinate  mit  dem  Mittelpunkt  gemeinsam. 
Der  jeweils  andere  Wert  wird  in  der  WHILE. ..WEND-Schleife 
ermittelt.  'rT  ist  der  Absolutwert  (also  Vorzeichen-freie  Wert) 
des  x-Radius,  'r2'  dasselbe  fur  den  y-Radius.  Solange  die 
Maustaste     gedriickt     bleibt,     werden     nur     die     Zeigerpunkte 
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aktualisiert  und  dargestellt.  Falls  der  x-Radius  gleich  0  ist,  soil 
er  auf  0.1  erhoht  werden,  da  in  den  folgenden  Berechnungen 
sonst  ein  "Division  by  ZeroH-Error  entstehen  kOnnte. 

Uns  geht  es  jetzt  noch  urn  das  Verhaitnis  der  beiden  Radius- 
Werte  zueinander.  Das  brauchen  wir  ja,  um  bei  CIRCLE  einen 
Wert  fur  das  x/y-Verhaitnis  angeben  zu  kSnnen.  Normalerweise 
funktioniert  das  Ganze  nur,  wenn  der  x-Radius  groBer  oder 
gleich  dem  y-Radius  ist.  Trifft  diese  Bedingung  nicht  zu 
(IF  rl<r2  ...),  mussen  wir  das  Verhaitnis  der  beiden  Werte  um- 
kehren.  Ist  auch  das  geschehen,  folgt  der  CIRCLE-Befehl,  der 
alle  berechneten  Daten  schlieBlich  in  den  gewiinschten  Kreis 
verwandelt. 

Kommen  wir  nun  zum  Ausmalen  von  umrandeten  F&chen.  Das 
Stichwort  heiBt  PAINT. 

Fuellen: 
Test=MOUSE(0) 
IF  Klick=0  THEN 

Klick=1 

SOUND  440,6,20 

x=M0USE(1)  :  y=MOUSE<2) 

RETURN 
ELSE 

Klick=0 

IF  M0USE(1)=x  AND  M0USE(2)=y  THEN 
PAINT  <x,y),Ffarbe,Zfarbe 

ELSE 

SOUND  440,6,20 

END  IF 
END  IF 
RETURN 

Hier  tummelt  sich  zur  Abwechslung  mal  wieder  ein  biBchen  was 
Neues.  Als  erstes  failt  Ihnen  wahrscheinlich  die  ungew6hnliche 
Struktur  auf,  die  die  drei  Befehle  IF...THEN,  ELSE  und 
END  IF   zusammen   bilden.   Die   Einzelbestandteile   kennen   Sie 
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eigentlich  schon:  IF.. .THEN  ermftglicht  das  Auswerten  von  Be- 
dingungen,  und  ELSE  hinter  IF.. THEN  gibt  an,  was  getan  wer- 
den  soil,  wenn  die  jeweilige  Bedingung  nicht  zutrifft. 

Oft  sollen  abh^ngig  von  einer  Bedingung  mehrere  Befehle  aus- 
gefuhrt werden.  Bisher  muflten  Sie  dazu  alles  in  eine  Zeile 
schreiben.  Solange  es  sich  nicht  um  zuviele  Befehle  handelt,  geht 
das  noch,  weil  Programmzeilen  im  LIST-Window  bis  zu  255 
Zeichen  lang  sein  diirfen.  Aber  sehr  ubersichtlich  ist  es  sicher 
nicht. 

Deshalb  haben  Sie  die  Moglichkeit,  den  IF...THEN...ELSE-Be- 
fehl  zu  entzerren  und  zwischendrin  beliebig  lange  Programmteile 
einzufiigen.  Wichtig  ist  nur,  dafl  in  derselben  Zeile  hinter 
IF.. .THEN  und  hinter  ELSE  kein  Befehl  mehr  kommt.  Denn 
daran  unterscheidet  AmigaBASIC  die  geschachtelte  IF...THEN- 
Struktur  von  der  normalen.  Die  auszufuhrenden  Befehle  begin- 
nen  einfach  eine  Zeile  tiefer.  Der  ganze  Block  wird  durch  den 
Befehl  END  IF  abgeschlossen.  Die  Struktur  sieht  also  so  aus: 

IF  (Bedingung)  THEN 

(Programmtei t,  der  bei 

"Bedingung  trifft  zu" 

ausgefuhrt  wird.) 
ELSE 

(Programmteil,  der  bei 

"Bedingung  trifft  nicht  zu" 

ausgefuhrt  wird.) 
END  IF 

Wie  Sie  im  Programm  sehen,  ist  es  auch  erlaubt, 
IF... THEN/ELSE/END  IF-Strukturen  ineinander  zu  verschach- 
teln.  Wer  dabei  die  Ubersicht  behalten  will,  sollte  aber  beim 
Schreiben  des  Programms  unbedingt  an  die  Einruckungen  den- 
ken. 

Warum  bauen  wir  um  den  eigentlich  einfachen  PAINT-Befehl 
eine  so  komplizierte  Umgebung  auf?  Erinnern  Sie  sich  noch  an 
den  Object  Editor?  Er  ist  ja  auch  eine  Art  Malprogramm,  ge- 
schrieben  in  AmigaBASIC.  Wenn  Sie  beim  Object  Editor  eine 


240 AmigaBASIC 


umrandete  Flache  ausmalen  wollen,  kann  es  Ihnen  schnell  pas- 
sieren,  dafl  Sie  Ihr  ganzes  Bild  zerstdren.  Entweder  Sie  haben  die 
falsche  Begrenzungsfarbe  gewahlt,  oder  Sie  haben  iiberhaupt 
vergessen,  daB  die  PAINT-Funktion  aktiv  ist. 

Nach  dieser  (auch  fur  uns  oft  leidvollen)  Erfahrung  wollten  wir 
unser  Moglichstes  dagegen  tun,  daB  Ihnen  beim  Ausmalen  in 
unserem  Programm  versehentlich  etwas  ahnliches  passiert.  Leider 
kflnnen  wir  das  AmigaBASIC  nicht  verbessern,  aber  wir  hatten 
eine  Idee:  Auf  der  Workbench  dient  ein  Doppelklick  dazu,  eine 
Auswahl  endgultig  zu  machen.  Das  wollten  wir  ubernehmen. 

Wenn  Sie  ausmalen  wollen,  miissen  Sie  also  den  Mauszeiger  in 
die  begrenzte  Flache  bewegen  und  zweimal  klicken.  Zwischen 
den  beiden  Klicks  darf  die  Maus  nicht  verschoben  werden.  Beim 
ersten  Klick  hflren  Sie  einen  Warnton  (zum  SOUND-Befehl 
kommen  wir  an  anderer  Stelle  in  diesem  Buch).  Falls  Sie  ver- 
gessen haben  sollten,  daB  die  Zeichenart  "Ausmalen"  aktiv  ist, 
erinnert  Sie  der  Ton  daran.  Sie  konnen  einfach  eine  andere 
Zeichenart  w&hlen,  und  nichts  ist  passiert.  Nur  wenn  Sie  an 
derselben  Position  ein  zweites  Mai  klicken,  wird  das  Ausmalen 
wirklich  durchgefuhrt. 

Um  festzustellen,  beim  wievielten  Klick  wir  gerade  sind,  be- 
nutzen  wir  die  Variable  'Klick',  deren  Name  eigentlich  schon 
alles  sagt.  Und  so  funktioniert  der  Programmteil:  Beim  ersten 
Aufruf  ist  *Klick*=0.  Der  Anwender  hat  an  der  aktuellen  Maus- 
position  einmal  geklickt.  Nun  wird  'Klick'  auf  1  gesetzt,  der 
Warnton  erklingt,  das  Programm  merkt  sich  die  Koordinaten  des 
Mauszeigers  und  springt  zuriick.  Die  Fiillfarbe  'Ffarbe'  und  die 
Zeichen-  bzw.  Begrenzungfarbe  'Zfarbe'  kftnnen  Sie  im  Farb- 
auswahl-Unterprogramm  festlegen.  Erst  wenn  der  Anwender  ein 
zweites  Mai  geklickt  hat,  wird  die  'Fuellen:'-Routine  wieder 
aufgerufen.  Diesmal  hat  'Klick'  den  Wert  1.  Das  Programm  fiihrt 
also  den  ELSE-Teil  aus:  'Klick'  wird  wieder  0.  Falls  sich  die 
Position  der  Maus  nicht  geSndert  hat  (dazu  vergleichen  wir  ein- 
fach die  aktuellen  Werte  mit  den  in  V  und  'y'  gespeicherten), 
wird  ausgemalt.  Sind  die  Koordinaten  jedoch  nicht  identisch, 
erklingt  ein  zweites  Mai  der  Warnton  und  das  Unterprogramm 
springt  zuriick.  Soil  dann  doch  ausgemalt  werden,  muB  der  An- 
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wender  an  der  neuen  Stelle  zweimal  klicken.  Es  geh6rt  ein  wenig 
Ubung  dazu,  die  Maus  w&hrend  des  Klickes  ganz  ruhig  zu  hal- 
ten,  aber  dieser  kleine  Mangel  an  Komfort  ist  vielleicht  besser, 
als  versehentlich  das  ganze  Bild  zu  ruinieren. 

Falls  Sie  trotzdem  eine  kleine  Bewegung  der  Maus  zulassen  wol- 
len,  andern  Sie  die  zweite  IF...THEN-Zeile  im  Tuellen:'-Unter- 
programm  wie  folgt: 

IF  ABS(x-Mouse(1))<11  AND  ABS(y-M0USE(2))<6  THEM 

Die  Anderung  erlaubt  eine  Abweichung  von  der  alten  Mauspo- 
sition  bis  zu  10  Punkte  horizontal  und  bis  zu  5  Punkte  vertikal. 
Naturlich  steigt  damit  das  Risiko,  doch  einmal  einen  Fehler  zu 
machen. 

Da  wir  jetzt  mit  alien  Mdglichkeiten  vertraut  sind,  etwas  aufs 
Papier  bzw.  auf  den  Bildschirm  zu  bringen,  wollen  wir  noch  et- 
was daftir  tun,  dafi  wir  das  Gemalte  auch  wieder  entfernen 
kdnnen.  Die  Kunst  besteht  ja  schlieBlich  oft  auch  im  Weglassen. 
Dazu  gibt  es  den  Radiergummi: 

Radiergummi: 
Test=MOUSE(0) 
WHILE  MOUSE(0)<>0 

x=MOUSE(1)  :  y=M0USE(2) 
PATTERN  ,Voll% 
LINE  <xfy)-(x+10,y+5),0,bf 
PATTERN  #HusterX 
WEND 
RETURN 

Den  Radiergummi  benfitigen  Sie,  urn  gezeichnete  Stellen  wieder 
vom  Bildschirm  zu  entfernen.  Das  Programm  funktioniert  ganz 
genau  so  wie  der  Teil  zum  dicken  Freihandzeichnen.  Nur  wird 
diesmal  nicht  die  Zeichenfarbe,  sondern  die  Farbe  Nummer  0, 
also  die  Hintergrundfarbe,  verwendet.  Resultat:  Die  Stelle,  an 
der  mit  dem  Radiergummi  gearbeitet  wird,  wird  gelOscht. 
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Aber  ein  unbekannter  Befehl  tritt  doch  noch  auf:  PATTERN. 
"Pattern"  heiBt  auf  Deutsch  "Muster".  Es  geht  also  wieder  einmal 
urn  die  schon  after  erwahnten  Fullmuster.  Die  Erkl&rungen,  wie 
der  PATTERN-Befehl  genau  funktioniert,  wollen  wir  uns  noch 
etwas  aufheben.  Aber  so  viel  sollten  Sie  jetzt  schon  wissen: 
PATTERN  ,Voll%  bewirkt  in  unserem  Programm,  daB  ein 
voiles,  gefulltes  Muster  verwendet  wird.  PATTERN  ,Muster% 
dagegen  aktiviert  das  im  Programmteil  'Mustereditor:'  aus- 
gewahlte  Muster. 

Vor  dem  Befehl,  der  den  Radiergummi  auf  den  Bildschirm 
bringt,  w&hlen  wir  das  voile  Muster,  weil  sonst  nur  mit  dem 
aktuellen  Muster  gelflscht  wiirde.  Ergebnis  ware  eine  Nega- 
tivdarstellung  dieses  Musters,  mehr  nicht.  Wir  wollen  aber,  daB 
wirklich  alles  an  der  betreffenden  Stelle  verschwindet.  Das 
Gegenteil  von  "alles  da"  ('Voll%')  ist  "alles  weg",  deshalb  die  bei- 
den  PATTERN-Befehle.  Es  ist  schon  erstaunlich,  woran  man 
beim  Programmieren  alles  denken  muB.  Aber  keine  Sorge:  Auch 
wir  haben  nicht  alles  von  Anfang  an  so  gemacht.  Hinter  all  die- 
sen  weisen  Ratschftgen  und  Begriindungen  stecken  -zig  Test- 
lSufe  und  mindestens  dreimal  soviele  "Warum  funktioniert  der 
Kram  nicht?!"-Ausrufe. 

Das  nachste  Unterprogramm,  das  mit  den  Zeichenarten  zu  tun 
hat,  heiBt  'Zeigerpunkte:'.  Dieser  Teil  bringt  die  blinkenden 
Zeigerpunkte  auf  den  Bildschirm,  die  von  'Rechtecke:',  'Block:' 
und  'Kreis:'  im  Feld  'Zeiger'  ubergeben  werden. 

Zeigerpunkte: 

FOR  x=0  TO  Anzahl-1 

xz=Zeiger(x,0)  :  yz=Zeiger(x,1) 

IF  xz<0  THEN  xz=0  :Zeiger(xf0)=0 

IF  xz>311  THEN  xz=311  :  Zeiger(x,0)=311 

IF  yz<0  THEN  yz=0  :  Zeiger(x,1)=0 

IF  yz>186  THEN  yz=186  :  Zeiger(x,1)=186 

Altfarbe(x)=POINT(xz,yz) 
NEXT  x 
FOR  x=0  TO  Anzahl-1 
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PSET  (Zeiger(x,0),Zeiger(x,1)),-(Altfarbe(x)=0) 
NEXT  x 
FOR  x=0  TO  Anzahl-1 

PSET  (Zeiger(x,0),Zeiger(x,1)),Altfarbe(x) 
NEXT  x 
RETURN 

Der  ganze  Teil  besteht  aus  drei  FOR...NEXT-SchIeifen.  Die  er- 
ste  errechnet  die  Punkte  und  merkt  sich,  was  dort  vorher  war. 
Die  zweite  Schleife  setzt  die  Punkte,  die  dritte  lflscht  sie  wieder. 
Die  Schleifen  werden  sooft  durchlaufen,  wie  Punkte  vorhanden 
sind.  Da  die  Zahlung  bei  0  beginnt,  hat  der  letzte  Punkt  die 
Nummer  'AnzahP-1.  Die  vier  IF...THEN-Zeilen  in  der  ersten 
Schleife  prufen  ab,  ob  die  Koordinaten  des  aktuellen  Punkts 
auBerhalb  des  erlaubten  Bereichs  liegen.  Falls  der  x-Wert  kleiner 
0  Oder  grflBer  311  oder  falls  der  y-Wert  kleiner  0  oder  groBer 
186  ist,  werden  die  Werte  auf  den  jeweiligen  noch  erlaubten 
Grenzwert  gesetzt. 

Als  nSchstes  merkt  sich  das  Programm  im  Datenfeld  'Altfarbe' 
die  Farbe  des  Punktes,  der  sich  vorher  an  der  Stelle  befand,  wo 
der  Zeigerpunkt  plaziert  werden  soil.  Wenn  Sie  herausfinden 
wollen,  welche  Farbe  ein  bestimmtes  Pixel  hat,  gibt  es  dazu  die' 
BASIC-Funktion  POINT(x,y).  Sie  liefert  die  Farbnummer  des 
angegeben  Punkts,  bzw.  die  Zahl  -1,  wenn  der  Punkt  auBerhalb 
des  erlaubten  Bereichs  liegt. 

Die  einzige  Aufgabe  der  zweiten  Schleife  ist,  den  aktuellen 
Punkt  auf  den  Bildschirm  zu  bringen.  Nur  die  verwendete 
Zeichenfarbe  ist  vielleicht  noch  erkiarenswert:  Sie  wird  berech- 
net  durch  den  Ausdruck  -(Altfarbe(x)=0).  Der  Grund  ist  ganz 
einfach:  Wir  wollen  ja,  daB  sich  die  Zeigerpunkte  auf  jeden  Fall 
deutlich  vom  Hintergrund  abheben.  Hatte  der  Punkt,  der  sich 
vorher  an  der  Stelle  befand,  wo  unser  Zeigerpunkt  erscheinen 
soil,  die  Hintergrundfarbe  (Nummer  0,  in  der  Grundeinstellung 
schwarz),  dann  soil  der  Zeigerpunkt  in  der  Farbe  Nummer  1 
(weiB)  gezeichnet  werden.  Hatte  der  alte  Punkt  irgendeine  an- 
dere  Farbe,  soil  der  Zeigerpunkt  die  Hintergrundfarbe  an- 
nehmen. 
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Jetzt  wissen  Sie  zwar,  was  die  Formel  erreichen  soil,  aber  immer 
noch  nicht,  wie  sie  funktioniert.  Das  ganze  hangt  mit  der  Me- 
thode  zusammen,  wie  AmigaBASIC  logische  Vergleiche  durch- 
fuhrt.  Eine  falsche  Aussage  hat  den  logischen  Wert  0,  eine 
wahre,  zutreffende  Aussage  hat  den  Wert  -1.  Wir  werden  darauf 
im  Zwischenspiel  4  noch  genauer  eingehen.  Sie  ktfnnen's  aber 
gleich  mal  im  BASIC-Window  ausprobieren: 

?  (0=1) 

Frei  nach  Schneewittchen  ubersetzt,  heiBt  das:  HLieber  Amiga, 
sag*  mir,  ist  Null  gleich  Eins?"  Ihr  Amiga  wird  Ihnen  antworten: 
"Nein,  lieber  Besitzer,  Null  ist  nicht  gleich  Eins.H  In  seiner 
Sprache  heiBt  das: 


Wir   finden    allerdings   die    Grimm'sche   Frage-    und    Antwort- 
version  -  mit  Verlaub  -  sympathischer.  Lautet  die  Frage  jedoch 

?  (1=1) 
dann  heiBt  die  Antwort 

-1 

also  "Ja,  lieber  Besitzer,  Eins  ist  gleich  Eins."  Wahre  Aussagen 
haben  den  logischen  Wert  - 1 . 

Die  Formel  -(Altfarbe(x)=0)  liefert  als  Ergebnis: 

0  wenn    'Altfarbe(x)1    nicht    gleich    Null     ist.    Denn 
-(falsche  Aussage)  ist  -0,  also  0. 

1  wenn       'AltfarbeW       gleich       Null       ist.       Denn 
-(wahre  Aussage)  ist  -(-1),  also  1. 

Sie  sehen,  manchmal  steckt  hinter  einer  unscheinbaren  Formel 
eine   ziemlich    komplizierte   Idee.    Albert   Einstein    meinte    zum 
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Beispiel  nun  e  =  mc2.  Was  er  damit  ausdrucken  wollte,  ist  ein 
biBchen  schwieriger  zu  erkl^ren. 

P.S.:  Lieber  Albert.  Naturlich  ist  auch  dieser  Vergleich,  wie  al- 
les,  relativ. 

Die  letzte  FOR...NEXT-Schleife  versorgt  die  Pixels  mit  ihren 
alten  Farben,  die  Zeigerpunkte  verschwinden  wieder  vom  Bild- 
schirm. 

Kommen  wir  jetzt  zum  letzten  Unterprogramm,  das  noch  zu  den 
Zeichenarten  geh6rt.  Von  "Zeichnen"  kann  man  in  diesem  Fall 
eigentlich  gar  nicht  mehr  sprechen,  es  geht  nSmlich  um  Text- 
eingaben: 

Text: 

Test=MOUSE(0) 

x=MOUSE<1)  :  y=MOUSE(2) 

MENU  OFF  :  MOUSE  OFF 

MENU  1,0,0  :  MENU  2,0,0 

WINDOW  5,»Bitte  Text  eingeben:»,<0,177)-<311, 185), 18,1 

CLS 

LINE  INPUT  Text$ 

WINDOW  CLOSE  5 

WINDOW  2 

MENU  1,0,1  :  MENU  2,0,1 

MENU  ON  :  MOUSE  ON 

LOCATE  INT(y/8.17)+1,INT(x/7,94)+1  :  COLOR  Zfarbe,Ffarbe 

PRINT  Text*; 

COLOR  Zfarbe,0 
RETURN 

Fur  Beschriftungen  in  Ihren  Bildern  kflnnen  Sie  diesen  Menu- 
punkt  verwenden.  Klicken  Sie  mit  dem  Mauscursor  an  die  Stelle, 
wo  der  Text  anfangen  soil.  Dann  erscheint  am  unteren  Bild- 
schirmrand  ein  Window.  Sie  kdnnen  dieses  Window  beliebig 
verschieben,  wenn  es  Sie  an  seiner  alten  Position  st6ren  sollte. 
Geben  Sie  den  gewiinschten  Text  ein,  gefolgt  von  <RETURN>. 
Daraufhin  verschwindet  das  Window  wieder,  und  der  Text  er- 
scheint an  der  gewahlten  Stelle  in  Ihrem  Bild. 
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Das  Unterprogramm  Text:'  stellt  zuerst  die  Mauskoordinaten 
fest.  Wahrend  das  Window  zur  Texteingabe  auf  dem  Bildschirm 
steht,  werden  Event  Trapping  und  die  beiden  Pulldowns  ge- 
sperrt.  Den  Text  lesen  wir  mit  LINE  INPUT  ein,  das  heifit,  Sie 
konnen  beliebige  Zeichen  verwenden.  Nach  der  Eingabe  lassen 
wir  das  Window  Nummer  5  wieder  verschwinden  und  aktivieren 
Window  2.  Die  beiden  Pulldowns  und  Event  Trapping  werden 
wieder  zugelassen.  Bevor  der  Text  ins  Bild  geschrieben  werden 
kann,  muB  das  Programm  die  Pixel-Koordinaten  in  Zeilen  und 
Spalten  fur  LOCATE  umrechnen.  Bei  den  Farben  fur  die  Text- 
darstellung  gibt  es  noch  eine  kleine  Besonderheit:  Um  die  Ver- 
wendung  von  Farben  bei  der  Text-Option  etwas  flexibler  zu  ge- 
stagen, verwenden  wir  die  aktuelle  Zeichenfarbe  'Zfarbe'  fur 
den  Text  und  die  Ausmalfarbe  'Ffarbe'  fur  den  Untergrund.  So 
konnen  Sie  farbige  Texte  schreiben,  die  von  farbigen  Balken 
hinterlegt  sind.  Wenn  Sie  keine  Hinterlegung  wiinschen,  wahlen 
Sie  einfach  die  Hintergrundfarbe  (Nummer  0)  als  Ausmalfarbe. 

Bevor  wir  das  Unterprogramm  verlassen,  mussen  wir  mit  CO- 
LOR Zfarbe,0  die  Hintergrundfarbe  wieder  auf  den  Wert  0  set- 
zen.  Sonst  wiirde  z.B.  beim  LSschen  des  Bildschirms  der  ganze 
Schirm  in  der  Ausmalfarbe  gefullt  werden.  Zum  Thema  Zeich- 
nen  haben  wir  alles  erledigt.  Vergessen  Sie  bloB  nicht  das  Ab- 
speichern  zwischendurch... 

Weiter  geht's  mit  dem  Farb-Unterprogramm.  Es  wird  aufge- 
rufen,  wenn  Sie  den  Punkt  "Farben  &ndern"  aus  dem  "Pro- 
grammM-Pulldown  anwShlen.  Das  Farb-Programm  gliedert  sich 
in  zwei  Teile.  Zum  einen  den  Teil,  wo  Sie  die  Farben  zum 
Zeichnen  auswahlen,  und  zum  anderen  den  Teil,  wo  Sie  die 
RGB-Zusammensetzung  der  einzelnen  Farben  verandern.  Wir 
wollen  uns  zunachst  den  ersten  Teil  ansehen: 

Farbauswahl: 
ZFUahl-0  :  EndOK=0 
HOUSE  OFF  :  MENU  OFF 

WINDOW  3,l,Farbmenu»,(4,20)-(245,160)i18,1 
PATTERN  fVoU% 
FOR  x=1  TO  (Maxfarbe+1)/8 
FOR  y=0  TO  7 
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LINE  (y*30,<x-1)*16)-<(y+1)*30,x*16),(x-1)*8+y,bf 
NEXT  y 
NEXT  X 

LINE  <10,72>-(50,95),Zfarbe,b 
LINE  (15,75)-<45,93>,Zfarbe,bf 
LOCATE  13,2  :  COLOR  0,1  :  PRINT  "Zeichn"; 
LINE  <70,72)-(110,95>,Ffarbe,b 
LINE  (75,75)-(105,93),Ffarbe,bf 
LOCATE  13,9  :  COLOR  1,0  :  PRINT  "Ausmal"; 
LINE  <135,72)-<235,95),1,b 
LOCATE  11,21  :  PRINT  "Palette"; 
LINE  <190,109>-<230,132),1,b 
LOCATE  16,26  :  PRINT  "OK"; 
PATTERN  , Muster* 
MOUSE  ON  :  MENU  ON 
RETURN 

Farbeinsteltung: 
Test=MOUSE(0) 
x=MOUSE(3)  :  y=MOUSE(4) 

GOSUB  Farbabfrage 

PATTERN  ,Votl% 

LINE  <10,72)-(50,95>,Zfarbe,b 
LINE  (15,75)-(45,93),Zfarbe,bf 
LINE  (70,72)-(110,95),Ffarbe,b 
LINE  (75,75)-(105,93)fFfarbe,bf 
PATTERN  ,Muster% 

IF  WIN0OW(0)=3  AND  72<y  AND  y<95  THEN 
IF  70<x  AND  x<110  THEN  ZFUahl=1 
IF  10<x  AND  x<50  THEN  ZFWahl=0 
IF  135<x  AND  x<235  THEN 

PATTERN  ,Voll% 

PAINT  (137,74), 3,1 

PATTERN  , Muster* 

GOSUB  PaletteOef 

RETURN 
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END  IF 
END  IF 
GOSUB  OKCheck 

IF  ZFWahl=0  THEN 

LOCATE  13,2  :  COLOR  0,1  :  PRINT  "Zeichn"; 

LOCATE  13,9  :  COLOR  1,0  :  PRINT  "Ausmal"; 
ELSE 

LOCATE  13,2  :  COLOR  1,0  :  PRINT  "Zeichn''; 

LOCATE  13,9  :  COLOR  0,1  :  PRINT  "Ausmal"; 
END  IF 
RETURN 

Farbabfrage: 

IF  WINDOW<0)=3  AND  x<240  AND  y<(2A(Farben+1 ))  THEN 
fx=INT(x/30)  :  fy=INT(y/16) 
IF  ZFWahl=0  THEN 
ZFarbe=fy*8+fx 
ELSE 

Ffarbe=fy*8+fx 
END  IF 
END  IF 
RETURN 

OKCheck: 

IF  x>190  AND  x<230  AND  y> 109  AND  y<132  THEN 
PATTERN  ,Volt% 

PAINT  (192, 111), 3,1  :  EndOK=1 
PATTERN  ,MusterX 
END  IF 
RETURN 


Farbaus: 
MENU  2,0,1  :  Modus=1 
WINDOW  CLOSE  3 
WINDOW  OUTPUT  2 

RETURN 
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Ein  ganz  schdner  Otto,  was?  Wie  iiblich  gehen  wir  ihn  Stuck  fur 
Stuck  durch.  Wenn  Sie  das  Farb-Programm  aufrufen,  erscheint 
zun&chst  ein  neues  Window  auf  dem  Bildschirm,  das  deutlich 
kleiner  ist  als  das  Window,  in  dem  Sie  Ihr  Bild  zeichnen.  Im 
neuen  Window  sehen  Sie  farbige  Felder,  eines  pro  verfugbarer 
Farbe.  Ein  Klick  in  das  gewiinschte  Farbfeld,  schon  haben  Sie 
eine  neue  Zeichenfarbe  ausgewShlt. 


Bild  10: 


Das  "FarbmentT-Window  aus  dem  Malprogramm 


Unterhalb  der  Farbfelder  gibt  es  noch  vier  weitere  Kastchea.  In 
der  ersten  Reihe  sind  zwei  Felder,  die  die  aktuelle  Zeichenfarbe 
und  die  aktuelle  Ausmalfarbe  anzeigen.  Die  Ausmalfarbe  ist  nur 
fur  den  PAINT-Befehl  wichtig,  da  man  fur  ihn  eine  Begren- 
zungsfarbe  und  eine  Fullfarbe  angeben  kann. 

Wenn  Sie  in  eines  dieser  beiden  Felder  klicken,  entscheiden  Sie, 
ob  Sie  die  Zeichenfarbe  oder  die  Ausmalfarbe  verandern  wollen! 
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Die  Schrift  unter  dem  ausgewahlten  Kitchen  ist  hell  hinterlegt. 
Die  K&stchen  selbst  werden  in  der  aktuellen  Farbe  dargestellt. 

Das  Feld  "Palette"  aktiviert  spater  die  Farb-Definition,  zur  Zeit 
ist  dieser  Programmteil  noch  nicht  vorhanden.  Ein  Klick  ins 
HOK"-Feld  beendet  das  Farb-Unterprogramm. 

Und  wie  haben  wir  das  alles  programmiert? 

Das  Unterprogramm  Tarbauswahl:'  baut  das  Window  und  seinen 
Inhalt  auf  und  trifft  die  ndtigen  Vorbereitungen.  Die  Variablen 
'ZFWahF  und  'EndOK'  werden  auf  0  gesetzt.  'ZFWahP  gibt  an, 
ob  die  Zeichenfarbe  CZFWahr=0)  Oder  die  Hintergrundfarbe 
CZFWahl'=l)  geandert  werden  soil.  'EndOK'  teilt  dem  auf ruf en- 
den  Programmteil  mit,  ob  die  Farbauswahl  beendet  ist. 

Wahrend  ein  Window  aufgebaut  wird,  sollte  Event  Trapping 
ausgeschaltet  werden.  Wechselt  namlich  mitten  im  Aufbau  das 
Ausgabe-Window,  wurde  ein  Teil  der  Texte  und  Grafiken  im 
falschen  Window  landen.  Wir  unterbrechen  deshalb  die  Uber- 
wachung  von  MOUSE  und  MENU  mit  den  Befehlen 
MOUSE  OFF  und  MENU  OFF.  Nun  erscheint  das  neue  Window 
auf  dem  Bildschirm.  Es  kann  verschoben  werden,  und  es  merkt 
sich  seinen  Inhalt. 

Fur  das  Zeichnen  der  Farbkastchen  brauchen  wir  wieder  das 
voile  einfarbige  Muster.  Deshalb  der  Befehl  PATTERN  ,Voll%. 
Die  nSchsten  beiden,  ineinander  verschachtelten  FOR...NEXT- 
Schleifen  bringen  die  farbigen  Felder  ins  Window.  Ist  die  Anzahl 
der  mdglichen  Farben  8  (3  Bit-Ebenen),  wird  eine  Reihe  mit  8 
Feldern  gezeichnet.  Bei  16  mSglichen  Farben  (4  Bit-Ebenen) 
entstehen  zwei  Reihen  und  bei  32  Farben  vier  Reihen.  Die  For- 
mel  XMaxfarbe+l)/8'  liefert  bei  3  Bit-Ebenen  als  Ergebnis  die 
Zahl  1,  bei  4  Bit-Ebenen  die  Zahl  2  und  bei  5  Bit-Ebenen  die 
Zahl  4. 

Im  AnschluB  daran  bauen  wir  noch  die  beiden  Kastchen  fiir 
Zeichenfarbe  und  Ausmalfarbe  auf  und  drucken  den  zugeh6ri- 
gen  Text  darunter.  Auch  die  KSstchen  fur  "Palette"  und  "OK" 
entstehen  in  diesem  Unterprogramm.  Vor  dem  Rucksprung  wird 
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das  Fullmuster  zuruck  auf  das  gerade  gewahlte  Muster  geschaltet 
und  Event  Trapping  wieder  aktiviert. 

Solange  der  Modus  2  aktiv  ist,  ist  das  Unterprogramm  Tarbein- 
stellung:'  fur  die  Auswertung  von  Mausklicks  zustandig.  Zu  Be- 
ginn  stellt  dieser  Programmteil  die  Koordinaten  der  Maus  beim 
Aufruf  fest.  Dann  wird  erst  mal  das  Unterprogramm  'Farbab- 
frage:'  aufgerufen.  Es  wertet  aus,  ob  in  eines  der  Farbfelder  ge- 
klickt  wurde.  Wenn  ja,  verwendet  es  die  gewahlte  Farbe,  je  nach 
dem  Wert  von  'ZFWahl\  entweder  als  neue  Zeichen-  oder  als 
neue  Ausmalfarbe.  Wenn  das  Programm  aus  'Farbabfrage;1  zu- 
ruckgekehrt  ist,  zeichnet  'Farbeinstellung:*  die  Kastchen  fur 
Zeichen-  und  Ausmalfarbe  neu,  damit  ein  eventueller  Farb- 
wechsel  sichtbar  wird.  Dazu  verwendet  es  wieder  das  Fullmuster 
aus  dem  Datenfeld  'Voll%\  Immer,  wenn  Kastchen  oder  Fiachen 
auBerhalb  des  Bildes  gezeichnet  werden,  schalten  wir  mit  PAT- 
TERN zuruck  auf  dieses  Voll-Muster,  da  die  Fiachen  sonst  in 
einem  der  Fullmuster  gezeichnet  wurden. 

Vielleicht  verstehen  Sie  bisher  nur  "FQU"  und  "Voir  und  fragen 
sich,  wo  eigentlich  der  Unterschied  liegt:  Es  dauert  nicht  mehr 
lange,  bis  wir  das  Fullmuster-Unterprogramm  besprechen.  Dann 
16sen  sich  all  diese  Probleme  in  kleine  nette  Muster  auf,  die  man 
ohne  Schwierigkeiten  versteht. 

Die  Aufgabe  des  Unterprogramms  'Farbabfrage:'  haben  wir 
schon  erkiart:  Es  uberpruft,  ob  in  eines  der  Farbfelder  geklickt 
wurde.  Wenn  ja,  andert  es  die  Zeichen-  oder  die  Ausmalfarbe. 
In  der  IF-Bedingung  kommt  die  Funktion  WINDOW(O)  vor. 
Ahnlich  wie  bei  MOUSE  k6nnen  auch  verschiedene  Daten  uber 
das  aktuelle  WINDOW  abgefragt  werden.  WINDOW(O)  liefert  die 
Nummer  des  gewahlten  Windows.  Das  ist  das  Window,  das  der 
Anwender  durch  Klicken  aktiviert  hat.  Es  muB  mit  uberpruft 
werden,  da  der  Anwender  ja  auch  in  ein  anderes  Window  als 
unser  Farb-Window  geklickt  haben  kdnnte.  Sie  kennen  ja  das 
nachteraubende  Programmiererprinzip:  Alle  nur  erdenklichen 
Fehler  vor  dem  Anwender  zu  machen... 
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Das  Unterprogramm  soil  nur  ausgefiihrt  werden,  wenn  der 
Punkt,  der  angeklickt  wurde,  sich  innerhalb  des  Windows  Num- 
mer  3  und  innerhalb  des  Bereichs  befindet,  wo  die  Farbfelder 
liegen.  Die  y-Koordinate  vergleichen  wir  mit  der  Formel 
(2A(Farben+l)),  die  von  der  Anzahl  der  zul£ssigen  Farben  ab- 
hangt.  Denn  die  untere  Grenze  bei  nur  einer  Farb-Reihe  unter- 
scheidet  sich  von  der  Grenze,  wenn  zwei  Reihen  oder  vier  Rei- 
hen  gezeigt  werden.  Gibt  es  nur  eine  Reihe,  muG  y  kleiner  16 
sein.  Sind  es  zwei  Reihen,  ist  32  die  Grenze.  Bei  vier  Reihen,  ist 
fUr  y  bei  64  SchluB.  Die  Farbk&stchen  sind  genau  16  Pixels 
hoch.  In  'Farben'  steht  die  Anzahl  der  Bitebenen.  Wenn  Sie  der 
Formel  nicht  trauen,  setzen  Sie  einfach  die  mdglichen  Werte  ein 
(3,4  oder  5)  und  rechnen  Sie  das  Ergebnis  aus.  Sie  sehen,  es 
klappt.  In  der  Variablen  'fx*  berechnen  wir,  das  wievielte 
KSstchen  von  links  angeklickt  wurde.  Und  in  'fy'  steht,  in  wel- 
cher  Reihe  es  liegt.  Aus  den  beiden  Werten  kann  die  Farb- 
nummer  errechnet  werden  (Formel:  'fy*8+fx'). 

Je  nach  dem  Wert  von  'ZFWahl'  wird  die  angeklickte  Farbe  der 
Zeichenfarbe  'Zfarbe'  oder  der  Fullfarbe  'Ffarbe'  zugewiesen. 
Der  Label-Name  'OKCheck:'  laBt  schon  vermuten,  was  der 
n&chste  Teil  macht:  Er  priift,  ob  ins  OK-Feld  geklickt  wurde. 
Wenn  ja,  malen  wir  das  OK-Feld  orange  aus,  setzen  'EndOK' 
auf  1  und  springen  mit  dem  RETURN-Befehl  zuriick.  Das 
Farbprogramm  wird  dann  beendet.  Und  zwar  durch  das  letzte 
Unterprogramm  der  Farbauswahl:  'Farbaus:'.  Hier  wird  die 
Farbauswahl  abgeschaltet.  Das  "Zeichenarf'-Pulldown  darf  wie- 
der  benutzt  werden,  'Modus'  ist  Nummer  1  (Zeichnen).  Das 
Farb-Window  (Nummer  3)  verschwindet  vom  Bildschirm,  und 
Window  2,  in  dem  die  Zeichnung  erscheint,  ist  wieder  Ausgabe- 
Window. 

Wenn  Sie  das  alles  eingegeben  haben,  konnen  Sie  beim  Zeichnen 
und  Ausmalen  schon  aus  8,  16  oder  32  festeingestellten  Farben 
wahlen.  Vielleicht  gefallen  Ihnen  die  Farben  jedoch  nicht,  oder 
Sie  brauchen  fur  Ihr  Landschaftsbild  viele  Grun-T6ne  und  kSn- 
nen  auf  orange,  dunkelblau  und  rosa  dankend  verzichten.  Oder 
Sie  machen  Werbung  fur  die  Bundesbahn  und  brauchen  fur  Ihre 
rosa  Elefanten  nur  einige  Rosatone.  Wie  auch  immer,  mit  dem 
n&chsten  Teil,  den  Sie  mit  dem  K&stchen  "Palette"  im  Farb-Win- 
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dow  aufrufen,  kflnnen  Sie  die  RGB-Werte  aller  verwendeten 
Farben  nach  Ihren  Vorstellungen  andern.  Bitte  fiigen  Sie  den 
folgenden  Teil  im  Listing  zwischen  den  Unterprogrammen 
'Farbeinstellung:'  und  Tarbabfrage:'  ein: 

PaletteOef: 

IF  ZFWahl=0  THEN  Neufarbe=Zfarbe  ELSE  Neufarbe=Ffarbe 

PATTERN  ,Voll% 

LINE  (0,71)-(240,107),0,bf 

COLOR  1,0 

LOCATE  10,3  :  PRINT  "RE- 
LOCATE 11,3  :  PRINT  "G»; 

LOCATE  12,3  :  PRINT  »B»; 

LINE  (24,70)-(218,78),1,b 

LINE  (24,80)-(218,88),1,b 

LINE  (24,90)-(218,98),1,b 

LINE  (222,70)- (238,98), Neufarbe,bf 

Modus=4 

PATTERN  ,Muster% 
RETURN 

RGBDef: 

Test=MOUSE(0) 

x=MOUSE(3)  :  y=MOUSE(4) 

GOSUB  Farbabfrage 

IF  ZFWahl=0  THEN  Neufarbe=Zfarbe  ELSE  Neufarbe=Ffarbe 

GOSUB  RGBRegler 

GOSUB  OKCheck  :  IF  EndOK=1  THEN  EndOK=3 

WHILE  MOUSE(0)<>0 

x=MOUSE(1)  :  y=MOUSE(2) 

IF  UINDOU(0)=3  AND  x>26  AND  x<218  AND  y>70  AND  y<98  THEN 
Farben%(Neufarbe,INT((y-71)/8.7))=INT((x-26)/12) 
GOSUB  RGBRegler 
END  IF 
WEND 
RETURN 

RGBRegler: 

PATTERN  , Vol  IX 

LINE  (25+r*12,71)-(37+r*12,77),0,bf 
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LINE  <25+g*12,81)-<37+g*12f87),0,bf 
LINE  <25+b*12,91)-(37*b*12,97)f0fbf 
r=Farben%(Neufarbe,0) 
g=Farberi%(Neuf arbe, 1 ) 
b=Farben%(Neufarbe,2) 
LINE  <25+r*12,71)-<37+r*12,77),1,bf 
LINE  <25+g*12,81)-<37+g*12,87),1,bf 
LINE  (25+b*12,91)-(37+b*12,97),1,bf 
PALETTE  Neufarbe,r/16,g/16,b/16 
LINE  <222,70)-(238,98),Neufarbe,bf 
PATTERN  ,Muster% 
RETURN 

Das  erste  der  drei  Unterprogramme  ist  wieder  fur  Vorbereitun- 
gen  und  den  Aufbau  der  Szenerie  zust&ndig:  'PaletteDef:'.  Je 
nach  Inhalt  von  'ZFWahl'  merkt  sich  die  Variable  'Neufarbe'  die 
Farbnummer  der  Zeichenfarbe  oder  der  Ausmalfarbe.  Sie  soil 
verSndert  werden,  solange  der  Anwender  keine  andere  Farbe 
auswahlt. 

Die  Schieberegler  fur  Rot,  Griin  und  Blau  erscheinen  im  Farb- 
Window.  Deshalb  mussen  wir  fiir  sie  etwas  Platz  schaffen.  Wir 
verzichten  auf  die  Kastchen  der  Zeichen-  und  Ausmalfarbe  so- 
wie  auf  das  "Palette"-Kastchen.  Die  brauchen  wir  namlich  nicht. 
Um  die  drei  Kastchen  zu  ltfschen,  lassen  wir  den  Amiga  einfach 
einen  Block  in  der  Hintergrundfarbe  (Nummer  0)  zeichnen.  An 
die  gelflschte  Stelle  kommen  dann  die  drei  Schieberegler  und  die 
Buchstaben  R,  G  und  B  als  Beschriftung.  Neben  die  Regler 
zeichnen  wir  noch  ein  Kastchen,  das  immer  die  gerade  gewShlte 
Farbe  haben  wird.  So  erkennen  Sie  gleich,  welche  Farbe  Sie  zur 
Zeit  verandern. 

'Modus*  ist  jetzt  Modus  4.  Bereits  in  der  'Mausi'-Routine  haben 
wir  ja  festgelegt,  daB  Modus  4  dem  Modus  2  untergeordnet  ist. 
Die  Einteilung  in  Modi  benotigt  das  Programm,  um  festzu- 
stellen,  was  der  Anwender  mit  einem  Mausklick  erreichen 
mfichte. 
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Der  Teil  'RGBDef:'  wertet  die  Maus-Aktionen  aus,  solange  das 
Farbdefinitions-Programm  aktiv  ist.  Nachdem  die  Mauskoordi- 
naten  festgestellt  wurden,  checken  wir  mit  dem  Unterprogramm 
'Farbabfrage:'  ab,  ob  in  eines  der  Farbkastchen  geklickt  wurde. 
Damit  k6nnen  Sie  namlich  nachher  auswahlen,  welche  Farbe 
geandert  werden  soil.  Die  neue  Farbe  wird  auch  gleich  der  Va- 
riablen  'Neufarbe*  mitgeteilt. 

Als  nachstes  ist  das  Unterprogramm  'RGBRegler:'  an  der  Reihe. 
Es  wird  je  nach  den  aktuellen  Farbwerten  die  Regler  richtig 
einstellen. 

Urn  zu  prufen,  ob  vielleicht  ins  OK-Feld  geklickt  wurde,  leihen 
wird  uns  einfach  das  Programm  'OKCheck:'  aus,  das  ja  eigent- 
lich  zum  Tarbauswahh'-Teil  gehort.  Soil  tatsachlich  SchluB  sein, 
bekommt  'EndOK'  zunachst  den  Wert  1.  Wir  machen  dann  dar- 
aus  die  Zahl  3,  und  schon  ist  die  Abbruchbedingung  fur  das 
Farbdefinitions-Programm  gegeben.  Wenn  Sie  im  Modus  4  ins 
Feld  OK  klicken,  kehrt  das  Programm  zunachst  eine  Stufe  zu- 
rttck,  das  heiCt  in  den  Modus  2,  die  Farbauswahl.  Nach  noch- 
maligem  Anklicken  von  OK  sind  Sie  dann  wieder  im  Zeichen- 
modus.  Wenn  Ihnen  das  zu  umstandlich  ist,  kOnnen  Sie  auch  di- 
rekt  die  Option  "Zeichnen"  aus  dem  HProgramm"-Menu  wahlen. 
Die  bringt  Sie  sofort  in  den  Zeichenmodus  zuruck. 

Die  WHILE...WEND-Schleife  im  'RBGDef:'-Teil  verschiebt  die 
Regler  nach  Wunsch.  Solange  die  Maustaste  gedruckt  bleibt,  das 
gewahlte  Window  die  Nummer  3  hat  und  sich  der  Mauscursor 
im  Bereich  der  Regler  befindet,  aktualisieren  wir  im  Datenfeld 
'Farben%*  standig  einen  der  Farbanteile  (R,  G  oder  B)  von 
'Neufarbe'.  Welcher  Farbanteil  das  ist,  hangt  von  der  y-Koordi- 
nate  des  Mauscursors  ab.  Und  wie  groB  der  Farbanteil  sein  soil, 
sagt  uns  die  x-Koordinte  des  Mauscursors.  Bevor  das  IF.. THEN 
und  die  WHILE.. .WEND-Schleife  beendet  werden  und  das  Pro- 
gramm zuruckspringt,  rufen  wir  den  Programmteil  MRGBRegler:M 
auf.  In  diesem  Teil  werden  namlich  die  Regler  anhand  der  Va- 
riablen  V,  *g'  und  'b'  an  die  richtige  Position  gezeichnet.  Zuerst 
lflscht  das  Unterprogramm  die  alten  Regler,  indem  es  sie  in  der 
Hintergrundfarbe  zeichnet.  Dann  liest  es  V,  'g'  und  'b'  aus  dem 
Tarben%*-Feld.  Das  Ergebnis  ist  immer  eine  ganze  Zahl  zwi- 
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schen  0  und  15.  0  bedeutet  "kein  Anteil"  und  15  "voller  Anteil". 
Die  Schieberegler  erscheinen  wieder,  gegebenenfalls  an  einer 
veranderten  Position.  Ein  PALETTE-Befehl  teilt  AmigaBASIC 
die  neue  Farbdefinition  mit.  SchlieBlich  zeichnen  wir  in  der 
neuen  Farbe  das  Kastchen  nach,  das  die  aktuelle  Farbe  darstellt. 
Und  das  war's  dann  schon.  Rticksprung  mit  RETURN. 

Sie  werden  sehen:  Die  Bedienung  ist  wesentlich  einfacher  als  die 
technischen  Erkiarungen.  Aber  das  ist  ja  oft  so.  (Was  glauben 
Sie,  was  man  alles  iiber  Zahnbursten,  Kuhlschranke  oder  Fahr- 
rader  schreiben  kflnnte.  Allerdings  mussen  wir  zugeben,  daB 
diese  Gerate  auch  selten  programmiert  werden.  Zumindest  noch 
nicht...) 

Sie  kflnnen  sich  aussuchen,  welche  Farbe  umdefiniert  werden 
soil,  indem  Sie  in  eines  der  Farbf elder  klicken.  Die  Regler  fur 
R,  G  und  B  verschieben  Sie  mit  der  Maus,  wie  Sie  es  auch  von 
Preferences  oder  den  kommerziellen  Malprogrammen  gewohnt 
sind.  Sind  alle  Farben  nach  Ihrem  Geschmack,  konnen  Sie  die 
Farbdefinition  mit  einem  Klick  ins  OK-Feld  wieder  verlassen. 


Zwischenspiel  4:  Von  Bits,  Bytes  und  anderen  Gemeinheiten 

An  dieser  Stelle  mussen  wir  den  Lauf  der  Dinge  mal  wieder 
unterbrechen.  Nutzen  Sie  das  ruhig  zu  einer  kleinen  Ver- 
schnaufpause,  bevor  Sie  weiterlesen. 

Im  folgenden  wird  es  urn  die  Definition  von  Fullmustern  gehen. 
Aber  vorher  mussen  Sie  ein  paar  wichtige  Grundlagen  kennen- 
lernen,  die  leider  ein  gewisses  MaB  an  mathematischem  Ver- 
standnis  erfordern.  Dieses  Zwischenspiel  erkiart  Bindrzahlen, 
Hexadezimalzahlen  und  was  man  damit  alles  anstellen  kann. 

Wir  haben  schon  erkiart,  daB  ein  Computer  nur  zwei  Zustande 
unterscheiden  kann:  0  und  1,  Strom  an  und  Strom  aus,  logisch 
"wahr"  und  logisch  Hfalsch".  Alle  anderen  Funktionen  werden 
mehr  oder  weniger  trickreich  von  diesen  beiden  Zustanden  ab- 
geleitet.  Uns  interessiert  jetzt  zum  Beispiel,  wie  sich  der  Amiga 
andere  Zahlen  als  0  und  1  merken  kann.  Schon  mit  der  Zahl  2 
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muBte  er  ganz  schfln  ins  Schwitzen  kommen:  Eine  Unterschei- 
dung  zwischen  "Strom  an",  "Strom  anner"  und  "Strom  am 
annsten"  gibt  es  schlieBlich  nicht. 

Eigentlich  kennen  Sie  den  Trick  schon.  Was  haben  wir  gemacht, 
als  fur  die  Farben  ein  einzelnes  Bit  zu  wenig  wurde?  Wir  haben 
uns  weitere  Bits  dazugenommen.  Dasselbe  macht  der  Amiga 
auch,  wenn  er  Zahlen  verarbeitet.  Mit  einem  Bit  kann  er  0  und 
I  unterscheiden.  Mit  zwei  Bits  kennt  er  schon  0,  1,  2  und  3.  Die 
ersten  8  Zahlen  sehen  demnach  Amiga-intern  so  aus: 

Zahl      in  Bits  Zahl      in  Bits 


0 

1 

2 
3 

000 
001 
010 
011 

4  100 

5  101 

6  110 

7  111 

Tabelle  6: 

Decimalzahlen  und  Binarzahlen 

Wie  Sie  sehen,  handelt  es  sich  urn  dieselben  Kombinationen,  die 
wir  schon  bei  den  Bit-Ebenen  kennengelernt  haben.  Vielleicht 
haben  Sie,  z.B.  in  der  Schule,  schon  mal  vom  Zweier-System, 
Dualsystem  oder  von  Binarzahlen  gehOrt.  Sehr  haufig  werden 
von  Lehrern  hier  irgendwelche  armen  AuBerirdischen  heran- 
gezogen  und  schrecklich  verstummelt:  "Stellt  euch  vor,  es  gSbe 
auf  einem  anderen  Planeten  Lebewesen,  die  nur  zwei  Finger 
hatten..."  und  so  weiter.  Dabei  wissen  wir,  spatestens  seit  E.T., 
daB  da  weitaus  mehr  Finger  zu  finden  sind.  Na  egal  -  auf  jeden 
Fall  geht  es  darum,  uns  klarzumachen,  daB  man  auch  nur  mit 
den  Ziffern  0  und  1  alle  Zahlen  unseres  sogenannten  Dezi- 
malsystems  darstellen  kann.  Der  gewitzte  Schiller,  der  nun  nach- 
hakt  und  wissen  will,  wozu  man  das  machen  soil,  wenn  man 
doch  zehn  gesunde  und  krfcftige  Ziffern  zur  Verfiigung  hat, 
wird  mit  dem  schon  erwShnten  auBerirdischen  Besucher  zum 
Schweigen  gebracht,  der  halt  nun  mal  nur  das  Dualsystem  ver- 
steht.  Weil  man  aber  nie  weiB,  wer  uns  besuchen  kommt,  muB 
man  sich  halt  damit  beschaftigen. 
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Was  im  Mathematik-Unterricht  nach  einer  spitzfindigen  Spiele- 
rei  aussieht,  findet  bei  Computern  eine  sinnvolle  Anwendung. 
Unser  normales  Zahlensystem,  das  Dezimalsystem,  benutzt  10 
Ziffern  (0,  1,  2,  ...,  9).  Wenn  die  zehn  Ziffern  nicht  mehr  aus- 
reichen,  wird  eine  neue  Stelle  erOffnet:  Fur  9  reicht  noch  eine 
Stelle  aus,  fur  10  brauchen  wir  zwei.  Die  Werte  der  einzelnen 
Stellen  sind  immer  Potenzen  der  Grundzahl  (1=10  ,  10=10  , 
100=102  usw.). 

Macht  man  sich  Gedanken  daruber,  warum  es  ausgerechnet  die 
Zahl  10  sein  muBte,  muB  man  ehrlich  zugeben,  daB  es  eigentlich 
keinen  besonderen  Grund  dafur  gibt.  Wahrscheinlich  liegt  es 
daran,  daB  der  Mensch  zum  Rechnen  schon  immer  Hilfsmittel 
brauchte.  Und  da  wir  nun  mal  zehn  Finger  haben  -  im  Gegen- 
satz  zu  manchen  AuBerirdischen,  die  offensichtlich  nur  die  Be- 
kanntschaft  von  Mathematiklehrern  suchen... 

Man  kann  Zahlensysteme  aber  auch  auf  jeder  anderen  Grund- 
zahl aufbauen. 

Computer  kennen  zwei  Ziffern  (0  und  1),  also  rechnen  sie  im 
Zweier-System.  Bereits  fur  die  Zahl  2  muB  eine  neue  Stelle  auf- 
gemacht  werden.  Dasselbe  Spielchen  folgt  bei  alien  weiteren  Po- 
tenzen von  2:  2°=1,  2X=2,  22=4,  23=8,  24=16  usw.  Fur  jede  dieser 
Zahlen  benfltigt  das  Binarsystem  eine  neue  Stelle.  Das  hat  den 
Nachteil,  daB  schon  kleine  Zahlen  verhaitnism&Big  lang  werden. 
Davon  abgesehen,  funktioniert  das  Ganze  aber  genauso  gut  wie 
das  Dezimalsystem  auch.  Wenn  Sie  den  Wert  einer  Binarzahl 
ausrechnen  wollen,  mQssen  Sie  einfach  die  Werte  der  besetzten 
Stellen  aufaddieren. 

Nehmen  wir  z.B.  die  Binarzahl  10011011.  So  sieht  die  Besetzung 
der  einzelnen  Stellen  aus: 


c     128 

64 

32 

16 

8 

4 

2 

1 

(27) 

(26) 

(25) 

(24) 

(23) 

(22) 

(21) 

(2°) 

It     1 

0 

0 

1 

1 

0 

1 

1 
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Die  Binarzahl  1 00 1 1 0 1 1  entspricht  dem  dezimalen  Wert 
128+16+8+2+1,  also  155. 

Aus  technischen  Griinden  hat  es  sich  eingeburgert,  acht  Bits  zu 
einer  Einheit  zusammenzufassen.  Das  nennt  man  dann  Byte.  Ein 
Byte  hat  8  Bits,  kann  also  hflchstens  den  Wert  255  darstellen. 
(Wenn  Sie  das  nachpriifen  wollen,  rechnen  Sie  doch  einfach  die 
Werte  der  Stellen  in  dem  obigen  Beispiel  zusammen.)  Eine 
Speicherzelle  im  Amiga  kann  genau  ein  Byte  speichern.  Diese 
technische  Gegebenheit  geht  auf  die  Zeit  zuruck,  als  es  nur  8- 
Bit-Prozessoren  gab.  Der  Hauptprozessor  des  Amiga,  der  68000, 
kann  allerdings  auch  16  Bits  auf  einen  Schlag  verarbeiten. 

Einen  16-Bit- Wert  nennt  der  Fachmann  "Wort".  Uber  den  Sinn 
dieser  Bezeichnung  laBt  sich  streiten,  es  hat  auf  jeden  Fall  we- 
nig  damit  zu  tun,  was  Sie  und  wir  normalerweise  unter  einem 
Wort  verstehen.  Ein  "Wort"  besteht  aus  zwei  Bytes  und  wird  in 
zwei  hintereinanderliegenden  Speicherzellen  gespeichert.  Mit  16 
Bits  kann  man  Zahlen  von  0  bis  65535  darstellen. 

Auch  32-Bit- Werte  ktfnnen  vom  68000-Prozessor  verarbeitet 
werden.  Die  heiBen  dann  "Langwort"  und  liegen  zwischen  0  und 
4294967294.  Eine  ganz  schdn  groBe  Zahl,  es  sind  immerhin  uber 
4  Milliarden.  Diese  Zahl  brauchen  Sie  sich  naturlich  nicht  zu 
merken. 

Wir  werden  auch  "Wort"  und  "Langwort"  in  diesem  Buch  nicht 
mehr  gebrauchen.  Wir  bringen  soetwas  einfach  nicht  mehr  als 
einmal  aus  der  Feder.  Sie  sollten  die  beiden  Ausdrucke  nur 
kennengelernt  haben,  falls  Sie  sie  mal  irgendwo  anders  lesen. 

Es  kann  vorkommen,  daB  nur  15  bzw.  31  Bit  zur  Speicherung 
einer  Zahl  verwendet  werden  und  das  hdchstwertige  Bit  zur 
Speicherung  des  Vorzeichens  dient.  Eine  0  auf  dieser  Stelle  be- 
deutet  dann  positiv,  eine  1  steht  fur  negativ.  Auch  AmigaBASIC 
handhabt  das  so:  16-Bit-Zahlen  liegen  im  Bereich  von  -32768 
bis  +32767,  32-Bit-Zahlen  zwischen  -2147483647  und 
+2147483646. 
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Die  Zahl  2147483646  beweist,  dafl  auch  Dezimalzahlen  sehr  lang 
werden  kflnnen,  und  dabei  nicht  gerade  ubersichtlich  bleiben. 
Das  ist  einer  der  Griinde,  warum  sich  Programmierer,  nachdem 
sie  die  Binarzahlen  schon  mal  verstanden  hatten,  noch  ein  an- 
derefc  Zahlensystem  zugelegt  haben.  Die  Rede  ist  von  Hexa- 
dezimalzahlen. Diese  Zahlen  haben  die  Basis  16.  Als  Ziffern  mit 
dem  Wert  10  bis  15  werden  die  Buchstaben  A  bis  F  benutzt.  Ein 
Vergleich  der  drei  Zahlensysteme  zeigt  Ihnen  die  Unterschiede: 


Dez.     Bin.      Hex.  Dez.     Bin.      Hex. 


0 

0000 

0 

1 

0001 

1 

2 

0010 

2 

3 

0011 

3 

4 

0100 

4 

5 

0101 

5 

6 

0110 

6 

7 

0111 

7 

Tabelle  7: 

Die  drei  Z 

ahlens 

8 

1000 

8 

9 

1001 

9 

10 

1010 

A 

11 

1011 

B 

12 

1100 

C 

13 

1101 

D 

14 

1110 

E 

15 

1111 

F 

Das  Hexadezimalsystem  bietet  im  Zusammenhang  mit  Com- 
putern  mehrere  Vorteile:  Erstens,  das  wissen  Sie  jetzt  schon, 
kdnnen  groBe  Zahlen  kiirzer  geschrieben  werden.  Der  Gewinn 
von  ein  oder  zwei  Stellen  ist  zwar  nicht  immens,  aber  immer- 
hin...  Zweitens  ist  16  eine  Zweier-Potenz.  Das  heiBt,  daB 
Binarzahlen  und  Hexadezimalzahlen  relativ  einfach  ineinander 
umgerechnet  werden  kdnnen.  Immer  vier  Stellen  einer  Binarzahl 
entsprechen  einer  Hex-Ziffer.  Das  sehen  Sie  auch  in  der  Abbil- 
dung  oben. 

Wo  erkennen  Sie  schneller,  wieviele  Bits  an  sind?  Bei  65535  oder 
bei  FFFF?  Sie  sehen,  das  Hex-System  ist  gar  nicht  so  schlecht... 

Wenn  Sie  in  AmigaBASIC  Hexadezimalzahlen  verwenden,  mus- 
sen  sie  besonders  gekennzeichnet  werden.  Das  sieht  dann  so  aus: 
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?  &h7fff 

Weil  wir  gerade  dabei  sind:  AmigaBASIC  kennt  noch  ein 
Zahlensystem,  namlich  Oktalzahlen.  Sie  haben  die  Basis  8  und 
Ziffern  zwischen  0  und  7.  Ein  Beispiel: 

?  &07777 

Oktalzahlen  brauchen  Sie  allerdings  sehr  selten.  Hexadezimal- 
zahlen  und  Binarzahlen  hingegen  kommen  recht  haufig  vor  und 
sind  sehr  hilfreich.  AmigaBASIC  kennt  leider  keine  Moglichkeit, 
Binarzahlen  direkt  darzustellen.  Deshalb  benutzen  wir  in  Pro- 
grammen  in  erster  Linie  Dezimalzahlen  und  Hexadezimalzahlen. 
Stellt  sich  die  Frage,  was  Sie  mit  diesen  Zahlensystemen  eigent- 
lich  anfangen  sollen.  Sie  kSnnen  ganz  normal  damit  rechnen: 

?  &hf  +  &ha02 

entspricht  15+2562  und  ergibt  2577.  Die  Schreibweise  einer  Zahl 
interessiert  AmigaBASIC  nicht,  nur  der  Wert  zahlt.  Sie  kflnnen 
alle  Zahlentypen  auch  gemischt  verwenden: 

?  15  +  &ha02 

Aber  das  war  noch  lange  nicht  alles.  Es  gibt  noch  die  sogenann- 
ten  logischen  Verknupfungen.  Das  klingt  ja  schon  wieder  sehr 
mathematisch,  ist  aber  halb  so  schlimm.  (...sagte  Mr.  Spock  und 
lachte  mit  bewegungslosem  Gesicht.)  Die  Befehle  AND  und  OR 
kennen  Sie  schon.  Wir  haben  sie  bisher  hauptsachlich  in 
IF...THEN-Befehlen  benfltigt,  um  mehrere  Bedingungen  zu  ver- 
binden.  AND  bedeutet  "sowohl  als  auchH:  Beide  Bedingungen 
mOssen  "wahr"  sein,  damit  das  Ergebnis  HwahrM  ist.  OR  bedeutet 
"oderw:  Eine  wwahreH  Bedingung  reicht  aus,  damit  das  Ergebnis 
"wahr"  ist. 

Sie  haben  auch  schon  gehflrt,  daB  AmigaBASIC  den  Wahrheits- 
gehalt  einer  Aussage  durch  0  und  -1  ausdriickt.  Wir  bringen  nun 
ein  biBchen  System  in  die  ganze  Angelegenheit.   Befehle  wie 
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AND  und  OR  werden  benutzt,  um  Zahlen  miteinander  zu  ver- 
knupfen.  Dazu  werden  immer  einzelne  Bits  miteinander  ver- 
glichen.  Fangen  wir  mal  mit  AND  an.  Wenn  Sie 

?  59  and  93 

eingeben,  liefert  der  Amiga  als  Ergebnis  die  Zahl  25.  Wie 
kommt's?  Ganz  einfach: 

0  0  1110  11  (59) 

AND     0  10  1110  1  (93) 


0  0  0  110  0  1  (25) 

Im  Ergebnis  wird  dann  ein  Bit  gesetzt,  wenn  in  beiden  ver- 
knttpften  Zahlen  das  Bit  an  der  jeweiligen  Stelle  gesetzt  ist.  Das 
folgende  Schema  zeigt  die  moglichen  AND-Verknupfungen  und 
ihr  Ergebnis.  So  eine  Ubersicht  uber  die  Auswirkungen  einer 
Verkniipfung  nennt  man  ubrigens  "Wahrheitstabelle".  Die  Wege 
der  Sprachschopfer  sind  eben  unergrundlich  und  verworren. 

0  AND  0  =  0 

0  AND  1  =  0 

1  AND  0  =  0 
1  AND  1  =  1 

Beim  Verkniipfen  von  Zahlen  (die  Sie  in  beliebiger  Schreibweise 
angeben  kOnnen)  vergleicht  AmigaBASIC  Bit  fur  Bit  und  setzt 
eine  Ergebniszahl  zusammen. 

Die  nachste  Verkniipfung  ist  OR,  Hier  wird  dann  ein  Bit  im  Er- 
gebnis gesetzt,  wenn  ein  Bit  Oder  beide  Bits  gesetzt  sind.  Wieder 
ein  Beispiel: 

?  77  OR  132 

ergibt  205. 
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0  10  0  110  1        (77)         0  OR  0  =  0 

OR         10  0  0  0  10  0       (132)       0  OR  1  =  1 

1  OR  0  =  1 


110  0  110  1       (205)        1  OR  1  =  1 

Weil's  so  schdn  war,  gibt  es  noch  mehr  Verknupfungen.  Zum 
Beipiel  XOR  (gesprochen  Ex-Or,  kommt  von  Exklusiv-Oder). 
Nicht  daJ3  diese  Funktion  besonders  exklusiv  wSre,  exklusiv  be- 
deutet  vielmehr  "ausschliefllich":  Entweder  ein  Bit  oder  das  an- 
dere  mufi  gesetzt  sein  -  sind  beide  gesetzt,  bleibt  das  Ergebnis- 
Bit  aus: 

?  90  XOR  213 

ergibt  143. 


0  10  110  10       (90)         0  XOR  0  =  0 
XOR      110  10  10  1        (213)       0  XOR  1  =  1 


1  XOR  0  =  1 

10  0  0  1111        (143)        1  XOR  1  =  0 

Die  nachste  Verkniipfung  heiBt  EQV,  steht  fur  "Aquivalenz", 
auf  deutsch:  Gleichartigkeit.  Das  Ergebnisbit  wird  gesetzt,  wenn 
die  beiden  verglichenen  Bits  gleich  sind.  Diese  Funktion  wird 
relativ  selten  gebraucht.  Sie  ist  auch  nicht  ganz  so  einfach  wie 
die  bisherigen  Funktionen,  da  hier  die  Vorzeichen  der  Zahlen 
immer  mitberiicksichtigt  werden: 

7  106  EQV  -42 

ergibt  67. 

0001101010 
EQV      11110  10  110 


0  00100001  1 


(106) 

0  EQV  0  -  1 

(-42) 

0  EQV  1  -  0 

1  EQV  0  =  0 

(67) 

1  EQV  1  =  I 
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Die  nachste  Verkniipfung  mutet  etwas  exotisch  an:  IMP  steht  fur 
den  jedem  sofort  verstandlichen  mathematischen  Ausdruck  "Im- 
plikation".  "Implizieren"  bedeutet  "einbeziehen".  Beim  Vergleich 
der  Werte  wird  das  zweite  Bit  in  das  erste  einbezogen.  Zugege- 
ben,  das  ist  auch  noch  keine  klare  Definition.  Doch  Sie  werden 
diese  Funktion  in  der  Praxis  so  selten  brauchen,  daB  wir  es  nicht 
ausfuhrlicher  machen  wollen.  Schauen  Sie  bei  Bedarf  einfach  die 
Wahrheitstabelle  an. 

?  370  IMP  -474 

ergibt  -337. 

0  10  1110  0  10    (370)   0  IMP  0  =  1 
IMP   10  0  0  10  0  110    (-474)   0  IMP  1  =  1 


1  IMP  0  =  0 
10  10  10  1111    (-337)   1  IMP  1  -  1 

Haben  Sie  keine  Angst,  dafl  nun  noch  kompliziertere  Opera- 
tionen  folgen.  Der  nachste  und  letzte  Befehl  heiBt  NOT.  NOT 
kehrt  einen  logischen  Wert  um.  Aus  0  wird  -1  und  aus  -1  wird 
0.  Logisch  Mwahr"  wird  ja  bei  Vergleichen  durch  die  Zahl  -1 
ausgedriickt.  Das  ist  leider  nicht  ganz  konsequent  (bisher  war  ja 
1  das  "Gegenteir  von  0),  aber  nicht  zu  andern.  NOT  rechnet  die 
Zahlen  nach  folgender  Formel  um: 

Neuer  Wert  =  -Alter  Wert-1 

Damit  kann  0  in  -1  und  -1  in  0  umgerechnet  werden.  Bei  alien 
anderen  Zahlen  macht  die  Anwendung  von  NOT  nicht  viel  Sinn. 
(Wieso  sollte  NOT  2  ausgerechnet  -3  sein?)  NOT  wird  daher  fast 
ausschlieBlich  bei  IF...THEN  oder  ahnlichen  Vergleichen  ver- 
wendet.  Die  beiden  folgenden  BASIC-Zeilen  bewirken  dasselbe: 

IF  NOT  (a$=HHallo")  THEN  ... 

und 

IF  a$o"Hallo"  THEN  ... 
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Und  schon  haben  Sie's  geschafft.  Nun  wissen  Sie  alles  uber  Bits, 
Bytes,  Zahlensysteme  und  logische  Verkniipfungen*  Dieses  Wis- 
sen wird  fur  Sie  in  diesem  Buch  und  erst  recht  beim  spateren 
Programmieren  sehr  hilfreich  sein.  Das  werden  Sie  schon  im 
n&chsten  Kapitel  merken.  Nebenbei  bemerkt:  Logische  Ver- 
knupfungen  sind  sicher  nicht  einfach,  aber  glauben  Sie  uns, 
Teppiche  zu  kniipfen,  ist  viel  schwerer.  Lassen  Sie  sich  das  ein 
Trost  sein. 

Weil  dieses  Zwischenspiel  etwas  trocken  war,  wollen  wir  Sie 
auch  gleich  entschadigen:  Wir  kommen  zu  den  lang  erwarteten 
Fullmustern  in  AmigaBASIC  und  bringen  so  das  Malprogramm 
zu  einem  guten  Ende. 


2.10      Hier  ein  Punktchen,  da  ein  Piinktchen  -  Fiillmuster- 
definition 

Wie  so  vieles  haben  wir  auch  die  Fullmuster  dem  Blitter  zu  ver- 
danken;  Er  ist  nicht  nur  in  der  Lage,  Fl&chen  zu  kopieren  und 
auszumalen,  er  kann  dabei  auch  noch  recht  komplexe  VerknOp- 
fungen  von  Fl&chen  und  Mustern  durchfuhren.  Dazu  benutzt  er 
dieselben  logischen  VerknUpfungen,  die  wir  im  letzten 
Zwischenspiel  kennengelernt  haben. 

Es  ist  ein  leichtes  fur  ihn,  einen  Block  oder  ein  Vieleck  (das  mit 
AREA  erzeugt  wird)  nicht  nur  mit  einer  einfarbigen  vollen 
Fl&che  zu  fullen,  sondern  zum  Ausmalen  beispielsweise  Herz- 
chen,  Sternchen  oder  kleine  "Amiga-A's"  zu  verwenderi.  Die 
Muster  kdnnen  Sie  selbst  entwerfen.  Alles  was  der  Blitter 
braucht,  sind  Daten,  die  ihm  Auskunft  daruber  geben,  wie  das 
gewiinschte  Muster  aussieht. 

Wie  unterstutzt  BASIC  das  Arbeiten  mit  Mustern?  Dazu  gibt  es 
den  PATTERN-Befehl,  den  Sie  vom  bisherigen  Abtippen  ja 
schon  zur  Geniige  kennen.  "Pattern"  heiBt  auf  Deutsch  "Muster". 
Hinter  PATTERN  werden  die  Daten  angegeben,  die  die  ge- 
wOnschten  Muster  beschreiben.  Das  sieht  so  aus: 


266 AmigaBASIC 


PATTERN  (Wert  fur  Linien),  (Datenfeld  fur  Fiachen) 

Sie  kflnnen  also  an  erster  Stelle  ein  Muster  festlegen,  das  zum 
Zeichnen  von  Linien  benutzt  werden  soil.  Dieses  Muster  wird 
durch  eine  16-Bit-Zahl  beschrieben:  Sie  haben  16  horizontal 
nebeneinanderliegende  Punkte  zur  Verfugung,  um  Ihr  Muster 
anzugeben.  Wollen  Sie  die  Linien  z.B.  in  einem  "Punkt  an/Punkt 
ausH-Muster  zeichnen,  sehen  die  Bits  und  ihre  Zahlenwerte  so 
aus: 

Bits:        01010101  01010101 
Dez.:       21845 
Hex.:       &H5555 

Wir  haben  gleich  den  dezimalen  und  den  hexadezimalen  Wert 
ausgerechnet.  Wenn  Sie  Im  BASIC-Window 

pattern  &H5555 

eingeben,  wird  das  oben  durch  Bits  dargestellte  Muster  fur  Li- 
nien ubernommen.  Ein  Bit  mit  dem  Wert  1  entspricht  einem 
sichtbaren  Punkt,  ein  0-Bit  einem  unsichtbaren.  Probieren  Sie, 
damit  im  BASIC-Window  ein  paar  Linien  zu  zeichnen: 

for  x=1   to  1000  :   line  (635*rnd,185*rnd)-(635*rnd,185*rnd)   :  next 

Sie  mttssen  schon  genau  hinsehen,  um  die  einzelnen  Pixels  zu 
erkennen.  Versuchen  Sie  dasselbe  vielleicht  besser  mit  einem  an- 
deren  Muster 

pattern  &hcccc 

Jetzt  ist  das  Muster  der  Linien  deutlich  sichtbar.  Sie  geben  mit 
PATTERN  ein  Bitmuster  an  und  zeichnen  mit  den  gewohnten 
Grafikbefehlen  -  um  mehr  miissen  Sie  sich  nicht  kummern. 

Ubrigens  haben  Sie  gerade  noch  etwas  Neues  gelernt:  Ein  Full- 
muster  bzw.  ein  Linienmuster  bleibt  so  lange  aktiv,  bis  es  durch 
ein  anderes  ersetzt  wird.  StandardmaBig  verwendet  der  Amiga 
das  Muster  "alle  Punkte  an*1  (das  entspricht  der  Hexadezimalzahl 
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&HFFFF,  falls  Sie  jetzt  oder  spater  irgendwann  einmal  den 
Urzustand  wiederherstellen  wollen). 

Vorsicht  beim  Ausmalen!  Die  unsichtbaren  Stellen  in  den  Linien 
sind  wirklich  nicht  da.  Wir  verwenden  zum  Zeichnen  keine 
durchgehende  Linie  mehr,  sondern  nur  eine  Ansammlung  von 
Punkten.  Und  da  lauft  die  Farbe  auf  jeden  Fall  durch.  Deshalb 
haben  wir  im  Malprogramm  auch  auf  die  Mflglichkeit  verzichtet, 
Muster  fur  die  Linien  zu  definieren.  Denn  Linien  dienen  ja  fast 
immer  als  Begrenzung  fur  farbige  Fiachen.  Dafur  konnen  Sie  im 
Malprogramm  Fiillmuster  fur  Fiachen  angeben.  Das  ist  die 
zweite  Mflglichkeit  des  PATTERN-Befehls.  Nur  wird  fur  Fla- 
chen  keine  einzelne  Zahl,  sondern  der  Name  eines  Datenfelds 
angeben,  das  Integer-Zahlen  (ganze  Zahlen)  enthait: 

PATTERN  ,(Feldname) 

Jetzt  wissen  Sie  auch,  warum  im  Listing  beim  PATTERN-Befehl 

vor  den  Feldern  'Voll%'  und  ,Muster%'  immer  ein  Komma  steht: 
Wir  haben  den  Wert  fur  die  Linien-Definition  einfach  weg- 
gelassen. 

Welche  Werte  mtissen  in  dem  Datenfeld  stehen?  Sie  wissen 
schon,  daB  es  Integer-Zahlen  sein  sollen.  Das  ist  deshalb  sinn- 
voll,  weil  Nachkommastellen  bei  der  Darstellung  in  Bits  sowieso 
nur  sehr  umstSndlich  zu  erreichen  sind.  Fur  die  Fiillmuster,  mit 
denen  geschlossene  Fiachen  ausgemalt  sowie  Areas  und  Blocks 
gezeichnet  werden,  haben  Sie  in  der  Breite  wieder  16  Punkte 
Platz.  Die  Muster  k8nnen  aber  beliebig  hoch  werden.  Einzige 
Regel:  Die  Hflhe  des  Musters  in  Bits  muB  eine  Potenz  von  2 
sein.  (Also  2,  4,  8,  16  etc.)  Wir  verwenden  im  Malprogramm  8 
Pixel-Reihen,  sprich  16  *  8  Punkte  pro  Muster.  Die  Fiachen 
kfinnen  naturlich  im  Bild  viel  grOBer  werden,  in  der  Fiache  wie- 
derholt  sich  das  Muster.  Im  Malprogramm  kflnnen  Sie  immer  ei- 
nes aus  9  verschiedenen  Mustern  auswahlen  -  und  alle  Muster 
beliebig  verSndern. 

Damit  wSren  wir  soweit,  daB  Sie  erst  einmal  die  Programmzeilen 
eingeben  kfinnen,  falls  Sie  das  iiberhaupt  tun. 
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Musteredi tor: 

MOUSE  OFF  :  MENU  OFF 

EndOK=0 

WINDOW  4, "FuUmuster",  (54,30)- (300, 130),  18,1 

LINE  <0,0)-(132,66),3,b 

FOR  x=0  TO  2 
FOR  y=0  TO  2 
FOR  i=0  TO  7  :  Muster%(i)=AUemuster%(y*3+x,i)  :  NEXT 
PATTERN  ,Muster% 

LINE  <144+x*34,y*25)-(175+x*34,23+y*25),1,bf 
NEXT  y 
NEXT  x 
GOSUB  Markmuster 

LINE  (5,68)-(65,82),1,b 
LOCATE  10,2  :  PRINT  "Losch"; 
LINE  (75,68)-(135,82),1,b 
LOCATE  10,11  :  PRINT  "Inv."; 
LINE  (5,85)-(65,100),1,b 
LOCATE  12,2  :  PRINT  "Load"; 
LINE  (75,85)-(135,100),1,b 
LOCATE  12,11  :  PRINT  "Save"; 
LINE  (162,77)-(222,92),1,b 
LOCATE  11,24  :  PRINT  "OK"; 

FOR  i=0  TO  7  :  Muster%(i)=ALlemuster%(Musternr,i)  :  NEXT  i 
GOSUB  Zeigmuster 

MENU  ON  :  MOUSE  ON 
RETURN 

Musterdef : 
Test=MOUSE(0) 
x=MOUSE(3)  :  y=MOUSE(4) 
IF  UINDOW(0)=4  AND  x<132  AND  y<66  THEN 
px=INT(x/8.25)  :  py=INT(y/8.25) 
Bit=Muster%(py)  AND  2A(15-px) 
IF  Bit=0  THEN 
Muster=Muster%(py)  OR  2A(15-px) 
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ELSE 

Muster=Muster%(py)  AND  (65535-2A(15-px)) 
END  IF 

IF  Muster>32767  THEN  Muster=Muster-65536 
Huster%(py)=Huster 
PATTERN  ,Voll% 

LINE  (px*8+4,py*8+2)-(px*8+9,py*8+8),-(Bit=0),bf 
PATTERN  ,Muster% 

y1=INT(Musternr/3)  :  x1=Musternr-y1*3 
LINE  (144+x1*34,y1*25)-(175+x1*34,23+y1*25),1,bf 
FOR  1=0  TO  7  :  Al LemusterX(Musternr, i)=Muster%(i )  :  NEXT 
RETURN 
END  IF 

IF  WINDOU(0)=4  AND  x>H2  AND  x<244  AND  y<75  THEN 

px=INT((x-143)/34)  :  py=INT(y/25) 

IF  px+py*3=Musternr  THEN  RETURN 

Musternr=px+py*3 

FOR  i=0  TO  7  :  Muster%(i )=AUemuster%(Musternr/ i )  :  NEXT 

GOSUB  Harkmuster 

GOSUB  Zeigmuster 

PATTERN  ,Muster% 

RETURN 
END  IF 

IF  WINDOW(0)=4  AND  x<222  AND  x>162  AND  y<93  AND  y>76  THEN 

PATTERN  ,Voll% 

PAINT  (164,78), 2,1 

PATTERN  ,Muster% 

EndOK=2  :  RETURN 
END  IF 

IF  WINDOW(0)=4  AND  x<135  AND  y>68  AND  y<100  THEN 
PATTERN  ,Voll% 

IF  x<66  AND  x>4  AND  y<82  THEN 
PAINT  (6,69), 2,1 
LINE  (1,1)-(131,65),0,bf 

FOR  i=0  TO  7  :  AUemuster%(Musternr,i)=0  :  Muster%(i)=0  :  NEXT 
PAINT  (6,69), 0,1 
PATTERN  ,Muster% 
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y1=lNT(Musternr/3)  :  x1=Musternr-y1*3 
LINE  <144+x1*34,y1*25)-(175+x1*34,23+y1*25),1,bf 
END  IF 

IF  x<136  AND  x>74  AND  y<82  THEN 
PAINT  (76,69), 2,1 
FOR  i=0  TO  7 
Muster%(i)=MusterX(i)  XOR  &HFFFF 
AL  temuster%(Musternr, i )=Muster%( i ) 
NEXT  i 

GOSUB  Zeigmuster 
PAINT  (76,69), 0,1 
PATTERN  ,Muster% 

y1=INT(Musternr/3)  :  x1=Musternr-y1*3 
LINE  <144+x1*34,y1*25)-(175+x1*34,23+y1*25),1,bf 
END  IF 

IF  x<66  AND  x>4  AND  y>84  THEN  GOSUB  Mustertaden 
IF  x<135  AND  x>75  AND  y>84  THEN  GOSUB  Musterspeichern 
END  IF 
RETURN 

Markmuster: 

y1=INT(Altmuster/3)  :  x1=Altmuster-y1*3 

LINE  (143+x1*34,y1*25-1)-(176+x1*34,24+y1*25),0,b 

y1=INT(Musternr/3)  :  x1=Musternr-y1*3 

LINE  <143+x1*34,y1*25-1)-(176+x1*34/24+y1*25),3,b 

Altmuster=x1+y1*3 

RETURN 

Zeigmuster: 

MOUSE  OFF  :  MENU  OFF 
PATTERN  ,VoU% 
LINE  (1,1)-(131,65),0,bf 
FOR  y=0  TO  7 
FOR  x=0  TO  15 
Bit=MusterX(y)  AND  2A<15-x) 

IF  Bit<>0  THEN  LINE  (x*8+4,y*8+2)-(x*8+9,y*8+8),1 ,bf 
NEXT  x 
NEXT  y 


Farben  und  Auflosungsstufen 271 


PATTERN  ,Muster% 
MOUSE  ON  :  MENU  ON 
RETURN 

Musterladen: 

MOUSE  OFF  :  MENU  OFF 
PAINT  (6,86), 2,1 
GOSUB  Eingabename 
IF  Naffl$="»  THEN  EndeMLaden 
OPEN  Nam$  FOR  INPUT  AS  1 
FOR  x=0  TO  8 
FOR  y=0  TO  7 

AUemusterX(x,y)=CVI(INPUT$(2/1)) 
NEXT  y 
NEXT  x 
CLOSE  1 

EndeMLaden: 

WINDOW  CLOSE  5  :  WINDOW  4 
PAINT  (6,86), 0,1 
MOUSE  ON  :  MENU  ON 
FOR  x=0  TO  8 
FOR  y=0  TO  7 
MusterX(y)=AUemuster%(x,y) 
PATTERN  , Muster* 
y1=INT(x/3)  :  x1=x-y1*3 

LINE  (144+x1*34ly1*25)-(175+x1*34,23+y1*25),1,bf 
NEXT  y 
NEXT  x 

FOR  i*0  TO  7  :  Muster%(i)=AUemuster%(Musternrf  i)  :  NEXT 
GOSUB  Zeigmuster 
RETURN 

Musterspeichern: 

MOUSE  OFF  :  MENU  OFF 
PAINT  (78,86),2,1 
GOSUB  Eingabename 
IF  Nam$=""  THEN  EndeMSpeichern 
OPEN  Nan*  FOR  OUTPUT  AS  1 
FOR  x=0  TO  8 
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FOR  y=0  TO  7 

PRINT  #1,MKl$(AUemuster%(x,y)>; 
NEXT  y 
NEXT  x 
CLOSE  1 

EndeMSpeichern: 

WINDOW  CLOSE  5  :  WINDOW  4 

PAINT  (78,86), 0,1 

MOUSE  ON  :  MENU  ON 
RETURN 

Musteraus: 

MENU  2,0,1  :  Modus=1 

WINDOW  CLOSE  4 

WINDOW  OUTPUT  2 

PATTERN  ,Muster% 
RETURN 

Eingabename: 
Altnarne$=NamS 
WINDOW  5,"Bitte  Dateinamen  eingeben:",(0,80)-(311,88),0,1 

CLS 

LINE  INPUT  Nam$ 

IF  Nam$=  "="  OR  NamS*"*"  THEN  Nam$=Altname$ 
RETURN 


Sie  sehen  schon:  Es  gibt  immer  weniger  BASIC-Befehle  im  Gra- 
fik-Bereich,  die  Sie  noch  nicht  kennen. 

Wie  wir  es  vom  Farb-Unterprogramm  schon  kennen,  baut  der 
erste  Teil  das  Window  und  seinen  Inhalt  auf.  Das  zustfcndige 
Unterprogramm  heiBt  'Mustereditor:'.  Wahrend  des  Aufbaus 
wird  Event  Trapping  abgeschaltet.  Im  neuen  Window  erscheinen 
zuerst  die  neun  zur  Verfugung  stehenden  Fullmuster.  Sie  sind  ja 
im  Feld  ^1161™^!*%'  gespeichert  und  werden  von  den  ver- 
schachtelten  Schleifen  auf  den  Bildschirm  gebracht.  Das  %- 
Zeichen  hinter  den  Feldnamen  sorgt  dafur,  daB  nur  Integer- 
Zahlen  gespeichert  werden.  Sie  kennen  das  schon  von  normalen 
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Variablen,  bei  Feldern  funktioniert  die  Kennzeichnung  genauso. 
Aus  dem  Feld  ,Allemuster%'  werden  die  8  Muster-Daten 
zun&chst  ins  Feld  'Muster%*  kopiert.  In  *Muster%'  steht  immer 
das  aktuelle,  gerade  gew&hlte  Muster.  Pro  Muster  zeichnet  das 
Unterprogramm  ein  kleines,  gefiilltes  Quadrat.  Da  wir  am 
Programmanfang  aus  den  DATA-Zeilen  in  alle  Felder  eine 
Grundbelegung  eingelesen  haben,  stehen  bereits  neun  fertige 
Muster  zur  Verfugung. 

Als  n&chstes  wird  das  Unterprogramm  'Markmuster:'  aufgerufen. 
Es  zeichnet  einen  orangen  Rahmen  um  das  aktuelle  Fiillmuster, 
damit  Sie  die  Auswahl  immer  sofort  erkennen.  Der  dann  fol- 
gende  Teil  erzeugt  die  Kistchen  fur  "L6schM  (Muster  loschen), 
MInv."  (Muster  invertieren,  umkehren),  "Load"  (Musterbelegung 
von  Diskette  laden),  "Save"  (Muster  auf  Diskette  abspeichern) 
und  "OK".  Um  eine  dieser  Funktionen  aufzurufen,  muB  der 
Anwender  in  das  zugeh6rige  K&stchen  klicken. 

Zu  guter  Letzt  rufen  wir  noch  'Zeigmuster:1  auf:  Dieses  Unter- 
programm stellt  die  VergrdBerung  des  aktuellen  Musters  in  der 
Arbeitsmatrix  dar.  Die  Arbeitsmatrix  ist  das  groBe  K&stchen 
links  neben  den  Fullmustern.  Hier  konnen  Sie  einzelne  Punkte 
an-  und  ausklicken  und  auf  diese  Weise  Muster  ver&ndern  oder 
neu  definieren.  Am  SchluB  mussen  wir  Event  Trapping  wieder 
aktivieren  und  mit  RETURN  zuriickspringen. 

So  sieht  das  "F01lmusterM-Window  aus,  das  im  gerade  bespro- 
chenen  Teil  aufgebaut  wird: 
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Bild  11: 


Das  "Full muster" -Window  aus  dem  Malprogramm 


Mit  dem  Bild  k5nnen  Sie  vergleichen,  ob  in  Ihrer  Version  alles 
stimmt.  Wenn  sich  das  eine  Oder  andere  Ihrer  Muster  von  unse- 
ren  unterscheidet,  obwohl  Sie  nichts  verandert  haben,  uber- 
priifen  Sie  bitte  zunachst  die  DATA-Zeilen  am  Programm- 
anfang. 


Der  Teil  'MusterdefV  ist  nun  an  der  Reihe.  Dieses  Unter- 
programm  reagiert  auf  die  Maus,  solange  Modus  3  (die  Muster- 
Definition)  aktiv  ist.  Wir  stellen  zuerst  die  Koordinaten  der 
Maus  fest  und  speichern  sie  in  den  Variablen  V  und  V-  Dann 
wird  Schritt  fur  Schritt  abgepruft,  in  welchem  Feld  der  Klick 
erfolgte  und  was  demnach  vom  Programm  zu  tun  ist. 
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Es  beginnt  mit  der  Arbeitsmatrix.  Hier  wird,  wie  schon  erwahnt, 
jeder  Punkt  des  Musters  stark  vergroBert  durch  ein  Kastchen 
dargestellt.  Sie  k6nnen  durch  Klicken  mit  der  Maus  einzelne 
Punkte  an-  oder  ausschalten.  Falls  das  gewahlte  Window  die 
Nummer  4  ist  und  mit  der  Maus  innerhalb  der  Grenzen  der  Ar- 
beitsmatrix geklickt  wurde,  soil  der  angeklickte  Punkt  berechnet 
werden.  In  den  Variablen  'px'  und  'py1  rechnen  wir  die  Mausko- 
ordinaten  in  eine  Spalte  und  eine  Zeile  bzw.  Reihe  urn,  die  die 
Lage  des  Punktes  angibt,  auf  den  Sie  geklickt  haben.  Die  Va- 
riable 'Bit*  isoliert  das  zum  Punkt  gehflrende  Bit  aus  dem  Feld 
'Muster%\  Dazu  benutzen  wir  eine  AND-Verknupfung:  Nur 
wenn  in  der  Ausgangszahl  ('Muster%(py)')  dasselbe  Bit  wie  in 
der  Vergleichszahl  (2A(15-px))  gesetzt  ist,  wird  das  Bit  auch  im 
Ergebnis  gesetzt.  Anderenfalls  kommt  der  Wert  0  heraus.  Hat 
'Bit'  den  Wert  0,  wird  der  angeklickte  Punkt  im  Muster  gesetzt. 

Ist  das  Ergebnis  ein  anderer  Wert  als  0,  soil  der  Punkt  geloscht 
werden.  Dazu  fuhren  wir  AND  mit  einer  Zahl  aus,  in  der  alle 
Bits  gesetzt  sind  bis  auf  das  eine,  das  dem  gewahlten  Pixel  ent- 
spricht  (Die  Formel  dazu  lautet:  65536-2A(15-px)).  Das  Resultat: 
Alle  Bits  bleiben  unverandert,  nur  das  gewiinschte  Bit  wird  ge- 
16scht. 

Die  Variable  'Muster'  erhalt  einen  neuen  Wert,  der  zuruck  ins 
,Muster%'-Feld  geschieben  wird.  Urn  die  Zahl  in  das  Integer- 
Feld  zuruckschreiben  zu  konnen,  mussen  wir  noch  etwas  beach- 
ten:  Unser  Ergebnis  hat  zwar  16  Bit,  ist  aber  auf  jeden  Fall  po- 
sitiv.  Urn  die  entsprechende  Integer-Zahl  zu  erhalten,  mussen 
wir  von  Zahlen,  die  gr6Ber  als  32767  sind,  den  Wert  65535  ab- 
ziehen.  So  kommen  wir  auf  den  Negativ-Wert.  Der  wird  dann 
schlieBlich  ins  Feld  'Muster%*  zurOckgeschrieben.  Wundern  Sie 
sich  nicht,  daB  AmigaBASIC  hinter  der  Zahl  65535  im  LIST- 
Window  beharrlich  ein  &-Zeichen  anhangt.  Das  macht  es  mit 
alien  Zahlen,  die  auBerhalb  des  Bereichs  von  -32768  bis  +32767 
liegen. 

Damit  ist  der  rechnerische  Teil  der  Muster-Definition  schon  er- 
ledigt.  Aber  der  Anwender  will  ja  auch  eine  Reaktion  sehen. 
Wobei  die  Betonung  auf  "sehen"  liegt.  Je  nach  dem  vorherigen 
Zustand  des  Punkts  wird  er  in  der  Arbeitsmatrix  gesetzt  oder 
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gelflscht.  Die  Formel  -(Bit=0)  kehrt  den  Wert  eines  Bits  urn.  Das 
hangt  mal  wieder  mit  der  Verwaltung  von  wahren  und  falschen 
Aussagen  zusammen:  Hat  'Bit'  den  Wert  0,  ist  das  Ergebnis  1 
und  umgekehrt. 

Wir  verwenden  das  Ergebnis  der  Formel  als  Zeichenfarbe:  Mit 
der  Farbe  0  (Hintergrund,  also  unsichtbar)  oder  1  (erste 
Zeichenfarbe,  also  sichtbar)  zeichnet  ein  LINE-Befehl  ein  aus- 
gemaltes  Kastchen.  Der  Zustand  des  angeklickten  Punktes  hat 
sich  dann  genau  umgekehrt:  War  er  vorher  an,  ist  er  jetzt  aus; 
war  er  aus,  wird  er  gesetzt.  Vorher  muB  das  Fullmuster  auf 
'VolW  zuruckgeschaltet  werden,  denn  wir  wollen  ja  ein  gefulles 
Kastchen  und  kein  gemustertes.  Jetzt  verstehen  Sie  sicher, 
warum  wir  im  ganzen  Programm  vor  Blockfill-Operationen  im- 
mer  erst  PATTERN  ,Voll%  verwenden.  In  'Voll%'  haben  wir  ja 
ganz  am  Anfang  ein  Fullmuster  abgelegt,  bei  dem  alle  Punkte 
gesetzt  sind.  Wenn  wir  auBerhalb  des  Bilds,  also  zum  Aufbau 
von  Windows,  voile  Flachen  verwenden  wollen,  sind  keine  Mu- 
ster gefragt. 

Damit  der  Anwender  sieht,  wie  sich  das  Muster  in  OriginalgroBe 
macht,  bringen  wir  in  dem  Kastchen,  in  dem  das  alte  Muster 
dargestellt  wurde,  die  neue  Version  des  Musters  auf  den  Bild- 
schirm.  Die  Tatsache,  daB  der  Inhalt  des  Felds  'Muster0/)'  gean- 
dert  wurde,  Sndert  ja  nichts  an  Mustern,  die  sich  schon  auf  dem 
Bildschirm  befinden.  Wir  mussen  das  Kastchen  mit  LINE  und 
Blockfill  neu  zeichnen. 

Dieses  Prinzip  konnen  Sie  sich  auch  beim  Malen  Ihrer  Bilder 
zunutze  machen:  Wenn  Sie  ein  neues  Muster  auswahlen  oder 
einen  neuen  Mustersatz  von  Diskette  laden,  bleiben  die  Muster 
im  Bild  trotzdem  unverandert.  Der  Grund  ist,  daB  der  Blitter 
beim  Zeichnen  das  jeweilige  Muster  in  den  Speicher  kopiert,  wo 
das  Bild  liegt.  Sie  kflnnten  dasselbe  Ergebnis  im  Bild  auch  da- 
durch  erreichen,  daB  Sie  jeden  Punkt  des  Musters  von  Hand 
setzen,  nur  wurde  das  naturlich  sehr  viel  langer  dauern  und  sehr 
muhsam  sein. 
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Das  Unterprogramm  'Musterdef:'  legt  den  Inhalt  des  Felds  'Mu- 
ster%*  noch  an  der  entsprechenden  Stelle  von  ,Allemuster%'  ab, 
dann  hat  es  seine  Schuldigkeit  getan  und  kann  beendet  werden. 

Der  nachste  Teil  ist  dafur  zustandig,  daB  der  Anwender  das  ak- 
tuelle  Muster  wechseln  kann.  Er  kann  es  dann  zum  Zeichnen 
verwenden  oder  es  auch  umdefinieren.  Klicken  Sie  einfach  in 
das  Feld  des  Musters,  das  Sie  benutzen  oder  andern  mflchten.  Es 
wird  durch  einen  orangen  Rahmen  gekennzeichnet,  und  sein  In- 
halt wird  in  die  Arbeitsmatrix  iibernommen.  Die  Variable  'Mu- 
sternr'  enthait  die  Nummer  des  aktuellen  Musters.  Erfolgte  der 
Klick  auf  dem  Muster,  das  sowieso  gerade  gewahlt  ist,  springt 
das  Programm  gleich  mit  RETURN  zuruck,  urn  Zeit  zu  sparen. 
Die  acht  Daten  werden  aus  dem  Feld  ,Anemuster%'  ins  Feld 
'Muster%'  kopiert.  Dann  rufen  wir  'Markmuster:'  und  'Zeigmu- 
ster:'  auf.  Nochmal,  was  dort  passiert:  Oranges  Kastchen  urn 
aktuelles  Muster  zeichnen  und  Muster  punktweise  in  die 
Arbeitsmatrix  iibernehmen.  Letzteres  nimmt  die  meiste  Zeit  in 
Anspruch,  bitte  gedulden  Sie  sich  einen  Augenblick.  Mit  PAT- 
TERN wird  das  neue  Muster  furs  Zeichnen  aktiviert. 

Der  nachste  Teil  fuhrt  die  Auswertung  eines  Klicks  ins  OK- 
Feld  durch.  Das  ist  besonders  einfach:  OK-Feld  ausmalen, 
'EndOK'=2  und  zuruck.  Urn  den  Rest  kummert  sich  der  auf- 
rufende  Programmteil  'Maus:\ 

Jetzt  fehlen  uns  in  diesem  Programmteil  nur  noch  die  vier 
Kastchen  fur  HL6sch\  "Inv.",  "Load"  und  "Save".  Die  auBere 
IF...THEN-Bedingung  fragt  ab,  ob  die  Koordinate,  an  die  mit 
der  Maus  geklickt  wurde,  innerhalb  des  Bereichs  liegt,  wo  sich 
die  vier  Felder  befinden.  Falls  nein,  kann  gleich  weitergemacht 
werden,  wodurch  das  Programm  wieder  Zeit  spart.  Die  inneren 
IF...THEN-Abfragen  uberprufen  ein  Kastchen  nach  dem  an- 
deren. 

Es  geht  los  mit  dem  "L6schM-Kastchen:  Das  angeklickte  Kastchen 
wird  zur  Bestatigung  des  Klicks  ausgemalt.  Wie  immer  naturlich 
erst,  nachdem  wir  das  *Voll%'-Muster  aktiviert  haben.  Innerhalb 
der  Arbeitsmatrix  zeichnet  der  LINE-Befehl  ein  Kastchen  in 
Hintergrundfarbe,  urn  den  Inhalt  zu  16schen.  Das  Ldschen  eines 
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Bildes  Oder  eines  Bildteils  ist  ja  tatsachlich  nichts  weiter  als  das 
Auffullen  mit  Punkten  in  der  Hintergrundfarbe.  Die  acht  Werte 
des  gelftschten  Musters  werden  in  den  Feldern  'Muster%'  und 
,Allemuster%'  auf  0  gesetzt.  Dann  versetzen  wir  das  noch  aus- 
gemalte  "L6schH-K&stchen  in  den  Normalzustand  zuriick.  Zuletzt 
wird  das  neue  Muster,  einfach  ein  leeres  Feld,  noch  an  seinem 
Platz  innerhalb  der  neun  Muster-Kastchen  dargestellt. 

Der  "Inv."-Teil  funktoniert  sehr  ahnlich.  Das  Invertieren  konnen 
Sie  benutzen,  urn  ein  Muster  in  Negativdarstellung  zu  erhalten. 
Fur  diese  Funktion  werden  die  Oer-  und  ler-Bits  genau  um- 
gekehrt.  Die  Funktion  XOR  &HFFFF  erledigt  das  fur  uns.  Denn 
wenn  wir  alle  Bits  mit  der  Zahl  1  XOR-verkniipfen,  wird  aus  1 
der  Wert  0,  weil  1  XOR  1  «  0  ergibt.  Und  aus  0  wird  1,  denn 
0  XOR  1  =  1.  Die  neuen  Werte  ubernehmen  wir  gleich  wieder  in 
,Muster%'  und  'Allemuster%\  Dann  rufen  wir  'Zeigmuster:'  auf, 
um  das  invertierte  Muster  in  der  Arbeitsmatrix  darzustellen.  Al- 
les  weitere  lfcuft  nach  bekanntem  Schema  ab:  "Inv/'-Kastchen 
lflschen  und  zugehSriges  Muster-Kastchen  zeichnen. 

Wurde  eines  der  Kastchen  "Load"  oder  "Save"  angeklickt,  rufen 
die  nachsten  beiden  Teile  einfach  die  Unterprogramme  fur 
'Musterladen:'  und  'Musterspeichern:'  auf  und  springen  nach  der 
Ruckkehr  zuriick  zum  Hauptprogramm. 

Vom  nSchsten  Teil,  'Markmuster:',  haben  wir  schon  gehort:  Es 
loscht  zuerst  den  Rahmen  um  das  alte  Muster  und  zeichnet  dann 
einen  neuen  Rahmen  um  das  neue  Muster.  Die  Nummer  des 
neuen  Musters  findet  das  Unterprogramm  in  der  Variablen 
'Musternr'.  Um  beim  nachsten  Mai  den  alten  Wert  zu  kennen, 
belegt  das  Programm  die  Variable  'Altmuster'  mit  der  Nummer 
des  jetzt  aktuellen  Musters.  Beim  nachsten  Wechsel  ist  dieses 
Muster  ja  schon  wieder  das  alte,  dessen  Umrahmung  dann  ge- 
16scht  werden  soil. 

Der  Teil  'Zeigmuster:'  ist  uns  von  der  Funktion  her  auch  nicht 
mehr  unbekannt:  Er  bringt  ein  Fullmuster  Punkt  fur  Punkt  in 
die  Arbeitsmatrix.  Der  Aufbau  des  Musters  in  der  Arbeitsmatrix 
dauert  ca.  3  Sekunden.  Damit  das  Unterprogramm  in  dieser  Zeit 
nicht  gestflrt  wird,  deaktivieren  wir  kurzzeitig  das  Event  Trap- 
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ping.  Der  alte  Inhalt  der  Arbeitsmatrix  wird  vorher  durch 
Zeichnen  eines  Blocks  in  Hintergrundfarbe  geloscht.  Zum  Auf- 
bau  der  Matrix  checken  wir  Bit  fur  Bit  die  einzelnen  Werte  des 
Felds  'Muster%'  ab  und  zeichnen  fur  jedes  gesetzte  Bit  ein 
K&stchen.  Das.  war's  schon.  Nicht  vergessen,  das  Event  Trapping 
wieder  zuzulassen,  dann  erfolgt  der  Rucksprung.  Apropos  "nicht 
vergessen":  Wann  haben  Sie  eigentlich  das  letzte  Mai  abge- 
speichert? 

Bleibt  nur  noch  eine  Kleinigkeit:  Was  hilft  Ihnen  die  komforta- 
belste  Muster-Definition,  wenn  Ihre  Muster  nach  dem  Aus- 
schalten  des  Amiga  verloren  gehen?  Aus  diesem  Grund  haben 
wir  die  Moglichkeit  vorgesehen,  einen  kompletten  Satz  aus  neun 
Fullmustern  auf  Diskette  abzuspeichern  und  von  Diskette  zu  la- 
den. 

Der  nachste  Teil  des  Programms  ist  fur  das  Laden  zustSndig. 
Auch  w£hrend  'Musterladen:'  unterbrechen  wir  Event  Trapping, 
da  der  Amiga  in  dieser  Zeit  nicht  gestort  werden  will.  Der 
PAINT- Befehl  in  der  zweiten  Zeile  des  Unterprogramms  malt 
das  "LOADH-Kastchen  aus,  um  die  Auswahl  des  Anwenders  op- 
tisch  zu  bestatigen.  Dann  rufen  wir  das  Unterprogramm  'Einga- 
bename:*  auf.  Hier  fragt  Sie  der  Amiga  nach  dem  Namen  der 
Datei,  die  gelesen  oder  geschrieben  werden  soil.  Im  String 
'NamS'  liefert  das  Unterprogramm  den  gefragten  Namen.  Falls 
'Nam$*  ein  leerer  String  ist,  hat  der  Anwender  nur  die 
<RETURN>-Taste  gednickt,  ohne  einen  Namen  einzugeben.  In 
diesem  Fall  beenden  wir  das  'Musterladeni'-Unterprogamm  und 
kehren  zur  Musterdefinition  zuruck.  Der  Teil  'EndeMLaden* 
wird  das  erledigen. 

Gibt  es  jedoch  einen  Namen,  wird  die  entsprechende  Datei  auf 
Diskette  zum  Lesen  geoffnet.  Naheres  dazu  und  zum  Befehl 
OPEN  erfahren  Sie  erst  im  zweiten  Teil  dieses  Buchs.  Soviel 
verstehen  Sie  aber  sicher  jetzt  schon:  Die  Zahlen,  die  die  Muster 
festgelegen,  werden  Wert  fur  Wert  von  der  Diskette  in  das  Feld 
,Allemuster%'  eingelesen.  Das  geschieht  in  den  beiden  ineinander 
verschachtelten  FOR...NEXT-Schleifen.   Der  CLOSE-Befehl   ist 
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eine  notwendige  Folge  von  OPEN,  auch  uber  ihn  werden  Sie 
schon  bald  mehr  erfahren.  Das  war  schon  der  Teil,  der  fur's  La- 
den zustandig  ist.  'EndeMLaden:'  beendet  das  Laden. 

Window  5  wurde  von  'Eingabename:'  aufgemacht  und  muB  nun 
wieder  geschlossen  werden.  Window  4  soil  wieder  als  Ausgabe- 
Window  verwendet  werden.  Das  LOAD-Feld  wird  in  der  Hin- 
tergrundfarbe  ausgemalt,  die  farbige  Fullung  verschwindet  also 
wieder.  Event  Trapping  fur  Maus  und  Pulldowns  wird  wieder 
zugelassen.  Danach  bringen  wir  die  neuen  Muster  auf  den  Bild- 
schirm.  Bisher  stehen  sie  ja  nur  im  Feld  'Allemuster%\  der  An- 
wender  sieht  noch  nichts  von  ihnen.  Dazu  kopieren  zwei  ver- 
schachtelte  Schleifen  der  Reihe  nach  die  Werte  ftir  Muster  1  bis 
Muster  9  aus  'Allemuster%'  ins  Feld  'Muster%'  und  zeichnen 
damit  immer  eines  der  neun  Ostchen  neben  der  Arbeitsmatrix. 
Nach  den  beiden  Schleifen  wird  das  Feld  'Muster0/*)'  mit  den 
Daten  des  Musters  geladen,  das  der  Nachfolger  des  zuletzt  ver- 
wendeten  Musters  ist. 

Die  beiden  Unterprogramme  zum  Speichern  von  Mustern  sind 
auch  nicht  schwerer.  'Musterspeichern:'  schaltet  wieder  Event 
Trapping  aus,  malt  das  "Save^-Feld  aus,  laBt  das  Unterprogramm 
'Eingabename:'  einen  Namen  feststellen,  erftffnet  die  in  'Nam$' 
angegebene  Datei  zum  Schreiben  und  schreibt  Wert  fur  Wert  die 
Inhalte  des  Felds  'Allemuster%'  auf  Diskette.  Datei  wieder 
schlieBen,  das  war  schon  alles.  Die  Funktion  von  "EndeMSpei- 
chern:'  konnen  Sie  sich  sicher  denken:  Es  schlieBt  das  Speichern 
ab.  Wie  auch  beim  Laden  muB  Window  5  geschlossen  und  Win- 
dow 4  aktiviert  werden.  Das  "Save"-Feld  wird  in  seinen  unge- 
fiillten  Normalzustand  zuriickversetzt  und  Event  Trapping  wie- 
der zugelassen,  dann  kommt  schon  der  Riicksprung.  Auf  die 
Befehle  CVI,  MKI$  und  INPUTS  gehen  wir  im  zweiten  Teil  des 
Buchs  ("Der  Daten-Amiga")  ausfuhrlich  ein. 

Stellt  sich  jetzt  die  Frage,  wie  Sie  das  Laden  und  Speichern  von 
Mustern  bedienen?  Sie  speichern  alle  neun  Muster  gleichzeitig  in 
einer  Datei  auf  Diskette  ab.  Eine  Datei  ist  eine  Aufzeichnung 
wie  Programme  auch,  nur  daB  sie  Daten  enthait.  Wenn  Sie  das 
"SaveM-Feld  angeklickt  haben,  erscheint  in  der  Mitte  des  Bild- 
schirms  ein  Window.  Es  nimmt  die  ganze  Bildschirmbreite  ein, 
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ist  aber  nur  eine  Zeile  hoch.  Tippen  Sie  hier  den  Namen  ein, 
den  Sie  Ihrer  Muster-Datei  geben  wollen.  Das  funktioniert  ge- 
nauso  wie  beim  Abspeichern  von  Programmer  Wahlen  Sie 
kurze,  eindeutige  Namen,  z.B.  "Muster P.  Dann  erkennen  Sie 
spater  die  Muster-Daten  leichter.  Mit  <RETURN>  bestatigen  Sie 
Ihre  Eingabe.  Sie  werden  nun  beobachten  konnen,  da/3  das  rote 
Lampchen  am  Diskettenlaufwerk  kurz  aufleuchtet.  Ihre  Datei 
wird  gespeichert.  Denken  Sie  bitte  unbedingt  daran,  daB  Sie  die 
Diskette  nicht  entnehmen  diirfen,  wahrend  das  rote  Lampchen 
leuchtet.  Nach  dem  Speichern  kehrt  das  Programm  wieder  zur 
Muster-Definition  zuruck,  wo  Sie  normal  weitermachen  konnen. 

Zum  Laden  klicken  Sie  das  HLoad"-Feld  an.  Das  Window  fur  die 
Namenseingabe  erscheint  wieder.  Geben  Sie  den  Namen  einer 
Muster-Datei  ein,  die  Sie  schon  auf  Diskette  abgespeichert  ha- 
ben  (z.B.  "Muster  1"),  und  drucken  Sie  <RETURN>.  Das  Pro- 
gramm ladt  nun  die  Muster  von  Diskette  und  zeigt  sie  Ihnen  in 
den  neun  Muster-Feldern.  Sie  konnen  diese  Muster  genauso 
verwenden  wie  die  Standard-Muster  vom  Anfang.  Mit  der  Zeit 
werden  Sie  eine  groBere  Auswahl  an  Fullmustern  definiert  und 
abgespeichert  haben.  Daraus  konnen  Sie  dann  beim  Zeichnen 
frei  auswahlen. 

Machen  wir  ein  biBchen  im  Programm  weiter.  Da  gibt  es  den 
Programmteil  'Musteraus:'.  Er  hat  beim  Muster-Programm  die 
gleiche  Funktion  wie  'Farbaus:'  beim  Farb-Programm:  die  Mu- 
ster-Definition wird  beendet,  das  Programm  kehrt  in  den  Zei- 
chenmodus  zuruck.  Sie  erreichen  das  durch  einen  Klick  ins  OK- 
Feld.  'Musteraus:'  laBt  das  zweite  Pulldown  wieder  zu,  das  die 
Zeichenarten  beinhaltet,  und  setzt  den  Modus  auf  Nummer  1 
(Zeichnen).  Es  schlieBt  das  Window  des  Muster-Unter- 
programms,  macht  Window  2,  wo  sich  Ihr  Bild  befindet,  zum 
Ausgabe-Window,  aktiviert  das  zuletzt  gewahlte  Muster  und 
kehrt  zum  Hauptprogramm  zuruck. 

Jetzt  fehlt  uns  noch  der  Programmteil  'Eingabename:'.  Er  fragt 
beim  Laden  und  Speichern  nach  einem  Dateinamen.  In  der 
String-Variablen  'AltnameS'  merkt  sich  das  Unterprogramm  den 
letzten  Inhalt  von  'Nam$\  Dann  erzeugt  es  das  Window,  in  dem 
Sie  den  Namen  eingeben  konnen,  und  bringt  mit  CLS  den  Text- 
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cursor  in  die  erste  Zeile.  Mit  LINE  INPUT  fragen  wir  eine  Ein- 
gabe  ab.  Wenn  Sie  ein  =-Zeichen  oder  ein  Sternchen  eingeben, 
wird  der  zuletzt  benutzte  Name  Ubernommen.  Das  erspart  Ihnen 
unter  Umstanden  viel  Tipparbeit,  wenn  Sie  modifizierte  Muster 
unter  gleichem  Namen  wieder  abspeichern  wollen.  Den  alten 
Namen  erfahrt  das  Programm  aus  dem  String  'Altname*. 

Das  war's  auch  schon  -  das  Programm  kann  dorthin  zuriick- 
springen,  von  wo  aus  es  aufgerufen  wurde. 

Sie  durfen  jetzt  aufatmen.  Der  Marathon  aus  Eintippen  und 
Verdauen  von  Erkiarungen,  den  dieses  Kapitel  sicher  fur  Sie 
darstellte,  ist  kurz  vor  seinem  Ziel.  Geben  Sie  noch  den  letzten 
Teil  ein,  dann  ist  das  Malprogram  komplett. 


Abfrage: 

MENU  1,0,0  :  MENU  2,0,0 

MENU  OFF  :  MOUSE  OFF 

WINDOW  5,"ACHTUNG!», (43,70)- (270, 120), 0,1 

COLOR  0,1  :  CLS  :  LOCATE  2,3 

PRINT  "Wollen  Sie  Ihr  Bi Id" 

PRINT  "  wirklich  loschen?" 

PATTERN  , Vol  IX 

LOCATE  5,12  :  PRINT  »Ja»; 

LOCATE  5,20  :  PRINT  "Nein"; 

LINE  (77,31)-(127,46),0,b 

LINE  (145,31)-(195,46),0,b 

SOUND  880,6,100 
Warte: 

Test=MOUSE(0) 

WHILE  MOUSE(0)-0 

x=MOUSE(1)  :  y=M0USE(2) 

WEND 

IF  (y<46  AND  y>31)  THEN 
IF  (x<127  AND  x>77)  THEN  PAINT  (79,33), 3,0  :  0K=1  :  GOTO  Endabfrage 
IF  (x<195  AND  x>145)  THEN  PAINT  (147,33)#3,0  :  OK=0  :  GOTO  Endabfrage 

END  IF 

GOTO  Warte 
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Endabfrage: 

MENU  ON  :  MOUSE  ON  :  MENU  1,0,1  :  MENU  2,0,1 

WINDOW  CLOSE  5  :  WINDOW  2 
RETURN 

Eode: 

MENU  RESET 

SCREEN  CLOSE  1 
END 


Im  jetzt  eingegebenen  Teil  des  Programms  wird  die  Sicher- 
heitsabfrage  durchgefiihrt,  in  der  das  LSschen  eines  Bildes  oder 
das  Beenden  des  Programms  bestatigt  werden  muB.  Wir  bauen 
dazu  ein  Window  auf,  das  iiber  dem  Bild  erscheinen  wird.  Wie 
ublich  wird  vorher  Event  Trapping  deaktiviert.  Auch  die  Pull- 
downs  sperren  wir,  damit  der  Anwender  gleich  erkennt,  daB  er 
zur  Zeit  nichts  auswahlen  kann.  Das  Window  trSgt  den  Titel 
"ACHTUNG!",  denn  der  Benutzer  soil  deutlich  merken,  daB  dies 
seine  letzte  Chance  ist,  sein  Bild  zu  retten.  Im  Window  erscheint 
der  Text  HWollen  Sie  Ihr  Bild  wirklich  lOschen?",  und  zwei  Fel- 
der  fur  wJaM  und  "Nein"  werden  gezeichnet.  WShrend  das  Window 
aufgebaut  wird,  h5ren  Sie  auch  noch  einen  Warnton.  Den  er- 
zeugt  ein  SOUND-Befehl,  naheres  iiber  ihn  erfahren  Sie  im 
dritten  Teil  des  Buchs.  Die  'Wartei'-Schleife  lSuft  so  lange,  bis 
Sie  in  eines  der  beiden  Felder  geklickt  haben.  Je  nach  Ihrer 
Entscheidung  ("Ja,  loschen"  oder  "Nein,  nicht  loschen")  bekommt 
die  Variable  OK  den  Wert  1  oder  0.  Das  aufrufende  Programm 
OProjekt:')  kann  dann  entsprechend  reagieren. 

'Endabfrage:*  tut  das,  was  der  Name  schon  ahnen  laBt:  Es  been- 
det  die  Abf rage.  In  gewohnter  Weise  wird  Event  Trapping  wie- 
der  aktiviert,  und  beide  Pulldowns  stehen  wieder  zur  Auswahl. 

Bleibt  noch  ein  letzter  kleiner  Programmteil:  'Ende:\  Hierher 
springt  das  Programm,  wenn  es  beendet  werden  soil. 
MENU  RESET  stellt  die  Grundbelegung  der  Pulldowns  her, 
SCREEN  CLOSE  1  schlieBt  den  Screen,  auf  dem  unser  Mal- 
progamm  arbeitet.  END  schlieBlich  beendet  das  Programm.  Der 
Befehl   END   hat  an   dieser  Stelle   allerdings   eher   kosmetische 
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Griinde.  Kommt  das  Programm  in  die  letzte  Zeile  und  findet 
keinen  Sprungbefehl,  ist  sowieso  SchluG.  Es  gibt  aber  zwei 
Griinde,  END  doch  zu  verwenden:  Erstens,  um  (wie  in  unserem 
Fall)  das  Programmende  im  Listing  deutlich  zu  markieren.  Und 
zweitens  um  das  Programm  zu  beenden,  obwohl  im  Listing  noch 
weitere  Zeilen  (z.B.  Unterprogramme)  folgen. 

Andachtige  Stille.  Sie  sind  wieder  im  Direktmodus,  das  Mal- 
programm  ist  zu  Ende.  Es  ist  mal  wieder  angebracht,  Sie  zu  be- 
gluckwunschen:  Auch  dieses  bisher  langste  Programm  im  Buch 
haben  Sie  gut  hinter  sich  gebracht.  Die  Miihe  hat  sich  aber  si- 
cher  gelohnt:  Mit  unserem  Malprogramm  steht  Ihnen  ein  lei- 
stungsfahiges  Utility  zur  Verfugung.  Im  michsten  Teil  werden 
Sie  unter  anderem  lernen,  wie  Sie  die  Bilder,  die  Sie  gemalt  ha- 
ben, auf  Diskette  abspeichern  und  spater  wieder  einlesen  kon- 
nen.  AuBerdem  werden  wir  Ihnen  Moglichkeiten  zeigen,  die  Bil- 
der auch  in  anderen  Programmen  zu  verwenden,  etwa  im  Vi- 
deotitel-Programm. 

Probieren  Sie  das  Malprogramm  jetzt  nach  Lust  und  Laune  aus. 
Was  Sie  zur  Bedienung  wissen  mussen,  haben  wir  Ihnen  im  Ver- 
lauf  der  Erklarungen  schon  gesagt.  Ein  paar  Tips  werden  wir 
Ihnen  gleich  noch  nachliefern. 

Zuerst  aber  noch  etwas  anderes:  Wenn  Sie  das  Programm  selbst 
eingetippt  haben,  werden  Sie  beim  Ausprobieren  sicher  Fehler 
feststellen.  In  den  meisten  Fallen  wird  das  Programm  abbrechen 
und  der  Fehler  im  LIST-Window  angezeigt  -  dann  sollten  Sie 
den  hervorgehobenen  Befehl  genau  mit  unserer  Vorlage  ver- 
gleichen  und  korrigieren.  Schwieriger  wird's,  wenn  sich  das  Pro- 
gramm an  irgendeiner  Stelle  anders  verhait,  als  von  uns  be- 
schrieben.  In  diesem  Fall  mussen  Sie  wahrscheinlich  ganze  Pro- 
grammteile  iiberprufen,  bis  Sie  den  Fehler  gefunden  haben.  Ar- 
gern  Sie  sich  bitte  nicht  uber  sich  selbst:  Es  ist  beinahe  un- 
m6glich,  9  Seiten  Listing  einzugeben,  ohne  dabei  einen  Fehler 
zu  machen.  In  der  Endphase  des  Programms  muBten  auch  wir 
mehr  als  oft  versteckte  Fehler  suchen  und  ausmerzen,  bis  alles 
zufriedenstellend    lief.    Programmierers    Leid,    Programmierers 
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Freud.  Fest  steht,  wenn  Sie  alles,  was  hier  beschrieben  wurde, 
verstanden  haben,  dann  haben  Sie  eine  ziemlich  perfekte 
Grundlage  fur  die  Grafikprogrammierung  auf  dem  Amiga. 

Zu  guter  Letzt  wollen  wir  noch  ein  paar  Tips  und  Anmerkungen 
loswerden:  Nach  dem  Starten  dauert  es  einen  Augenblick,  bis  das 
Programm  benutzt  werden  kann.  In  dieser  Zeit  werden  die  Vor- 
bereitungen  durchgefuhrt.  Aber  schon  nach  wenigen  Sekunden 
ist  das  Programm  einsatzbereit. 

Ein  Wort  zum  Mauszeiger:  Sie  werden  merken,  daB  die 
Standardform  des  Zeigers  zum  Zeichnen  nicht  so  gut  geeignet 
ist.  Das  liegt  haupts&chlich  daran,  daB  Sie  nicht  genau  sehen 
kflnnen,  wo  der  Punkt  ist,  mit  dem  Sie  zeichnen.  Bei  Bedarf 
k6nnen  Sie  sich  mit  Preferences  einen  Zeichen-Cursor  nach  ei- 
genen  Vorstellungen  konstruieren.  Ein  Fadenkreuz  ware  z.B. 
recht  gut  geeignet. 

Zum  Thema  Muster:  Sie  kdnnen  mit  den  Fullmustern  Flachen 
fullen  und  dicke  Linien  zeichnen.  Aber  Achtung:  Wenn  das 
Fiillmuster  Locher  aufweist,  kdnnen  Sie  auch  keine  um- 
schlieflende  Linie  damit  erzeugen.  Falls  Sie  eine  solche  Linie  als 
Begrenzung  beim  Ausmalen  verwenden,  lauft  die  Farbe  aus  und 
zerstdrt  wahrscheinlich  Teile  Ihres  Bildes.  Deshalb  sollte  (wie  in 
unserer  Grundeinstellung)  eines  der  neun  Muster  immer  ein 
voiles,  einfarbiges  Muster  sein,  auf  das  Sie  bei  Bedarf  zuruck- 
greifen  konnen. 

SchlieBlich  noch  etwas  zum  Schreiben  von  Texten  im  Bild.  Diese 
Option  sollten  Sie  ohnehin  sparsam  anwenden,  denn  zuviel  Text 
in  Bildern  schiagt  schnell  die  grafischen  Anteile  tot.  Beim  Text- 
schreiben  wird  die  Zeichenfarbe  fur  den  Text  und  die  Ausmal- 
farbe  fur  den  unterlegenden  Balken  verwendet.  So  konnen  Sie 
Text  in  gefiillte  Flachen  einpassen.  Fullmuster  kann  die  Text- 
Option  jedoch  nicht  verwenden.  Text  hat  beim  Schreiben  Prio- 
rity iiber  die  Grafik.  Die  Teile  der  Grafik,  die  unter  dem  Text 
liegen,  werden  verdeckt.  Wenn  Sie  auf  den  leeren  Bildschirm 
schreiben  wollen,  wahlen  Sie  einfach  vorher  die  Hintergrund- 
farbe  als  Ausmalfarbe. 


286 AmigaBASIC 


Diese  Tips  sollten  Ihnen  helfen,  das  Malprogramm  optimal  ein- 
zusetzen.  Damit  ist  dieses  Kapitel  und  iiberhaupt  der  Grafik- 
Teil  des  Buchs  vorbei.  Bleibt  uns  nur  noch,  Ihnen  viel  SpaB 
beim  Malen  zu  wiinschen  und  naturlich  bei  all  den  vielen  Expe- 
rimented die  Sie  jetzt  damit  anstellen  kflnnen.  Naturlich  nur 
unter  der  Voraussetzung,  Sie  haben  das  Programm  nach  dem  ei- 
genen  Eintippen  auch  abgespei...  Ach,  lassen  wir  das  -  wir  un- 
terhalten  uns  ja  jetzt  schon  fast  von  Profi  zu  Profi. 


II.  Der  Daten-Amiga 


^  O-  <?r 
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3.     Ein  Herz  fur  Daten  -  Disketlen  und 
Dateiverwaltung 

Und  schon  sind  wir  im  zweiten  groBen  Teil  dieses  Buchs. 
Hoffentlich  haben  Sie  sich  vorher  auch  eine  kleine  Pause 
gegonnt.  Die  hatten  Sie  wirklich  verdient.  Nachdem  wir  uns  bis- 
her  ausfiihrlich  mit  den  Themen  Grafik  und  Animation  be- 
schaftigt  haben,  geht  es  jetzt  urn  die  Dinger,  die  fur  die  Daten- 
verarbeitung  so  wichtig  sind:  Die  Daten.  Ihr  bevorzugter  Auf- 
enthaltsort  sind  Disketten.  Aber  auch  im  Speicher  des  Amiga 
trifft  man  eine  Vielzahl  von  Vertretern  dieser  Spezies.  Was  man 
mit  ihnen  anfangen  kann,  erfahren  Sie  in  den  nachsten  Kapiteln. 
Und  nicht  zuletzt  springen  dabei  fur  Sie  wieder  einige  niitzliche 
Programme  heraus. 

Zunachst  wollen  wir  uns  eine  geeignete  Umgebung  fur  die 
kommenden  Experimente  schaffen:  Es  wird  hochste  Zeit, 
AmigaBASIC  und  seinen  Programmen  eine  eigene  Diskette  zu 
gonnen.  SchlieBlich  sind  wir  immer  noch  zu  Gast  auf  der 
Extras-Diskette.  Dort  kann  man  uns  aber  nicht  mehr  allzu  lange 
Gastfreundschaft  gewahren. 

3.1        AmigaBASIC  zieht  um  -  Anlegen  einer  eigenen  BASIC- 
Diskette 

Wir  haben  uns  eigentlich  recht  unverschamt  breit  gemacht  auf 
der  Extras-Diskette.  Einfach  eine  eigene  Programm-Schublade 
angelegt  und  dann  kraftig  und  ohne  viel  daruber  nachzudenken 
unsere  Programme  dort  hineingeschaufelt.  Wenn  Sie  bereits  viele 
eigene  Programme  abgespeichert  haben,  ist  es  aber  mittlerweile 
ziemlich  eng  geworden  in  unserer  Gast-Unterkunft.  "Extras"  war 
vorher  schon  recht  voll:  AmigaBASIC  allein  nimmt  einigen  Platz 
in  Anspruch,  die  Beispiele  aus  der  "BasicDemos'^Schublade  tun 
ein  Ubriges,  und  die  Schubladen  "FD1.2"  und  "Tools"  belegen 
auch  ein  gutes  Stuck  Disketten-Platz. 


Disketten  und  Dateiverwaltung 289 


Wir  hoffen  es  ja  nicht,  aber  vielleicht  ist  Ihnen  das  folgende  so- 
gar  schon  passiert:  Wenn  Sie  sehr  haufig  verschiedene  Pro- 
gramme abspeichern,  ist  die  Extras-Diskette  irgendwann  voll.  In 
diesem  Fall  erscheint  zuerst  ein  Dialog-Window.  So  heiBen  die 
Windows,  in  denen  Sie  aufgefordert  werden,  eine  bestimmte 
Diskette  einzulegen  oder  etwas  ahnliches  zu  tun.  Sie  werden  von 
der  Workbench  erzeugt.  In  dem  Dialog-Window  steht  zu  lesen 
"Volume  Extras  1.2  is  full".  Die  Diskette  "Extras  1.2"  ist  also 
dem  Platzen  nahe.  Das  Abspeichern,  das  diese  Nachricht  zur 
Folge  hatte,  kann  nicht  mehr  korrekt  durchgefuhrt  werden.  Be- 
statigen  Sie,  daB  Sie  den  Inhalt  des  Windows  gelesen  haben,  in- 
dem  Sie  ins  Feld  "Cancel"  klicken.  Moglicherweise  laBt  sich  das 
Window  beim  ersten  Mai  davon  noch  nicht  beirren,  es  taucht 
vielmehr  ein  zweites  Mai  auf.  Das  passiert  manchmal  und  ist 
wahrscheinlich  ein  Fehler  in  der  gegenwartigen  Version  der 
Workbench.  Wahlen  Sie  einfach  nochmal  "Cancel". 

Als  ob  es  noch  nicht  genug  ware,  bringt  im  AnschluB  daran 
AmigaBASIC  noch  eine  eigene  Fehlermeldung:  "Disk  full". 
Klicken  Sie  wie  gewohnt  ins  OK-Feld  der  Meldung. 

Sollten  Sie  all  das  bereits  erlebt  haben,  interessiert  Sie  sicher, 
was  Sie  tun  konnen,  urn  wieder  ausreichend  Platz  zum  Abspei- 
chern Ihrer  Programme  zu  bekommen.  Und  selbst  wenn  das  Pro- 
blem fur  Sie  noch  nicht  aktuell  ist,  allzulange  wiirde  es  wahr- 
scheinlich nicht  mehr  dauern.  Die  Losung  ist  ganz  einfach:  Wir 
legen  eine  eigene  Diskette  fur  AmigaBASIC  und  seine  Pro- 
gramme an.  Dazu  brauchen  Sie  eine  Leerdiskette  bzw.  eine  Dis- 
kette, deren  Inhalt  geloscht  werden  darf. 

Die  Arbeiten,  die  zum  Anlegen  einer  Diskette  notwendig  sind, 
k6nnen  nicht  von  AmigaBASIC  aus  erledigt  werden,  wir  miissen 
auf  die  Workbench  zuruckkehren.  Wenn  Sie  kein  Programm 
mehr  im  Speicher  haben,  wahlen  Sie  bitte  "Quit"  aus  dem  Pro- 
ject-Menu Oder  geben  Sie  den  Befehl  SYSTEM  im  BASIC-Win- 
dow  ein.  Was  aber,  wenn  mitten  im  Abspeichern  eines  wichtigen 
Programms  ein  "Disk  full"-Error  aufgetreten  ist?  Noch  ist  Ihr 
Programm  ja  nicht  auf  Diskette  abgespeichert.  Falls  Sie  jetzt 
AmigaBASIC  verlassen,  verlieren  Sie  das  Programm.  Also  halten 
wir  das  aktuelle  BASIC-Programm  einfach  im  Speicher.   Dank 
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der  Multitasking-Fahigkeit  des  Amiga  ist  das  problemlos  mOg- 
lich.  Klicken  Sie  das  LIST-Window  aus  und  verkleinern  Sie  das 
BASIC-Window  auf  die  kleinstmogliche  GroBe.  Verschieben  Sie 
es  dann  an  eine  Stelle  des  Bildschirms,  wo  es  Sie  nicht  weiter 
stort.  Jetzt  muft  AmigaBASIC  im  Hintergrund,  und  Sie  konnen 
mit  der  Workbench  arbeiten. 

Urn  die  Workbench  zu  aktivieren,  klicken  Sie  bitte  an  eine  be- 
liebige  Stelle  auBerhalb  des  BASIC-Windows.  Also  sozusagen 
einfach  ins  Blaue.  In  der  Kopfleiste  erscheint  der  Text  "Work- 
bench release  1.2:"  und  dahinter  der  Speicherplatz,  der  Ihnen  zur 
Verfugung  steht. 

Entnehmen  Sie  bitte  "Extras"  aus  dem  eingebauten  Laufwerk 
und  legen  Sie  Ihre  Leerdiskette  ein.  Zuerst  miissen  wir  die  neue 
Diskette  formatieren.  Wenn  Sie  das  jetzt  zum  ersten  Mai  ma- 
chen,  wissen  Sie  wahrscheinlich  gar  nicht,  wozu  es  uberhaupt 
ndtig  ist.  Deshalb  eine  kurze  Erkiarung. 

Eine  Diskette  ist  im  Prinzip  nichts  weiter  als  eine  Plastikscheibe 
in  einer  Umhullung.  Ihr  Amiga  benotigt  sogenannte  3i  Zoll- 
Disketten.  Das  bedeutet,  dafi  die  Disketten  einen  Durchmesser 
von  31  Zoll  (8,9  cm)  haben.  Solche  Disketten  werden  in  fast  al- 
ien Computern  verwendet,  die  in  letzter  Zeit  auf  den  Markt  ka- 
men.  Noch  vor  wenigen  Jahren  wurden  fur  Home-  und  Perso- 
nal-Computer vorwiegend  5i  Zoll-Disketten  (Durchmesser 
13,3  cm)  benutzt.  Die  sind  aber  empfindlicher  und  nicht  so 
einfach  zu  transportieren.  Die  Plastikscheibe  im  Inneren  der 
Diskette  kann  magnetisiert  werden.  Das  erledigt  ein  Magnetkopf, 
der  Schreib-/Lesekopf  heiBt,  weil  er  Bits  auf  die  Diskette 
schreibt  und  sie  dann  spater  wieder  liest.  Positive  bzw.  negative 
Magnetisierung  entsprechen  "Bit  an"  bzw.  "Bit  aus".  Aus  den  Bits 
setzen  sich  Bytes  zusammen  und  aus  den  Bytes  Daten  oder  Pro- 
gramme. 

Die  Bits  werden  auf  konzentrischen  (=  ineinanderliegenden) 
Spuren  aufgezeichnet.  Eine  Diskette  ist  also  vom  technischen 
Hintergrund  her  eine  Kombination  aus  Schallplatte  und  Magnet- 
band-Kassette.  Die  Spuren  miissen  vor  dem  ersten  Gebrauch  der 
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Diskette  vorbereitet  werden,  damit  sich  die  Schreib-/Lesekopfe 
des  Diskettenlaufwerks  spater  zurechtfinden.  Ein  "Format"  wird 
erzeugt,  und  dazu  dient  das  Formatieren. 

Vielleicht  fragen  Sie  sich,  warum  die  Spuren  nicht  von  vorn- 
herein  auf  der  Diskette  sind.  Das  liegt  daran,  daB  Sie  3i  Zoll- 
Disketten  fur  verschiedene  Computer  verwenden  konnen.  Ver- 
schiedene  Computer  haben  aber  verschiedene  Disketten-Formate. 
Obwohl  die  Disketten  dieselben  sind,  werden  die  Informationen 
in  unterschiedlicher  Weise  aufgezeichnet.  Die  Anzahl  der  Spu- 
ren, die  Abstande  der  Spuren,  die  Codierung  der  Informationen 
und  die  Steuer-Informationen  auf  der  Diskette  unterscheiden 
sich  so  sehr  voneinander,  daB  z.B.  ein  Atari  ST-Computer  mit 
einer  Amiga-Diskette  nicht  das  geringste  anfangen  kann.  Er 
kann  das  Format  der  Diskette  nicht  verarbeiten.  Deshalb  muB 
jeder  Computer  seine  Disketten  so  vorbereiten,  daB  er  damit  ar- 
beiten  kann. 

Ihr  Amiga  kann  verschiedene  Diskettenformate  verarbeiten.  Im 
Normalfall  werden  die  Disketten  unter  AmigaDOS  verwaltet. 
Das  Kurzel  DOS  spricht  sich  wie  BoB,  nur  mit  D  am  Anfang.  Es 
steht  fur  den  englischen  Ausdruck  "Disk  Operating  System" 
(Disketten-Betriebssystem).  AmigaDOS  ist  ein  Programm,  das 
fur  die  Steuerung  und  Verwaltung  der  Ein-  und  Ausgabe  bei 
Disketten  zustandig  ist.  Wenn  auf  dem  Amiga  ein  anderes  DOS 
lauft,  kann  er  auch  andere  Diskettenformate  lesen.  Der  Amiga 
kann  zum  Beispiel  durch  eine  softwaremaBige  MS-DOS-Anpas- 
sung  das  Diskettenformat  des  IBM  PC  verarbeiten.  Solange  Sie 
sich  nur  mit  AmigaBASIC  beschaftigen,  brauchen  Sie  die  frem- 
den  Formate  aber  nicht  zu  interessieren. 

Fur  diejenigen  unter  Ihnen,  die  gem  technische  Daten  wissen 
mflchten:  Das  AmigaDOS-Diskettenformat  verwendet  80  Spuren, 
benutzt  dazu  beide  Diskettenseiten  und  kann  880  KByte  pro 
Diskette  speichern.  Beide  Seiten  der  Diskette  werden  beschrie- 
ben,  dazu  haben  die  Diskettenlaufwerke  des  Amiga  zwei  gegen- 
uberliegende  Schreib-/Lesekopfe.  Deshalb  sollten  Sie  beim  Kauf 
ubrigens  darauf  achten,  daB  Sie  "Double  Sided"-Disketten  kau- 
fen,  also  Disketten,  die  auf  beiden  Seiten  gepriift  sind.  Wenn  Sie 
eine  unformatierte  Diskette  eingelegt  haben,  ist  auf  der  Work- 
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bench-Oberflache  ein  Disketten-Icon  erschienen,  das  den  Namen 
"DF0:BAD"  hat,  bzw.  "DFLBAD"  oder  "DF2:BAD",  wenn  Sie  ein 
externes  Diskettenlaufwerk  besitzen  und  die  Leerdiskette  dort 
eingelegt  haben.  Was,  bitteschSn,  hat  das  MBADM  jetzt  wieder  zu 
bedeuten?  Da  AmigaDOS  die  Diskette  nicht  lesen  kann,  bezeich- 
net  es  sie  als  "BAD"  (schlecht,  fehlerhaft).  Solche  Disketten  sind 
entweder  uberhaupt  nicht  formatiert  oder  sie  haben  ein  Format, 
das  AmigaDOS  nicht  kennt.  Auch  MS-DOS-Disketten  bezeichnet 
AmigaDOS  als  "BAD". 

Achten  Sie  bitte  unbedingt  darauf,  daB  die  Diskette,  die  forma- 
tiert werden  soil,  keine  wichtigen  Programme  oder  Daten  ent- 
hait.  Der  alte  Inhalt  geht  unwiederbringlich  verloren.  Damit  Sie 
immer  wissen,  welchen  Inhalt  eine  Diskette  hat,  sollten  Sie  sie 
mit  einem  Aufkleber  kennzeichnen,  auf  dem  mindestens  der 
Name  der  Diskette  steht.  Solche  Aufkleber  werden  bei  Leer- 
disketten  mitgeliefert. 

Wenn  Sie  nach  all  unseren  Erkiarungen  und  Warnungen  sicher 
sind,  daB  Sie  die  gerade  im  internen  Laufwerk  liegende  Diskette 
formatieren  wollen,  dann  aktivieren  Sie  jetzt  bitte  das  Icon  der 
neuen  Diskette.  Klicken  Sie  einmal  auf  das  Symbol,  so  daB  die 
Diskette  schwarz  wird.  Wahlen  Sie  dann  aus  dem  Disk-Pulldown 
den  Menupunkt  "Initialize".  Die  Begriffe  "initialisieren"  (uber- 
setzt  etwa:  vorbereiten)  und  "formatieren"  werden  beide  fur  den 
gleichen  Vorgang  verwendet,  namlich  das  Schreiben  der  Spuren 
auf  eine  neue  Diskette.  Ein  Window  erscheint,  in  dem  Sie  auf- 
gefordert  werden,  die  Workbench-Diskette  einzulegen.  Wenn  Sie 
zwei  Diskettenlaufwerke  besitzen,  sollte  sich  die  Workbench  im 
zweiten  Laufwerk  befinden.  Bei  nur  einem  Laufwerk  entnehmen 
Sie  bitte  die  Leerdiskette  und  legen  Sie  die  Workbench  ein. 

Nach  kurzem  Laden  bittet  Sie  der  Amiga,  die  Leerdiskette  zu- 
riick  ins  Laufwerk  zu  legen.  Zur  Sicherheit  fragt  er  aber  nach: 
"OK  to  Initialize  disk  in  drive  0  (all  data  will  be  erased)  ?"  oder 
auch  "OK  to  Initialize  disk  ..."  gefolgt  vom  Namen  der  Diskette. 
Sie  sollen  also  bestatigen,  daB  Sie  die  Diskette  im  Laufwerk  0 
formatieren  wollen.  Und  Sie  sind  einverstanden,  daB  dabei  alle 
Daten  auf  der  Diskette  gel6scht  werden.  Zu  den  Laufwerks- 
bezeichnungen:  Das  interne  Laufwerk  bezeichnet  AmigaDOS  als 
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Laufwerk  (engl.:  drive)  0,  das  erste  Zusatz-Laufwerk  hat  die 
Nummer  1.  Wenn  Sie  einen  Amiga  2000  besitzen  und  nur  ein 
Diskettenlaufwerk  eingebaut  haben,  bezeichnet  AmigaDOS  Ihr 
externes  Laufwerk  allerdings  trotzdem  als  DF2:.  Wenn  Sie  damit 
nicht  gliicklich  werden  kdnnen,  empfehlen  wir  Ihnen,  unser  MDas 
groBe  Amiga-2000-Buch"  zu  lesen.  Dort  finden  Sie  unter  an- 
derem  auch  einen  Trick,  wie  man  die  Problematik  mit  den 
Laufwerksbezeichnungen  umgehen  kann.  Nun  aber  genug  der 
Werbung  und  weiter  mit  dem  Formatieren  unserer  Leerdiskette. 

Wenn  Sie  ins  Feld  "Continue"  (Weitermachen)  klicken,  beginnt 
unwiderruflich  die  Formatierung.  Die  80  Spuren  werden  auf  die 
Diskette  geschrieben  und  dabei  gleich  gepruft.  Im  "Initialize"- 
Window  steht,  welche  Spur  gerade  bearbeitet  wird  und  wieviele 
noch  zu  erledigen  sind.  Die  erste  Spur  ist  Spur  Nummer  0,  die 
letzte  Spur  hat  die  Nummer  79.  Das  Wort  "Formatting"  ist  zu 
lesen,  wahrend  die  Spur  angelegt  wird.  "Verifying"  bedeutet,  daft 
sie  uberpriift  wird. 

Sollte  beim  Uberprufen  ein  Fehler  festgestellt  worden  sein,  er- 
scheint  eine  entsprechende  Meldung.  Sie  kann  verschiedene  Ur- 
sachen  haben.  Wiederholen  Sie  den  Formatierungsvorgang  noch 
ein-  oder  zweimal.  Wenn  es  gar  nicht  klappt,  hat  vielleicht  die 
Diskette  einen  mechanischen  Fehler.  Probieren  Sie  eine  andere 
Diskette  aus.  Treten  auch  hier  Probleme  auf,  sollten  Sie  sich  an 
Ihren  Handler  wenden.  Wir  wollen  aber  hoffen,  daB  alles  richtig 
funktioniert.  Das  ist  ja  auch  der  Normalfall. 

Wenn  die  80  Spuren  angelegt  sind,  ist  die  Formatierung  aber 
noch  nicht  zu  Ende.  Das  teilt  Ihnen  auch  Ihr  Amiga  mit,  indem 
er  ins  "Initialize"-Window  schreibt:  "WARNING:  Initialize  Still  In 
Progress.  DO  NOT  REMOVE  DISK."  Auf  Deutsch:  Die  Initiali- 
sierung  (Formatierung)  ist  noch  im  Gange,  Diskette  nicht  ent- 
nehmen!  Die  Laufwerkslampe  kann  zwar  fur  einige  Sekunden 
ausgehen,  warten  Sie  aber  trotzdem!  Kurz  darauf  werden  nSm- 
lich  noch  wichtige  Steuerinformationen  auf  die  Diskette  ge- 
schrieben. Dann  erst  ist  der  Amiga  mit  allem  fertig.  Die  forma- 
tierte  Diskette  tragt  jetzt  den  Namen  "Empty".  Das  heiBt  "leer", 
und  die  Diskette  ist  ja  in  der  Tat  auch  fast  leer. 
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Klicken  Sie  die  "Empty"- Diskette  an.  Ein  einsamer  Mulleimer 
(=  Trashcan)  befindet  sich  im  entstandenen  Window.  Die 
Fullanzeige  auf  der  linken  Seite  zeigt  an,  daB  die  Diskette  ganz 
leer  ist.  Wir  wollen  sie  jetzt  Schritt  fur  Schritt  mit  ihrem  Inhalt 
fullen. 

Sicher  sind  Sie  mit  uns  einer  Meinung,  daB  "Empty"  auf  Dauer 
kein  sehr  passender  Name  fur  Ihre  BASIC-Diskette  ist.  Also  an- 
dern  wir  ihn.  Sollte  das  Icon  der  "Empty"-Diskette  nicht  mehr 
schwarz  sein,  aktivieren  Sie  es  bitte  wieder.  Wahlen  Sie  dann 
"Rename"  aus  dem  "Workbench"-Pulldown.  Eine  schmale  Einga- 
bezeile  erscheint  in  der  Mitte  des  Bildschirms.  Klicken  Sie  ein- 
mal  mit  der  Maus  in  diese  Zeile,  dann  kdnnen  Sie  den  neuen 
Namen  eintippen.  Urn  das  Wort  "Empty"  zu  16schen,  drucken  Sie 
bitte  mehrmals  die  <DEL>-Taste. 

Wir  brauchen  einen  sinnvollen  Diskettennamen.  Wie  w£re  es  mit 
"BASICDisk"?  Geben  Sie  diesen  Namen  bitte  ein  und  drucken 
Sie  <RETURN>.  "Empty"  wird  in  "BASICDisk"  umgetauft.  Be- 
achten  Sie,  daB  sich  auch  der  Window-Titel  sofort  andert. 

SchlieBen  Sie  das  "BASICDisk"- Window  bitte  noch  nicht.  Wir 
wollen  jetzt  verschiedene  Programme  auf  die  neue  Diskette  ko- 
pieren.  Zuerst  kommt  AmigaBASIC  an  die  Reihe.  Legen  Sie  also 
bitte  "Extras"  ein.  Mit  zwei  Laufwerken  sind  Sie  jetzt  natiirlich 
wesentlich  komfortabler  dran:  Entnehmen  Sie  einfach  die  Work- 
bench aus  Drive  1  (dem  zweiten  Laufwerk)  und  legen  Sie  dort 
die  "Extras"-Diskette  ein.  Besitzen  Sie  nur  ein  Laufwerk,  werden 
Sie  zum  Kopieren  mehrmals  Ihre  Disketten  wechseln  mussen. 
Vergessen  Sie  bitte  keinesfalls:  Disketten  durfen  erst  aus  dem 
Laufwerk  entnommen  werden,  wenn  die  rote  Lampe  erloschen 
ist.  Andernfalls  riskieren  Sie  kompletten  Datenverlust. 

Klicken  Sie  das  "ExtrasD"-Icon  an.  Das  zugehorige  Window  er- 
scheint auf  der  Workbench.  Bewegen  Sie  dann  den  Mauszeiger 
auf  das  Icon  von  AmigaBASIC,  drucken  Sie  die  linke  Maustaste 
und  bewegen  Sie  den  Mauszeiger  mit  gedrucker  Taste  ins 
"BASICDisk"-Window.  Mit  der  Maus  bewegen  Sie  jetzt  eine  Ko- 
pie  des  AmigaB ASIC-Icons.  Lassen  Sie  dann  die  Maustaste  los. 
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Urn  Objekte  auf  der  Workbench  zu  kopieren,  verschieben  Sie 
einfach  das  Icon  aus  dem  alten  Window  ("ExtrasD")  in  das  neue 
Window  ("BASICDisk"). 

Wenn  Sie  zwei  Laufwerke  besitzen,  wird  in  einem  Durchgang 
kopiert.  Wahrend  des  eigentlichen  Kopiervorgangs  nimmt  der 
Mauszeiger  die  Form  des  bekannten  Schlaf-Wfllkchens  an.  Bei 
nur  einem  Laufwerk  mussen  Sie  dreimal  zwischen  "Extras"  und 
"BASICDisk"  wechseln.  Die  Workbench  zeigt  Ihnen  in  einem 
Dialog-Window,  welche  Diskette  sie  jeweils  benotigt.  1st  das 
Kopieren  beendet,  erscheint  auch  im  "BASICDisk"-Window  das 
AmigaBASIC-Icon. 

Jetzt  kommen  die  BASIC-Programme  an  die  Reihe.  Sie  konnen 
eine  Schublade,  die  Programme  enthalt,  genauso  kopieren  wie 
ein  einzelnes  Programm.  Je  nachdem,  wieviel  Speicher  Sie  zur 
Verfiigung  haben  und  wie  voll  die  Schublade  ist,  wird  das  bei 
einem  einzelnen  Laufwerk  einige  Diskettenwechsel  erfordern. 
Kopieren  Sie  bitte  Ihre  Programm-Schublade  von  der  "Extras"- 
auf  die  "BASICDisk"-Diskette.  Ubrigens:  Es  wird  wirklich  ko- 
piert. Das  heiBt,  es  ist  nicht  so,  daB  die  Schublade  mit  Ihren 
BASIC-Programmen  von  einer  Diskette  auf  die  andere  gebracht 
wird.  Sie  ist  noch  immer  auf  der  "Extras"  vorhanden.  Sobald  Sie 
irgendetwas  von  einem  Diskettenfenster  auf  ein  anderes  legen, 
wird  kopiert,  das  Programm  ist  also  spater  auf  beiden  Disketten 
vorhanden.  Anders  ist  es,  wenn  Sie  innerhalb  einer  Diskette  be- 
stimmte  Dinge  zum  Beispiel  von  einer  Schublade  in  eine  andere 
legen.  Dann  wird  nicht  kopiert,  sondern  richtig  verschoben.  Das 
aber  nur  als  Hintergrundinformation  fiir  Sie. 

Jetzt  haben  Sie  erstmal  Ihre  eigenen  Werke  und  die  bisherigen 
Beispielprogramme  umgelagert.  Die  Programme  befinden  sich 
aber  noch  sehr  ungeordnet  in  ihrer  Schublade.  Wir  sollten  die 
Moglichkeiten  ausnutzen,  die  uns  die  Workbench  zum  Auf- 
rSumen  bietet. 

Das  "BASICDisk"-Window  lassen  Sie  bitte  gedffnet.  SchlieBen  Sie 
aber  das  "ExtrasD"-Window  und  affnen  Sie  dafur  das  Work- 
bench-Window. Wie  Sie  schon  wissen,  werden  Besitzer  eines 
einzelnen     Laufwerks     aufgefordert,     die     Workbench-Diskette 
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einzulegen.  Solche  Aufforderungen  erw&hnen  wir  ab  jetzt  nicht 
mehr,  da  es  dabei  keine  Unklarheiten  mehr  geben  aurfte.  Ver- 
trauen  Sie  einfach  auf  Amiga  -  er  weiB  schon,  was  fur  ihn  gut 
ist. 

Im  einem  vorhergehenden  Zwischenspiel  haben  wir  die  Schub- 
lade  fur  Ihre  BASIC-Programme  angelegt.  Sie  k6nnen  sich  viel- 
leicht  noch  erinnern,  wie  das  geht:  Im  Workbench-Window  be- 
findet  sich  eine  Schublade  namens  "Empty".  Wenn  Sie  neue, 
leere  Schubladen  benotigen,  kopieren  Sie  einfach  die  "Empty"  - 
Schublade.  Verschieben  Sie  also  das  Icon  mit  gedruckter  linker 
Maustaste  vom  alten  Window  in  das  neue  und  lassen  Sie  dann 
los.  Das  Kopieren  von  Objekten  auf  der  Workbench  haben  Sie 
jetzt  schon  so  oft  ausgefuhrt,  dafi  wir  es  Ihnen  von  nun  an  auch 
nicht  mehr  erkl&ren  mussen. 

Danach  klicken  Sie  das  Workbench-Window  bitte  aus,  wir 
brauchen  es  jetzt  nicht  mehr.  Alle  verbleibenden  AufrSum-Ar- 
beiten  fuhren  wir  auf  unserer  neuen  "BASICDisk"  aus. 

Da  wir  in  Zukunft,  soweit  es  AmigaBASIC  betrifft,  fast  aus- 
schlieBlich  mit  dieser  Diskette  arbeiten  wollen,  sollten  wir  schon 
ein  wenig  Muhe  darauf  verwenden,  sie  sinnvoll  und  iibersicht- 
lich  anzulegen.  Wenn  Sie  Ihre  Wohnung  einrichten,  wollen  Sie  ja 
auch  auf  zukiinftige  Neuanschaffungen  vorbereitet  sein.  Oder 
stellen  Sie  jedesmal  Ihre  Biicherregale  urn,  nur  weil  Sie  sich  ein 
neues  Buch  gekauft  haben?  Wir  haben  uns  Gedanken  gemacht, 
was  an  Programmen  so  alles  entstehen  k6nnte.  Folgende 
Schubladen  sollten  angelegt  werden: 

-  Videotitel 

-  Grafik 

-  Malprogramm 

-  Daten 

-  Sprache 
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Verschiedenes 


Insgesamt  bencHigen  wir  sieben  Schubladen.  Auf  sie  wollen  wir 
den  gegenwartigen  Inhalt  von  "Meine  Programme"  (oder  wie  Ihre 
bisherige  Programmschublade  eben  hie/3)  und  zukunftige  Pro- 
gramme verteilen. 

Das  Zauberkunststuckchen  "Aus  eins  mach  sieben"  beherrscht  Ihr 
Amiga  ganz  souverfcn:  Aktivieren  Sie  die  "Empty"-Schublade  und 
wahlen  Sie  "Duplicate"  (duplizieren,  verdoppeln)  aus  dem  "Work- 
bench"-Pulldown.  Wenige  Augenblicke  spater  erscheint  die  neue 
Schublade  "copy  of  Empty".  Jetzt  haben  wir  schon  zwei.  Um  die 
Ubersicht  zu  behalten,  versehen  Sie  bitte  gleich  die  einzelnen 
Schubladen  mit  ihren  spateren  Namen.  Dazu  aktivieren  Sie  die 
jeweils  neue  Schublade  und  wShlen  "Rename"  aus  dem  Work- 
bench-Pulldown. Da  Sie  vor  der  Eingabe  des  neuen  Namens  je- 
desmal  den  Text  "Empty"  oder  "copy  of  Empty"  loschen  mussen, 
verraten  wir  Ihnen  an  dieser  Stelle  einen  Trick:  Anstatt  den  alten 
Text  Zeichen  fur  Zeichen  mit  <DEL>  zu  loschen,  konnen  Sie  die 
Tastenkombination  <offene  Amiga-Tastexx>  verwenden.  Schie- 
ben  Sie  die  gerade  bearbeitete  Schublade  etwas  zur  Seite,  damit 
wir  genug  Platz  fur  die  nSchste  haben.  Nach  dem  gleichen  Re- 
zept  erzeugen  Sie  jetzt  bitte  funf  weitere  Schubladen. 

Wenn  Sie  damit  fertig  sind,  liegen  die  Schubladen  wahrschein- 
lich  kreuz  und  quer  im  MBASICDisk"-Window  herum.  Durch 
Verschieben  mit  dem  Mauscursor  kfinnen  Sie  die  Icons  nach  Be- 
lieben  anordnen.  Wenn  Sie  sich  an  unser  zweites  Zwischenspiel 
erinnern  oder  Erfahrungen  von  vorherigen  Arbeiten  auf  der 
Workbench  haben,  wissen  Sie,  daB  derartige  Aufraumaktionen 
wenig  Eindruck  auf  den  Amiga  machen,  solange  Sie  ihnen  nicht 
den  n6tigen  Nachdruck  verleihen.  Das  erreichen  Sie,  indem  Sie 
mit  gedriickter  <SHIFT>-Taste  das  Icon  der  "BASICDisk"  sowie 
alle  Icons  innerhalb  des  Windows  aktivieren  und  dann  die  Op- 
tion "Snapshot"  aus  dem  "Special"-Pulldown  wahlen. 
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Das  Bild  zeigt  Ihnen,  wie  unser  "BASICDiskM-Window  nach  die- 
sen  Arbeiten  aussieht.  Natiirlich  durfen  Sie  Ihr  Window  auch 
anders  einteilen. 

Ihnen  wird  wahrscheinlich  auffallen,  daB  diese  Schubladenan- 
ordnung  exakt  der  Einteilung  der  Diskette  entspricht,  die  wir 
diesem  Buch  beigelegt  haben.  Das  ist  auch  kein  Wunder.  Genau 
nach  dem  von  uns  beschriebenen  Vorbild  haben  wir  unsere  Dis- 
kette im  Buch  namlich  organisiert.  Sie  sollten  trotzdem  fur  Ihre 
eigenen  Programm  eine  eigene  Diskette  anlegen.  Und  wenn  Sie 
die  Namensgleichheit  der  beiden  Disketten  stort,  dann  nennen 
Sie  doch  Ihre  Diskette  einfach  anders.  Wie  ware  es  zum  Beispiel 
mit  "Meine  BASICDisk"? 


Bild  12: 


Das  Window  der  BASICDisk 


Um  bei  unserem  Vergleich  von  vorhin  zu  bleiben:  Die  Mobel 
sind  jetzt  aufgebaut.  Als  niichstes  packen  wir  die  Dinge  aus,  die 
wir  in  den  Schubladen  unterbringen  wollen. 
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Unsere  Umzugskiste  ist  die  Schublade  "Meine  Programme".  Off- 
nen  Sie  diese  Schublade,  aber  wundern  Sie  sich  bitte  nicht,  wie 
unordentlich  die  einzelnen  Icons  darin  herumliegen.  Sie  wissen 
ja:  Freiwillig  ist  der  Amiga  nicht  gerade  ein  Ordnungsfanatiker. 
Ihre  nachste  Aufgabe  besteht  darin,  die  einzelnen  Programme 
den  Schubladen  zuzuordnen,  wo  sie  thematisch  am  besten 
hineinpassen.  Bringen  Sie  das  Ballprogramm  (unsere  Kostprobe 
aus  dem  ersten  Kapitel)  zum  Beispiel  in  die  Grafik-Schublade. 
Die  Workbench  sorgt  dafur,  daB  die  Programme  auf  der  Diskette 
von  einer  Schublade  in  die  andere  umkopiert  werden.  Falls  Sie 
seit  Beginn  dieses  Kapitels  im  Hintergrund  noch  ein  BASIC- 
Programm  stehen  haben,  wollen  wir  das  jetzt  auch  endlich  los- 
werden.  Dazu  ist  ein  Vorgriff  auf  einen  BASIC-Befehl  nGtig, 
den  Sie  aber  sowieso  demnSchst  ausfuhrlich  kennenlernen  wer- 
den. VergroBern  Sie  das  BASIC-Window,  das  sich  ja  immer  noch 
auf  der  Workbench-Oberfiache  befindet,  und  aktivieren  Sie  es. 
Geben  Sie  dann  den  Befehl 


chdir  "BASICDisk: 


ein,  gefolgt  vom  Namen  der  Schublade,  in  der  das  Programm 
abgelegt  werden  soil.  Fur  ein  Grafikprogramm  sieht  das  zum 
Beispiel  so  aus: 

chdir  "BASICDisk: Graf ik" 

Danach  kSnnen  Sie  mit  dem  SAVE-Befehl  oder  der  entspre- 
chenden  Pulldown-Option  Ihr  Programm  abspeichern.  Dann 
klicken  Sie  AmigaBASIC  bitte  ganz  aus. 

Zurtick  auf  der  Workbench  verteilen  Sie  bitte  die  restlichen  Pro- 
gramme auf  die  sieben  Schubladen.  In  die  Schublade  "Videotiter 
kommt  das  Videotitel-Programm,  alle  dazugeh6rigen  Bobs  sowie 
die  Grafikprogramme,  die  Sie  mit  dem  Videotitel-Programm 
mergen  wollen.  In  "Grafik"  haben  wir  unser  Balken/Torten-Uti- 
lity  untergebracht,  auBerdem  alle  Beispielprogramme  aus  dem 
ersten  Teil  des  Buchs,  soweit  sie  Grafik  oder  Animation  betref- 
fen.  Die  "MalprogramnT-Schublade  beinhaltet  das  Malprogramm 
und  die  Muster-Dateien,  die  Sie  beim  Ausprobieren  eventuell 
abgespeichert   haben.    "Daten",    "Musik"    und    "Sprache"    bleiben 
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zunachst  noch  leer  (aber  wir  hoffen,  die  Spannung  steigt  schon 
wieder,  was  da  wohl  zum  SchluB  drin  sein  wird),  und  in  der 
Schublade  "Verschiedenes"  kOnnen  Sie  alles  unterbringen,  was 
sonst  nirgends  hinpaBt.  Das  alles  ist  naturlich  nur  dann  ndtig, 
wenn  Sie  einige  oder  alle  Programme  aus  unserem  Buch  selbst 
eingetippt  haben.  Die  Programme  von  unserer  Diskette  im  Buch 
auf  Ihre  Arbeitsdiskette  zu  kopieren  ist  nicht  n5tig  und  ware 
auch  kaum  sehr  sinnvoll. 

Wenn  Sie  alle  Programme  verteilt  haben,  klicken  Sie  bitte  die 
einzelnen  Schubladen  an  und  raumen  Sie  mit  der  Snapshot- 
Funktion  in  den  zugehdrigen  Windows  auf.  Nachdem  Sie  auch 
das  erledigt  haben,  ist  Ihre  erste  eigene  BASIC-Diskette  ange- 
legt.  Mit  ihr  werden  wir  ab  jetzt  arbeiten. 

SchlieBen  Sie  bitte  alle  Windows  auBer  dem  "BASICDisk"-Win- 
dow  und  klicken  Sie  AmigaBASIC  an.  Im  nachsten  Kapitel  wer- 
den Sie  namlich  die  Befehle  zur  Arbeit  mit  Disketten  kennen- 
lernen,  die  Ihnen  AmigaBASIC  bietet. 


3.2        Von  Baumen,  Affen  und  rosa  Elefanten  -  BASIC- 
Befehle  zur  Arbeit  mit  Disketten 

Um  unsere  Diskette  zu  formatieren  und  einzurichten,  muBten 
wir  auf  die  Workbench  zuruckkehren.  AmigaBASIC  unterstutzt 
diese  Funktionen  nicht.  Trotzdem  gibt  es  eine  stattliche  Anzahl 
an  Befehlen  zur  Arbeit  mit  Disketten.  Einige  haben  Sie  schon 
kennengelernt:  Um  Programme  abzuspeichern,  verwenden  Sie 
SAVE,  und  um  sie  wieder  zu  laden,  gibt  es  LOAD.  Naturlich 
stehen  Ihnen  furs  Laden  und  Speichern  auch  Pulldown-Optionen 
zur  Verfugung.  Aber  sie  sind  eigentlich  auch  nur  getarnte  BA- 
SIC-Befehle:  Egal,  ob  Sie  "Open"  aus  dem  Project-Pulldown 
wahlen  oder  LOAD  im  BASIC-Window  eintippen  -  das  Resultat 
ist  in  beiden  Fallen  das  gleiche. 

Die  erste  neue  Funktion,  die  wir  Ihnen  vorstellen  wollen,  ist 
wichtig,  wenn  Sie  die  Ubersicht  behalten  wollen.  Denn  nach  ei- 
niger  Zeit  erinnern  Sie  sich  vielleicht  nicht  mehr  an  all  die  Na- 
men,  die  Sie  den  Programmen  beim  Abspeichern  gegeben  haben. 
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Sie  kSnnen  zwar  auf  der  Workbench-Oberfiache  nachschauen, 
aber  diese  Methode  ist  sehr  umstandlich  und  kostet  Zeit  und 
Speicherplatz.  Einfacher  haben  Sie  es  mit  einem  BASIC-Befehl. 
Probieren  Sie  ihn  gleich  mal  im  BASIC-Window  aus: 

f  i  les 

"Files"  heiBt  ubersetzt  "Dateien,  Akten".  Der  Befehl  FILES  zeigt 
die  Namen  aller  Dateien  im  aktuellen  Disketten-Inhaltsverzeich- 
nis  an.  Der  Begriff  "Datei"  beinhaltet  dabei  alles,  was  Sie  auf 
Diskette  abspeichern  konnen,  also  Programme,  Daten,  Bilder, 
Schriften  usw.  Und  was  verstehen  wir  unter  dem  "aktuellen  In- 
haltsverzeichnis"?  Schauen  Sie  sich  die  Bildschirmausgabe  an,  die 
wir  erhalten  haben.  In  der  ersten  Zeile  lesen  Sie 

Directory  of:    CBASICDisk] 

AmigaBASIC  teilt  Ihnen  mit,  welches  Inhaltsverzeichnis  ange- 
zeigt  wird.  Das  englische  Wort  "Directory"  heiBt  auf  Deutsch 
"Verzeichnis,  Telefonbuch".  "Directory"  wird  in  der  Computer- 
literatur  oft  verwendet,  wenn  das  Disketten-Inhaltsverzeichnis 
gemein.t  ist.  Verglichen  mit  der  Workbench,  wo  man  erstmal 
einen  Uberblick  uber  alles  bekommt,  sehen  Sie  zur  Zeit  nur  das 
Verzeichnis,  das  dem  Inhalt  des  "BASICDisk"-Windows  ent- 
spricht. 

AuBer  den  Programmnamen  (z.B.  "AmigaBASIC")  erscheinen 
noch  andere  Texte.  Wenn  Sie  genau  aufgepaBt  haben,  haben  Sie 
sicher  bemerkt,  daB  die  meisten  Namen  paarweise  auftreten.  Zu 
"AmigaBASIC"  gehdrt  zum  Beispiel  eine  weitere  Datei  namens 
"AmigaBASIC.info".  Urn  die  Aufgabe  dieser  Info-Dateien  zu 
verstehen,  miissen  Sie  ein  wenig  mehr  iiber  die  Funktionsweise 
der  Workbench  wissen.  Die  Workbench  stellt  jede  Datei  auf  der 
Diskette  durch  ein  Icon  dar.  Das  Aussehen  der  Icons  ist  nicht 
fest  definiert.  Sie  haben  sicher  schon  manche  Programme  gese- 
hen,  die  ein  eigenes,  individuelles  Icon  besitzen.  Vielleicht  haben 
Sie  auch  schon  mit  dem  Programm  IconEd  gearbeitet,  das  Sie 
auf  der  Workbench-Diskette  finden.  Mit  IconEd  kOnnen  Sie  das 
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Aussehen  von  Icons  beliebig  verandern.  Es  spielt  uberhaupt 
keine  Rolle,  flir  welche  Datei  das  Icon  steht,  Sie  konnen  ein  be- 
liebiges  Symbol  dafur  entwerfen. 

Da  zu  jedem  Programm  ein  eigenes  Icon  gehdrt,  muB  dessen 
Aussehen  aber  auch  irgendwo  abgespeichert  sein.  Genau  dafur 
gibt  es  die  Info-Dateien.  Sie  beinhalten  diese  Information. 
AuBerdem  gibt  die  Info-Datei  Auskunft  iiber  die  Lage  des  Icons 
innerhalb  seines  Windows  und  einige  weitere  Informationen,  die 
von  der  Workbench  benotigt  werden. 

Im  Inhaltsverzeichnis  tauchen  auBerdem  Namen  auf,  die  in  ecki- 
gen  Klammern  stehen.  Es  handelt  sich  um  Unter-Inhalts- 
verzeichnisse,  sie  entsprechen  den  Schubladen  auf  der  Work- 
bench. Auch  zu  diesen  Namen  gibt  es  Info-Dateien,  in  ihnen  ist 
das  Aussehen  des  Schubladen-Icons  gespeichert.  Das  Prinzip  von 
Unter-Inhaltsverzeichnissen  ist  ganz  einfach:  Innerhalb  eines  In- 
haltsverzeichnisses  konnen  sich  weitere  Inhaltsverzeichnisse  be- 
finden.  Und  innerhalb  eines  solchen  Unter-Inhaltsverzeichnisses 
weitere  Unter-Inhaltsverzeichnisse.  Das  Ganze  k5nnen  Sie  fort- 
fiihren,  solange  es  Ihnen  SpaB  macht  und  sinnvoll  erscheint. 

Um  untergeordnete  Inhaltsverzeichnisse  grafisch  zu  erklaren, 
sind  sogenannte  Baum-Strukturen  sehr  beliebt.  Sollten  Sie  jetzt 
etwas  unglaubig  auf  das  Bild  schauen,  miissen  wir  zugeben,  daB 
es  eher  an  einen  Baum  erinnert,  der  einen  gekonnten  Kopfstand 
vorfiihrt.  Trotzdem  zeigt  so  ein  Schema  recht  gut,  wie  man  sich 
aus  einem  iibergeordneten  Verzeichnis  durch  Unterverzeichnisse 
immer  weiter  zum  gesuchten  Punkt  durchwahlen  kann. 
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Amiga-Galerie 


Klassik 
Mona  Lisa   DurerSelbstbildnis 


BlauePapa3«ie\    \       Aniga  m  Sonnenuntergang 
\   KarierteHunde 

\ 

RosaElefant*n 


Bild  13:  Die  Baumstruktur  eines  DisketteninhaltsverEeichnisses 


Nehmen  wir  an,  wir  haben  eine  Diskette  namens  "AmigaGale- 
rie",  auf  der  Bilder  abgespeichert  sind.  Der  Disketten-Name  ist 
sozusagen  der  Baumstamm.  Auf  der  Diskette  gibt  es  die  beiden 
Inhaltsverzeichnisse  "Klassik"  und  "Modernes"  -  der  Baum  ver- 
zweigt  sich  in  zwei  groBe  Aste.  Wollen  Sie  z.B.  das  Bild 
"RosaElefanten"  laden,  fuhrt  Ihr  Weg  iiber  das  Unter- 
Verzeichnis  (den  Ast)  "Modernes"  weiter  iiber  das  Unter-Unter- 
Verzeichnis  (den  Zweig)  "Tiere"  zum  Ziel. 

Sie  kSnnen  immer  nur  Programme  oder  Dateien  aus  dem  aktuel- 
len  Inhaltsverzeichnis  laden.  Liegt  das  Programm  an  einer  ande- 
ren  Stelle  der  Diskette,  wird  es  von  AmigaBASIC  nicht  gefun- 
den.  Die  Kennzeichnung  durch  Inhaltsverzeichnisse  ist  so  ein- 
deutig,  daB  Sie  in  verschiedenen  Verzeichnissen  fur  unter- 
schiedliche  Programme  sogar  denselben  Namen  verwenden  dur- 
fen.  Deshalb  ist  es  wichtig,  das  aktuelle  Inhaltsverzeichnis  je- 
derzeit  von  AmigaBASIC  aus  verSndern  zu  konnen. 
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Um  diese  Theorie  in  die  Praxis  umsetzen  zu  kftnnen,  brauchen 
wir  einen  BASIC-Befehl,  den  Sie  im  letzten  Kapitel  schon  ein- 
mal  kurz  gesehen  haben:  CHDIR  heiBt  "Change  Directory"  - 
"Wechsle  das  Inhaltsverzeichnis".  Wenn  Sie  z.B.  die  Namen  aller 
Programme  sehen  wollen,  die  sich  auf  Ihrer  "BASICDisk"  im 
Unter-Inhaltsverzeichnis  "Grafik"  befinden,  geben  Sie  ein: 


chdir  "Grafik" 


Damit  haben  Sie  vom  ubergeordneten  Verzeichnis  "BASICDisk" 
ins  Verzeichnis  "Grafik"  gewechselt.  Wenn  Sie  sich  dieses 
Inhaltsverzeichnis  durch 

files 

zeigen  lassen,  sehen  Sie  in  der  ersten  Zeile  den  neuen  Directory- 
Namen. 

Directory  of:    [Grafik] 

Darunter  folgen  die  Namen  aller  Programme,  die  in  der  Grafik- 
Schublade  liegen.  Wenn  wieder  ein  Inhaltsverzeichnis  dabei 
ware,  kflnnten  Sie  mit  CHDIR  noch  weiter  herabsteigen  (oder 
um  beim  Bild  des  Baums  zu  bleiben:  hinaufklettern). 

Aber  was  k6nnen  Sie  tun,  wenn  Sie  feststellen,  daB  sich  das  ge- 
suchte  Programm  nicht  im  aktuellen  Verzeichnis  befindet?  Wenn 
Sie  also  sozusagen  auf  dem  falschen  Ast  sitzen?  Prinzipiell  bieten 
sich  Ihnen  zwei  Moglichkeiten:  Entweder  Sie  gehen  genau  auf 
dem  Weg  zuruck,  auf  dem  Sie  gekommen  sind,  oder  Sie  springen 
vom  Baum  runter  und  erklettern  ihn  von  neuem.  In  die  Welt  von 
AmigaBASIC  ubersetzt  ergibt  das  folgende  Befehlsvarianten:  Mit 

chdir  "/" 

kehren  Sie  auf  die  n^chsthShere  Verzeichnisebene  zuruck.  In 
unserer  "AmigaGalerie"  kommen  Sie  damit  z.B.  vom  Verzeichnis 
"Tiere"  zuruck  ins  Verzeichnis  "Modernes".  Bei  erneuter  Eingabe 
von  CHDIR  "/"  wiirden  Sie  im  Basis-Inhaltsverzeichnis  "Amiga- 
Galerie" laden.  So  kflnnen  Sie  in  neue  Unter-Verzeichnisse  ge- 
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langen  und  danach  wieder  auf  die  hfiheren  Ebenen  zuruckkeh- 
ren.  Falls  Sie  allerdings  mit  CHDIR  "/"  aus  der  hflchsten  Ver- 
zeichnis-Ebene  noch  weiter  zuriickkehren  wollen,  wird  sich  der 
Amiga  mit  einem  "File  not  found"-Error  dagegen  wehren.  Es 
kann  auch  vorkommen,  daB  der  Weg  iiber  die  einzelnen  Ver- 
zeichnisse  zu  langwierig  ist  oder  Sie  sich  ganz  einfach  verirrt 
haben.  Benutzen  Sie  in  diesem  Fall  folgende  Variante: 

chdir  ":'• 

So  wahlen  Sie  das  Basis-Inhaltsverzeichnis  aus,  also  das  erste, 
alien  anderen  iibergeordnete  Inhaltsverzeichnis  der  Diskette.  Von 
dort  aus  kflnnen  Sie  sich  dann  wieder  in  die  Unter-Verzeichnisse 
wahlen.  Fehlt  zum  Thema  Disketten-Inhaltsverzeichnisse  nur 
noch  eines:  Bisher  haben  wir  immer  nur  mit  einer  Diskette  gear- 
beitet,  nSmlich  unserer  "BASICDisk".  Was  aber,  wenn  Sie  ein 
zweites  Disketten-Laufwerk  haben?  Fur  diesen  Fall  gibt  es  die 
Mflglichkeit,  das  gewiinschte  Laufwerk  auszuwShlen.  Wollen  Sie 
sich  z.B.  das  Basis-Inhaltsverzeichnis  von  Laufwerk  1  ansehen 
(Sie  wissen  ja  noch:  0  ist  das  interne  und  1  das  externe),  geben 
Sie  ein: 

chdir  "dfl:" 

AmigaBASIC  nennt  das  interne  Laufwerk  "DF0:M  und  das  erste 
externe  Laufwerk  "DF1:".  Wenn  Sie  sogar  drei  Laufwerke  besit- 
zen,  trSgt  das  dritte  die  Bezeichnung  "DF2:".  Es  sei  denn,  Sie 
haben  einen  Amiga  2000  und  nur  ein  internes  Laufwerk.  Dann 
heiBt  das  externe  n&mlich  DF2:. 

Das  D  steht  dabei  fur  "Drive"  (Deutsch:  Laufwerk)  und  F  fur 
"Floppy"  (Ihre  Disketten  heiBen  ja  auch  "Floppy  Disks").  Neben- 
bei:  Wenn  Sie  irgendwann  einmal  ein  Festplattenlaufwerk  besit- 
zen,  wird  es  "DHO:"  heiBen  (Drive  Harddisk  0).  Es  sei  denn,  Sie 
haben  einen  Amiga  2000  und  steuern  die  Festplatte  iiber  eine 
eingebaute  PC-Karte  an.  Dann  heiBt  die  Festplatte  Mmlich  JH0:. 
Wenn  Sie  jetzt  das  Gefiihl  haben,  daB  der  Amiga  2000  immer 
aus  der  Reihe  tanzen  muB,  dann  kdnnen  wir  dem  nicht  vSllig 
widersprechen.  Um  ihn  andererseits  ein  wenig  zu  verteidigen, 
muB  man  sagen,  daB  ein  so  komplexer  und  vielseitiger  Computer 
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wie  gerade  der  Amiga  2000  eben  auch  etwas  komplexere  M6g- 
lichkeiten  und  Bezeichnungen  bedingt.  Und  wir  werden  jetzt  an 
dieser  Stelle  auch  nicht  darauf  hinweisen,  daC  all  diese  Dinge  in 
unserem  "Das  groBe  Amiga-2000-Buch"  erklart  werden.  Nein, 
das  werden  wir  wirklich  nicht. 

Doch  zuriick  zu  den  Diskettenlaufwerken  und  ihren  Namen.  Alle 
Laufwerksbezeichnungen  konnen  Sie  vor  dem  Namen  eines  In- 
haltsverzeichnisses  eingeben: 

chdir  »df1:Texte» 

wechselt  zum  Verzeichnis  "Texte"  auf  der  Diskette  im  Laufwerk 
1.  Das  Ganze  ist  naturlich  nur  sinnvoll,  wenn  das  angegebene 
Laufwerk  auch  wirklich  angeschlossen  ist.  Wird  es  von  Amiga- 
BASIC nicht  gefunden,  verlangt  Ihr  Computer  nach  einer  Dis- 
kette mit  dem  jeweiligen  Namen  ("Please  insert  volume  dfl  in 
any  drive"  -  "Bitte  Diskette  namens  dfl  in  ein  Laufwerk  einle- 
gen").  Aller  Wahrscheinlichkeit  nach  werden  Sie  keine  solche 
Diskette  besitzen.  Aber  Sie  besitzen  andere  Disketten...  Tatsach- 
lich  konnen  Sie  anstelle  von  Laufwerksbezeichnungen  auch  Dis- 
kettennamen  eingeben: 

chdir  "BASICDisk:Grafik" 

wechselt  zum  gewiinschten  Verzeichnis  "Grafik",  egal  in  wel- 
chem  Laufwerk  die  Diskette  "BASICDisk"  eingelegt  ist.  Ist  sie 
uberhaupt  nicht  eingelegt,  bittet  Sie  der  Amiga,  die  Diskette  in 
eines  der  Laufwerke  zu  schieben. 

Zu  guter  Letzt  wollen  wir  Ihnen  noch  eine  Moglichkeit  von 
CHDIR  zeigen: 

chdir  "dflrAmigaGalerie/Modernes/Tiere" 

Das  ist  die  schnellste  Methode,  an  unsere  rosa  Elefanten  zu 
kommen:  Sie  kflnnen  die  einzelnen  Unter-Verzeichnisse,  uber 
die  der  Weg  zum  gewiinschten  Programm  fiihrt,  hintereinander 
angeben.  Die  Namen  trennen  Sie  durch  Schragstriche  vonein- 
ander  ab.  Wenn  es  den  von  Ihnen  angegebenen  Weg  nicht  gibt, 
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weil  Sie  zum  Beispiel  ein  Verzeichnis  ausgelassen  haben,  teilt 
Ihnen  AmigaBASIC  das  durch  einen  "File  not  found"-Error  mit. 
Mit  ein  weriig  Ubung  werden  Sie  sich  perfekt  wie  ein  Klam- 
meraffe  (entschuldigen  Sie  bitte,  aber  dieser  Vergleich  paBt  so 
gut  zu  unseren  Baumen!)  durch  die  Inhaltsverzeichnisse  Ihrer 
Amiga-Disketten  hangeln  konnen. 

Doch  AmigaBASIC  bietet  noch  mehr:  Neben  dem  Laden  und 
Speichern  von  Programmen  oder  dem  Auswahlen  und  Anzeigen 
von  Inhaltsverzeichnissen  kflnnen  Sie  Ihre  Programme  auch  noch 
umbenennen  und  loschen.  Wir  wollen  das  anhand  eines  Beispiels 
durchspielen:  Tippen  Sie  ein  paar  Zeilen  im  LIST-Window.  Sie 
brauchen  keine  Miihe  darauf  zu  verwenden,  ein  lauffahiges  Pro- 
gramm  zu  erstellen,  denn  wir  wollen  das  Ganze  sp&ter  sowieso 
wieder  ldschen. 

Zuerst  speichern  Sie  Ihr  Programm  (oder  wie  Sie  das  Ergebnis 
sonst  bezeichnen  mdchten)  bitte  ab.  WShlen  Sie  dann  "Save  As" 
aus  dem  "Projecf-Pulldown.  Geben  Sie  als  Namen  "Test"  oder 
etwas  Shhliches  an  und  drucken  Sie  <RETURN>.  Ihr  Amiga 
speichert  die  Datei  auf  Diskette.  Mit 

files 

kflnnen  Sie  das  iiberprufen.  Irgendwo  in  der  Liste  tauchen  auch 
die  Dateien  "Test"  und  "Test.info"  auf. 

Doch  auf  einmal  gefailt  Ihnen  der  Name  "Test"  nicht  mehr. 
Vielleicht  sind  Sie  der  Meinung,  daB  er  nicht  genug  uber  den 
Inhalt  des  Programms  aussagt.  Der  Name  "Unwichtig"  gefailt  Ih- 
nen beispielsweise  wesentlich  besser.  Sie  kSnnten  jetzt  natiirlich 
das  Programm,  das  ja  immer  noch  im  Speicher  steht,  unter  dem 
neuen  Namen  abspeichern.  Das  ware  allerdings  Platz- 
verschwendung,  schlieBlich  steht  dasselbe  Programm  unter  dem 
Namen  "Test"  schon  einmal  auf  der  Diskette.  Stattdessen  em- 
pfehlen  wir  Ihnen  einen  neuen  BASIC-Befehl.  Er  heiBt  NAME 
("to  name"  bedeutet  "benennen,  mit  einem  Namen  versehen"). 
Mit  dem  NAME-Befehl  haben  Sie  die  Mdglichkeit,  den  Namen 
einer  Datei  zu  verSndern.  Urn  "Test"  in  "Unwichtig"  umzutaufen, 
geben  Sie  im  BASIC-Window  ein: 
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name  "Test"  as  "Unwichtig" 

Das  Laufwerk  lauft  kurz,  und  schon  hat  die  Datei  einen  neuen 
Namen.  Sehen  Sie  mal  im  Inhaltsverzeichnis  nach.  Die  ehemalige 
Datei  "Test"  heiBt  jetzt  wirklich  "Unwichtig".  Auch  die  Info- 
Datei  wurde  verfcndert  -  sie  heiBt  jetzt  "Unwichtig. info".  Sollte 
das  bei  Ihnen  nicht  so  sein  (steht  also  im  Inhaltsverzeichnis  eine 
Datei  namens  "Unwichtig",  aber  keine  Datei  "Unwichtig. info", 
stattdessen  immer  noch  "Test.info"),  dann  haben  Sie  eine  veral- 
tete  Version  von  AmigaBASIC.  Es  gab  nSmlich  eine  Zeitlang  das 
Problem,  daB  BASIC-Befehle  wie  NAME  die  Info-Datei 
schlichtweg  vergessen  haben.  In  diesem  Fall  sollten  Sie  Ihren 
Handler  bitten,  fur  Sie  die  neueste  Version  der  "ExtrasD"-Dis- 
kette  zu  kopieren.  Darauf  ist  dann  ein  AmigaBASIC,  bei  dem 
dieser  Fehler  nicht  mehr  auftritt. 

Gehen  wir  aber  noch  einen  Schritt  weiter.  Der  nachste  Befehl  ist 
besonders  interessant,  weil  man  mit  ihm  unwichtige  Dateien  (wie 
zum  Beispiel  unser  Programm  "Unwichtig")  von  der  Diskette  16- 
schen  kann.  Wahrend  Sie  auf  der  Workbench  unerwunschte  Pro- 
gramme in  den  Trashcan  werfen  und  dann  auch  noch  den  Mull 
selber  ausleeren  miissen  ("Empty  Trash"),  geht  es  in  Amiga- 
BASIC schneller.  Das  ist  oft  ein  Vorteil,  birgt  aber  auch  Gefah- 
ren:  Uberzeugen  Sie  sich  bitte  unbedingt  vorher,  ob  eine  Datei 
auch  wirklich  geloscht  werden  darf.  Ein  Zuriick  gibt  es  namlich 
nicht  mehr.  Den  BASIC-Befehl  KILL  sollten  Sie  also  mit  der 
gebiihrenden  Vorsicht  behandeln.  Nicht  umsonst  heiBt  "kill"  auf 
Deutsch  "tOten,  umbringen".  Und  Sie  wollen  doch  nicht  zum 
M6rder  unschuldiger  Programme  werden?! 

Wenn  Sie  sich  nach  reiflicher  Uberlegung  entschlossen  haben, 
"Unwichtig"  zu  16schen,  geben  Sie  bitte  ein: 

KILL  "Unwichtig" 

Kurz  und  schmerzlos  liiBt  Ihr  Amiga  das  Programm  verschwin- 
den.  Bei  dieser  Gelegenheit  wollen  wir  Ihnen  einen  kleinen 
Trick  verraten:  Wenn  Sie  nur  die  Info-Datei  loschen,  erscheint 
Ihr  Programm  nicht  auf  der  Workbench,  kann  aber  von  Amiga- 
BASIC ganz  normal  verarbeitet  werden.  Da  Sie,  solange  Sie  mit 
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BASIC  arbeiten,  normalerweise  sowieso  keine  Icons  sehen,  ist 
das  unter  UmstSnden  kein  groGer  Verlust.  Es  macht  im  Gegen- 
teil  die  Inhaltsverzeichnisse,  die  Sie  sich  mit  FILES  anzeigen 
lassen,  ubersichtlicher,  da  nur  die  eigentlichen  Programmnamen 
erscheinen.  Auch  zum  Schutz  Ihrer  Programme  vor  Neugierigen 
und  Unbefugten  ist  diese  Methode  ganz  hilfreich.  Urn  diesen 
Effekt  zu  erreichen,  brauchen  Sie  nur  einzugeben: 

KILL  "Unwichtig.info" 

Anstelle  von  "Unwichtig"  sollten  Sie  naturlich  den  Namen  der 
Datei  angeben,  deren  Info-Datei  Sie  16schen  wollen. 

Mit  dem  Repertoire  an  Disketten-Befehlen,  das  Sie  bisher 
kennengelernt  haben,  kdnnen  Sie  jetzt  schon  in  beachtlichem 
Umfang  mit  Programmen  und  Dateien  arbeiten.  Aber  das  Inter- 
essanteste  kommt  erst  noch:  Die  Verwaltung  von  Daten  auf  Dis- 
kette. Damit  meinen  wir  nicht  nur  trockene  Adressenlisten  und 
Aktienkurse,  sondern  auch  die  Mdglichkeit,  Bilder  abzuspeichern 
und  vieles  mehr.  Aber  lassen  Sie  sich  uberraschen! 


3.3        Die  Datensammler  -  ein  kleines  BASIC- AdreBbuch 

Bisher  haben  wir  fast  nur  Programme  auf  Diskette  abgespei- 
chert.  Die  beiden  einzigen  Male,  wo  etwas  anderes  vorkam  (die 
Objekt-Daten  des  ObjectEditor  und  die  Muster  des  Mal- 
programms),  vertrSsteten  wir  Sie  auf  spater.  Urn  es  einfach  zu 
sagen:  Jetzt  ist  "spSter".  Programme  sind  nSmlich  bei  weitem 
nicht  das  einzige,  was  man  auf  Disketten  finden  kann.  Auch 
"Daten"  kflnnen  abgespeichert  werden.  Diese  "Daten"  beinhalten 
die  verschiedensten  Informationen:  Namen,  Zahlen,  Texte,  Bil- 
der und  vieles  mehr.  Die  meisten  Programme  machen  auch  von 
der  M6glichkeit  Gebrauch,  ihre  Daten  auf  Diskette  abzuspei- 
chern. Denn  diesen  Informationen  ist  ja  nach  dem  Ausschalten 
des  Amiga  das  gleiche  Schicksal  beschieden  wie  den  Program- 
men:  Sie  werden  geloscht.  Damit  ein  Textverarbeitungs-Pro- 
gramm  fruher  geschriebene  Texte  weiterverwenden,  ein  Datei- 
verwaltungs-Programm  die  eingegeben  Informationen  darstellen, 
ein  Malprogramm  seine  Bilder  einlesen  und  ein  Musikprogramm 
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alte  Kompositionen  neu  erklingen  lassen  kann,  werden  Dateien 
auf  Diskette  abgespeichert  und  somit  gesichert.  Sie  merken 
schon:  Datenverwaltung  ist  keineswegs  nur  ein  Thema  fur  Buch- 
halter  und  Artverwandte. 

Auch  AmigaBASIC  bietet  die  Moglichkeit,  Daten  zu  speichern 
und  spater  wieder  einzulesen.  Die  einfachste  Art  wollen  wir  Ih- 
nen  jetzt  vorstellen.  Das  folgende  Programm  legt  eine  AdreB- 
datei  auf  Diskette  an. 

OPEN  "AdreBdatei"  FOR  OUTPUT  AS  1 

Eingabe: 
PRINT 

INPUT  "Name"; Nam* 
INPUT  "StraBe";Stra$ 
INPUT  "PLZ  Wohnort";Ort$ 
INPUT  »Telefon";Tet$ 
PRINT#1,Nam$ 
PRINT#1(Stra$ 
PRINT#1,Ort$ 
PRINT#1,Tel$ 
x=x+1 

PRINT  x".Datensatz  ("Nam$")  gespei chert." 
PRINT  "Sollen  weitere  Adressen  eingegeben  werden?" 
INPUT  "J/N:",Antw$ 
IF  UCASE$(Antw$)="J"  THEN  Eingabe 

CLOSE 

PRINT  "Datei  gesch lessen,  Eingabe  beendet." 


Die  Beispiele  zum  Thema  Dateiverwaltung  werden  wir  in  der 
Schublade  "Daten"  ansiedeln.  Geben  Sie  also  bitte  zuerst  ein: 

chdir  »BASICDisk:Daten" 

Speichern  Sie  das  Programm  dann  unter  dem  Namen  "Adressen 
schreiben"  ab.  Bei  Programm-  oder  Dateinamen  durfen  auch 
Leerzeichen   vorkommen,    AmigaBASIC   hat    damit    keine    Pro- 
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bleme.  Wenn  Sie  das  Programm  von  unserer  beigelegten  Diskette 
geladen  haben,  brauchen  Sie's  naturlich  nicht  eigens  abzuspei- 
chern.  Sie  finden  es  unter  dem  Namen  HAdressen  schreiben"  in 
der  "Daten"-Schublade  unserer  Diskette  im  Buch. 

Wie  funktioniert  unser  Beispielprogramm?  Das  wollen  wir  uns 
jetzt  Zeile  fur  Zeile  ansehen:  Der  Befehl  OPEN  in  der  ersten 
Zeile  erledigt  mehrere  Aufgaben:  Er  erdffnet  eine  Datei  namens 
"AdreBdatei"  ("open"  heiBt  ja  "offnen").  Bevor  ein  BASIC-Pro- 
gramm  mit  einer  Datei  arbeiten  kann,  muB  sie  vom  OPEN-Be- 
fehl  ge6ffnet  werden.  Klar:  Solange  ein  Aktenordner  geschlossen 
ist,  kdnnen  Sie  auch  nicht  lesen,  was  darin  steht.  Es  sei  denn, 
Sie  haben  einen  ROntgenblick.  Bei  diesem  Befehl  wird  auch 
gleich  festgelegt,  ob  in  die  Datei  geschrieben  werden  soil 
(OPEN...FOR  OUTPUT)  oder  ob  aus  der  Datei  gelesen  wird 
(OPEN...FOR  INPUT).  Nur  eine  dieser  beiden  Funktionen  kann 
auf  einmal  mit  derselben  Datei  durchgefiihrt  werden.  Allerdings 
ist  es  mflglich,  mehrere  Dateien  zu  flffnen,  von  denen  dann  ei- 
nige  "Input"-  und  andere  "Outpuf'-Dateien  sind. 

Aus  diesem  Grund  wird  jeder  offenen  Datei  eine  Nummer  zu- 
geteilt  (in  unserem  Fall  die  Nummer  1),  damit  bei  Lese-  und 
Schreib-Befehlen  angegeben  werden  kann,  welche  Datei  gemeint 
ist.  Wenn,  wie  in  unserem  Fall,  eine  Output-Datei  zum  ersten 
Mai  erdffnet  wird,  sorgt  OPEN  dafur,  daB  sie  auf  der  Diskette 
neu  angelegt  wird.  Die  Datei  entsteht  immer  in  der  aktuellen 
Schublade  (bzw.  im  aktuellen  Inhaltsverzeichnis).  Die  Befehls- 
syntax  sieht  also  so  aus: 

OPEN  "(Dateiname)"  FOR  (Modus)  AS  (Dateinummer) 

Es  gibt  noch  eine  zweite  Syntax.  Sie  beinhaltet  die  gleichen  An- 
gaben,  aber  in  anderer  Reihenfolge: 

OPEN  "(Modus)",  #(Dateinummer),  "(Dateiname)" 

Wir  hatten  also  in  der  ersten  Zeile  auch  schreiben  konnen: 

OPEN  "0"ff#1,"AdreBdatei" 
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Welche  der  beiden  Schreibweisen  Sie  verwenden,  ist  in  diesem 
Fall  egal.  Je  nach  den  Umst&nden  kann  die  eine  oder  die  andere 
Art  zweckmaBiger  sein,  wir  kommen  noch  darauf  zuriick. 

Bisher  haben  wir  eine  Datei  auf  Diskette  erzeugt,  die  "AdreB- 
datei"  heiBt,  in  die  wir  Daten  schreiben  werden  und  die  die 
Nummer  1  hat.  Nun  sorgen  wir  dafiir,  daB  es  auch  Daten  gibt, 
die  wir  abspeichern  konnen. 

Zu  Beginn  des  Teils  'Eingabe:'  fragen  wir  den  Anwender  mit 
INPUT-Befehlen  nach  den  Inhalten  der  Variablen  'Nam$\ 
'Stra$\  'Ort$*  und  Tel$\  In  diesen  vier  Strings  stehen  die  Anga- 
ben,  aus  denen  sich  die  jeweilige  Adresse  zusammensetzt.  Urn 
diese  Daten  in  die  AdreBdatei  zu  schreiben,  verwenden  wir  den 
Befehl  PRINT#.  Das  Zeichen  #  ist  im  amerikanischen  Sprach- 
raum  ein  Symbol  fur  "Nummer".  Bei  uns  wird  es  meist  "Doppel- 
kreuz"  genannt.  Wenn  Sie  "PRINT#"  sagen  wollen,  sagen  Sie  aber 
am  besten  "print  file"  (Drucke  in  Datei).  Da  laufen  Sie  am  we- 
nigsten  Gefahr,  sich  die  Zunge  zu  brechen.  Hinter  PRINT# 
steht  die  Nummer  der  Datei,  auf  die  sich  der  Befehl  bezieht. 
Der  Befehl  PRINT#l,Nam$  bewirkt,  daB  der  Inhalt  der  Vari- 
ablen 'NamS1  in  die  Datei  Nummer  1,  also  unsere  Datei  "AdreB- 
datei" geschrieben  wird.  PRINT#  wirkt  wie  PRINT,  nur  wird 
die  Ausgabe  nicht  auf  den  Bildschirm,  sondern  in  eine  Datei 
geschrieben. 

Wir  speichern  die  Adressen  in  einer  sequentiellen  Datei.  "Se- 
quentiell"  bedeutet  "hintereinander".  Bei  einer  sequentiellen  Datei 
werden  die  einzelnen  Daten  hintereinander  abgespeichert.  In 
dem  Eintrag  auf  der  Diskette  steht  zuerst  der  Name  aus  der  er- 
sten  Adresse,  dann  die  StraBe,  dann  der  Wohnort  und  dann  die 
Telefonnummer.  Dahinter  folgt  der  zweite  Name,  die  zweite 
StraBe  usw.  AuBer  der  sequentiellen  gibt  es  auch  noch  die  rela- 
tive (wahlfreie)  Datenspeicherung.  Zu  ihr  kommen  wir  spater. 

Der  Rest  des  Programms  birgt  nicht  mehr  allzu  viel  Neues  oder 
Schwieriges  fur  Sie.  Die  Variable  x  wird  hochgezahlt,  urn  auf 
dem  Bildschirm  ausgeben  zu  konnen,  wieviele  Adressen  bereits 


Disketten  und  Dateiverwaltung 313 


eingegeben  wurden.  Dann  werden  Sie  gefragt,  ob  Sie  weitere 
Adressen  eingeben  wollen.  Wenn  Sie  das  mit  *T  beantworten, 
springt  das  Programm  zuruck  zum  Teil  'Eingabe:'. 

Eines  hatten  Sie  vielleicht  fast  ubersehen  oder  fur  einen  Druck- 
fehler  gehalten:  Beachten  Sie  den  Unterschied  zwischen 

INPUT  "(Text)"; Variable 

(mit  Strichpunkt)  und 

INPUT  H(Text)\  Variable 

(mit  Komma).  Die  beiden  Varianten  der  INPUT-Befehls  kom- 
men  in  oberen  bzw.  unteren  Teil  des  Programms  vor.  Steht  ein 
Stichpunkt  zwischen  dem  Text  und  der  Variablen,  erzeugt  Ami- 
gaBASIC  bei  der  Abfrage  auf  dem  Bildschirm  ein  Fragezeichen. 
Verwenden  Sie  ein  Komma,  wird  das  Fragezeichen  unterdriickt. 
Bei  der  Eingabe  voa  "JM  oder  "N"  wollten  wir  kein  Fragezeichen. 

Wenn  Sie  die  Frage,  ob  weitere  Daten  folgen,  verneinen,  indem 
Sie  "N"  oder  irgendein  anderes  Zeichen  eingeben,  fuhrt  das  Pro- 
gramm den  Befehl  CLOSE  1  aus.  CLOSE  schlieBt  eine  Datei,  die 
mit  OPEN  geflffnet  wurde.  Dabei  passiert  im  einzelnen  folgen- 
des: 

Bei  der  Speicherung  auf  Diskette  wird  nicht  jedes  einzelne 
Zeichen  direkt  auf  die  Diskette  geschrieben.  Das  wiirde  viel  zu 
lange  dauern  und  das  Diskettenlaufwerk  unndtig  besetzen.  Ge- 
rade  durch  das  Multitasking  auf  dem  Amiga  wollen  ja  vielleicht 
auch  noch  andere  Programme  auf  die  Diskette  zugreifen.  Sie 
waren  blockiert,  solange  von  AmigaBASIC  eine  oder  mehrere 
Dateien  gedffnet  sind.  Um  das  zu  vermeiden,  wird  fur  jede  of- 
fene  Datei  ein  Puffer  angelegt.  Das  ist  ein  Speicherbereich, 
normalerweise  128  Bytes  groO,  in  dem  die  Zeichen  solange  ge- 
sammelt  werden,  bis  er  voll  ist.  Dann  werden  128  Zeichen  auf 
einmal  auf  die  Diskette  geschrieben.  CLOSE  sorgt  dafur,  dafl 
der  Pufferinhalt  abgespeichert  wird,  obwohl  der  Puffer  noch 
nicht  voll  ist. 
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Als  nachstes  wird  der  Eintrag  auf  Diskette  abgeschlossen.  So- 
lange  eine  Datei  zum  Lesen  oder  Schreiben  gedffnet  ist,  kann  sie 
nicht  erneut  geflffnet  werden.  Sie  kann  auch  nicht  mit  KILL 
geloscht  oder  mit  NAME  umbenannt  werden.  Urn  alle  diese 
Funktionen  wieder  zu  ermoglichen,  muB  die  Datei  offiziell 
beendet  werden.  Auch  dafur  sorgt  CLOSE.  AuBerdem  gibt 
CLOSE  die  Dateinummer  wieder  frei,  sie  darf  fur  eine  neue 
Datei  verwendet  werden. 

Folgen  nach  CLOSE  noch  Lese-  oder  Schreibzugriffe  auf  die 
angegebene  Datei,  ist  ein  "Bad  file  number"-Error  die  Folge.  Sie 
sehen,  wieviel  hinter  so  einem  unscheinbaren  Befehlchen  wie 
CLOSE  stecken  kann.  Die  Bedienung  des  Programms  durfte  Ih- 
nen  keine  Schwierigkeiten  bereiten:  Der  Computer  fragt  Sie 
Stuck  fur  Stiick  nach  den  Bestandteilen  der  Adressen.  Ist  die 
Adresse  eingegeben,  mussen  Sie  "J"  eingeben,  urn  weiter- 
zumachen. 

Geben  Sie  doch  einmal  die  Adressen  einiger  Ihrer  Freunde  und 
Bekannten  ein  oder  auch  die  Adressen  Ihres  Finanzamts,  Ihrer 
Kommunalverwaltung  und  Ihres  Arbeitgebers.  Dabei  brauchen 
Sie  keine  Skrupel  zu  haben,  denn  diese  Institutionen  machen  mit 
Ihren  Daten  genau  dasselbe,  namlich  sammeln. 

Von  der  Tatsache,  daB  die  Adressen  jetzt  auf  der  Diskette  ste- 
hen,  haben  wir  allerdings  noch  keinen  allzugroBen  Nutzen.  VVir 
brauchen  ein  Programm,  das  die  Adressen  aus  der  Datei  wieder 
ausliest.  Das  nfcchste  Programm  dient  dazu.  Bevor  Sie  es  einge- 
ben, speichern  Sie  bitte  das  "Adressen  schreiben"-Programm  ab, 
falls  Sie  es  bisher  noch  nicht  getan  haben.  Loschen  Sie  dann  den 
Speicher  mit  NEW  und  tippen  Sie  das  Listing  ab  oder  laden  Sie 
es  von  der  beiliegenden  Diskette.  (Es  ist  das  Programm  "Adres- 
sen lesen"  in  der  "Daten"-Schublade.) 

OPEN  "AdreBdatei"  FOR  INPUT  AS  1 

Einlesen: 
INPUT#1,Nam$ 
INPUT#1,Stra$ 
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INPUT#1,0rt$ 
INPUT#1,Tel$ 

PRINT 

PRINT  "Name:  ";Nam$ 
PRINT  "StraBe:  ";Stra$ 
PRINT  "PLZ  Wohnort:  ";Ort$ 
PRINT  "Telefon:  »;Tel$ 

IF  EOF(1)=0  THEN  Einlesen 
CLOSE  1 


Wenn  Sie  das  Programm  starten,  sehen  Sie,  was  passiert:  Die 
einzelnen  Adressen  aus  der  Datei  werden  gelesen  und  auf  dem 
Bildschirm  ausgegeben.  Speichern  Sie  das  Programm  bitte  unter 
dem  Namen  "Adressen  lesen",  wenn  Sie  es  selbst  eingegeben  ha- 
ben. 

Der  OPEN-Befehl  offnet  die  Datei  "AdreBdatei"  diesmal  zum 
Lesen  (FOR  INPUT).  Das  kennen  Sie  schon,  unter  anderem  auch 
vom  Einlesen  der  Objekt-Daten  aus  dem  Grafik-Kapitel.  Urn 
Daten  wirklich  wieder  einlesen  zu  konnen,  muB  AmigaBASIC 
die  angegebene  Datei  natiirlich  auch  finden.  Anderenfalls  gibt  es 
einen  "File  not  found"-Error.  Wenn  dieser  Fehler  auftritt  und 
Sie  sicher  sind,  daB  der  angegebene  Name  stimmt,  mussen  Sie 
mflglicherweise  das  aktuelle  Inhaltsverzeichnis  mit  CHDIR  &n- 
dern. 

So  wie  wir  die  Daten  mit  PRINT#  in  eine  Datei  geschrieben  ha- 
ben,  k6nnen  wir  sie  mit  INPUT#  wieder  auslesen.  Wichtig  ist 
dabei,  daB  wir  beim  Lesen  die  Reihenfolge  einhalten,  in  der  die 
Werte  in  der  Datei  stehen.  Sonst  finden  wir  z.B.  einen  Herrn 
"6000  Frankfurt",  der  in  "069/982314"  in  der  StraBe  "Winfried 
Miiller"  wohnt.  INPUT#  weist  die  Eingaben  einer  Variablen  zu, 
genauso  wie  INPUT.  Der  einzige  Unterschied:  Diesmal  kommen 
die  Daten  nicht  von  der  Tastatur,  sondern  aus  einer  Disketten- 
Datei. 


316 AmigaBASIC 


Dann  stellt  unser  Programm  die  gelesenen  Daten  auf  dem  Bild- 
schirm  dar.  Die  Funktion  EOF  (End  of  File  -  Ende  der  Datei) 
gibt  Auskunft  dariiber,  ob  sich  noch  weitere  Daten  in  der  Datei 
befinden.  In  Klammern  geben  Sie  die  Dateinummer  an.  Das  Er- 
gebnis  ist  0,  solange  noch  Daten  vorhanden  sind.  Wurde  das 
letzte  Zeichen  gelesen,  ergibt  EOF(Dateinummer)  den  Wert  -1. 
So  kflnnen  Sie  bei  jedem  Durchgang  feststellen,  ob  weiter  gele- 
sen Oder  die  Datei  geschlossen  werden  soil.  Falls  Sie  namlich 
versuchen,  Werte  aus  einer  Datei  zu  lesen,  aus  der  schon  alle 
Werte  gelesen  wurden,  erhalten  sie  einen  "Input  past  End"-Error. 
Sie  haben  also  versucht,  hinter  dem  Dateiende  Werte  einzulesen. 

Das  Lesen  aus  sequentiellen  Dateien  funktioniert  ahnlich  wie  die 
Befehle  READ  und  DATA:  Mit  jedem  Lesen  wird  ein  Zeiger 
um  eine  Position  weiter  nach  oben  gesetzt.  So  erhalten  Sie  immer 
den  nachsten  noch  nicht  gelesenen  Wert.  Wie  gesagt,  das  Pro- 
gramm schreibt  die  Adressen  in  der  Reihenfolge  auf  den  Bild- 
schirm,  in  der  sie  in  der  Datei  stehen.  Das  Hauptmerkmal  von 
sequentiellen  Dateien  ist,  daB  ein  Datensatz  nach  dem  anderen 
gelesen  werden  muB.  Wenn  Sie  z.B.  die  vierte  Adresse  suchen, 
miissen  die  ersten  drei  trotzdem  vorher  eingelesen  werden.  Es 
gibt  keine  M5glichkeit,  sie  zu  uberspringen.  Sequentielle  Dateien 
eignen  sich  daher  besonders  gut  fur  Listen,  Verzeichnisse  oder 
Daten,  die  standig  fortgeschrieben  werden  (z.B.  Kurs- 
entwicklungen). 

Es  ware  ziemlich  umstandlich,  wenn  in  dem  Augenblick,  wo 
eine  Datei  um  neue  Daten  erweitert  werden  soil,  erst  einmal  alle 
alten  Daten  eingelesen  und  neu  abgespeichert  werden  muBten. 
Dagegen  gibt  es  aber  glucklicherweise  ein  gutes  Mittel:  Dateien 
k5nnen  namlich  nicht  nur  zum  Schreiben  (FOR  OUTPUT)  und 
zum  Lesen  (FOR  INPUT)  geftffnet  werden,  sondern  auch  zum 
AnhSngen  neuer  Daten.  Dieser  Modus  heiBt  APPEND  (engl. 
append  =  anfugen).  Das  k6nnen  Sie  ganz  einfach  ausprobieren. 
Laden  Sie  "Adressen  schreiben",  das  Programm,  mit  dem  Sie 
Adressen  eingeben  konnen.  Andern  Sie  die  erste  Zeile,  indem 
Sie  anstelle  von  OUTPUT  das  Wort  APPEND  angeben: 

OPEN  "AdreBdatei"  FOR  APPEND  AS  1 


Disketten  und  Dateiverwaltung 317 


Starten  Sie  das  Programm  und  geben  Sie  noch  ein  oder  zwei 
Adressen  ein.  Storen  Sie  sich  bitte  nicht  daran,  daB  das  Pro- 
gramm der  Meinung  ist,  es  schreibe  den  1.  und  2.  Datensatz  - 
die  Nummern  beziehen  sich  auf  die  neuen,  angefugten  Daten. 

Nach  Beendigung  der  Datenerfassung  (klingt  professional,  nicht 
wahr?)  laden  Sie  bitte  wieder  "Adressen  Iesen"  und  starten  dieses 
Programm.  Sie  werden  feststellen,  daB  die  neuen  Adressen  hinter 
den  alten  Eintragungen  angeh&ngt  wurden.  Auch  das  ist  ein 
wichtiger  Punkt  bei  sequentiellen  Dateien:  Sie  kdnnen  jederzeit 
Daten  anhangen.  Dagegen  ist  es  nicht  mCglich,  Daten  in  der 
Mitte  oder  am  Anfang  der  Datei  einzufugen,  zu  verandern  oder 
zu  ldschen. 

Wenn  Sie  wollen,  kOnnen  Sie  Dateien  grundsatzlich  im 
APPEND-Modus  zum  Schreiben  Sffnen:  Sollte  es  die  angegebene 
Datei  bisher  noch  nicht  geben,  verhSIt  sich  AmigaBASIC  ge- 
nauso  wie  im  OUTPUT-Modus:  Es  erzeugt  eine  neue  Datei. 

Unsere  Kenntnisse  uber  sequentielle  Dateien  wollen  wir  jetzt  in 
einem  etwas  groBeren  Programm  verwenden.  Im  Grafik-Teil 
dieses  Buchs  haben  wir  Ihnen  ein  Utility  versprochen,  das  Ihnen 
hilft,  die  Daten  fur  Ihre  Balken-  und  Tortengrafiken  zu  ver- 
walten.  Dieses  Programm  stellen  wir  Ihnen  im  nachsten  Kapitel 
vor. 


3.4        Woher  kommen  die  kleinen  Balken  und  Torten? 
Die  Statistikdaten-Verwaltung 

Irgendwoher  mussen  Balken-  und  Tortengrafiken  ja  ihre  Daten 
beziehen.  Bisher  haben  Sie  die  immer  von  Hand  eingegeben, 
aber  das  ist  nicht  eben  der  Weisheit  letzter  SchluB.  Angenom- 
men,  Sie  wollen  die  Aktienkurse  von...  (haben  Sie  etwa  gedacht, 
wir  machen  hier  Schleichwerbung?!)  der  Firma  XY  grafisch 
darstellen.  Spatestens  nach  14  Tagen  wurde  es  Ihnen  wohl  ziem- 
lich  auf  den  Wecker  gehen,  dazu  jedesmal  alle  Kurse  nochmals 
abzutippen.  Eben  deshalb  schreiben  wir  jetzt,  mit  unserem  Wis- 
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sen  um  die  Verwaltung  von  Daten  und  Fakten  auf  dem  Amiga, 
ein  kleines  Programm,  das  sich  solche  Zahlen  merkt  und  dem  Sie 
jeden  Tag  die  aktuellen  Kurse  bedenkenlos  anvertrauen  konnen. 

Das  Programm,  das  aus  statistischen  Daten  Balken-  und  Torten- 
grafiken  erzeugt,  besitzen  Sie  ja  schon.  Es  befindet  sich  wahr- 
scheinlich  in  der  "GrafikM-Schublade  auf  Ihrer  BASIC-Diskette. 
Oder  ganz  sicher  in  der  "Grafik"-Schublade  auf  unserer  beige- 
legten  Diskette. 

Wenn  Sie  unser  Adressen-Programm  von  vorhin  selbst  eingetippt 
haben,  haben  Sie  ja  sicher  schon  lange  abgespeichert.  LSschen 
Sie  also  nun  bitte  den  Speicher  mit  NEW.  Laden  Sie  dann  die 
Version  des  Balken-  und  Tortengrafik-Utilities,  die  ohne 
Testeingabe-Teil  abgespeichert  wurde.  Wahrscheinlich  miissen 
Sie  dabei  folgende  Arbeitsschritte  durchfuhren: 

-  Wechseln         Sie         ins         Grafik-Inhaltsverzeichnis         mit 
CHDIR  MBASICDisk:Grafik\ 

-  Suchen  Sie  den  Namen  der  gewiinschten  Datei,  indem  Sie  mit 
FILES  das  Inhaltsverzeichnis  anzeigen  lassen. 

-  Laden  Sie  das  Programm.  Das  kfinnte  zum  Beispiel  so  ausse- 
hen:  LOAD  "BalkenTorten". 

-  Wechseln     Sie     jetzt     bitte     ins     Daten-Inhaltsverzeichnis: 
CHDIR  M:DatenH. 

Jetzt  kommt  der  Schritt,  wegen  dem  wir  Sie  um  die  ganze 
Prozedur  gebeten  haben:  Da  wir  spater  den  Balken-/Torten-Teil 
mit  unserem  neuen  Programm  MERGEn  wollen,  miissen  Sie  ihn 
bitte  als  ASCII-Datei  abspeichern: 

SAVE  "BalkenTorten", A 

Das  war  schon  alles,  was  an  vorbereitenden  Arbeiten  anfailt.  Sie 
k6nnen  diese  Prozedur  aber  auch  bleiben  lassen  und  sich  statt- 
dessen  auf  unsere  Diskette  im  Buch  verlassen.  Sie  finden  das  Er- 
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gebnis  der  nachsten  Eingaben  unter  dem  Namen  "BTDaten"  in 
der  "DateiT-Schublade  der  beigelegten  Diskette. 

Fur  alle,  die  selber  tippen  wollen  oder  sich  fur  die  Programmer- 
kl&rungen  interessieren,  folgt  hier  der  erste  Teil  des  neuen  Pro- 
gramms: 

Vorbereftungen: 
DIM  Nummer$(58),Bez$(58),Zahl$(58) 
DIM  Wert$(50),Wert(50) 
FOR  x=1  TO  58 

IF  x>4  AND  x<55  THEN  Nummer$(x)=STR$(x-4) 
NEXT  x 
HoechstZeile=1 

Farben=3 

SCREEN  4,640,200,Farben,2 
WINDOW  99, "Graf ik",, 20, 4 
PALETTE  7,.8,.2,.1 

WINDOW  V'Statistik-Daten-Verwaltung", (0,12)- (631, 111), 22,-1 

MENU  1,0,1,»Datei» 

MENU  1,1,1, "laden" 

MENU  1,2,1,»speichern» 

MENU  1,3,1,»l6schen» 

MENU  1,4,1,»Programm  beenden" 

MENU  2,0,1,"Grafik" 

MENU  2,1,1,-Balkengrafik" 

MENU  2,2,1, "Tortengrafik" 

MENU  3,0,0,"" 

MENU  4,0,0, »» 

ON  MENU  GOSUB  Menukontrotle 
MENU  ON 

GOTO  Hauptschleife 
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Wie  so  oft  beginnt  unser  Programm  wieder  mit  einem  Vorberei- 
tungsteil.  Hier  werden  zun^chst  die  Datenfelder  dimensioniert, 
die  wir  im  Verlauf  des  Programms  benotigen  werden.  Die  Na- 
men  sprechen  fast  fur  sich  selbst:  'NummerS1  beinhaltet  die 
laufende  Nummer  der  Datenzeilen  und  'BezS'  die  Bezeichnung 
eines  Werts.  Also  z.B.  die  Namen  der  Parteien,  uber  deren  Gluck 
und  Ungliick  Sie  in  Ihrer  persGnlichen  Wahl-Hochrechnung  ent- 
scheiden  konnen.  Ubrigens:  Der  FDP  wurden  wir...,  aber  lassen 
wir  das. 

'ZahlS'  beinhaltet  die  zugeh6rigen  Zahlen,  also  beispielsweise  die 
prozentualen  Anteile.  Wundern  Sie  sich  nicht  daruber,  daB  wir 
ein  Stringfeld  fur  Zahlen  verwenden:  Das  macht  die  Eingabe- 
routine  einfacher,  da  Sie  zunachst  eingeben  konnen,  was  Sie 
wollen  (Zahlen,  Buchstaben,  Satzzeichen  usw.).  Erst  beim  Aufruf 
der  Grafik-Routinen  werden  die  Inhalte  des  Feldes  in  Zahlen 
umgerechnet. 

'WertS1  und  'Wert'  kennen  Sie  sicher  noch  vom  Balken-/Torten- 
grafik-Utility:  In  diesen  Feldern  ubergeben  wir  die  Daten  dem 
Unterprogramm. 

Das  Feld  'NummerS'  wird  mit  festem  Inhalt  versehen.  Wie  schon 
erkiart,  stehen  hier  die  laufenden  Nummern  der  Datenzeilen. 
Wir  erlauben  maximal  50  Werte,  die  Numerierung  wird  also  von 
1  bis  50  gehen.  Warum  dimensionieren  wir  das  Feld  dann  aber 
auf  58  Elemente?  1st  das  vielleicht  ein  Sicherheitszuschlag?  Ganz 
falsch  liegen  Sie  mit  dieser  Vermutung  nicht.  Aber  lassen  Sie 
sich's  erkl&ren: 

Das  Grundprinzip  unseres  Programms  ist,  daB  Sie  immer  einen 
Ausschnitt  aus  den  insgesamt  50  Datenzeilen  sehen.  Alle  50 
wurden  ja  kaum  gleichzeitig  auf  den  Bildschirm  passen.  Eine 
Datenzeile  enthalt  drei  Elemente:  Ganz  am  Anfang  die  laufende 
Nummer,  dann  die  Bezeichnung  zum  Datenwert  und  am  SchluB 
die  jeweilige  Zahl. 

Sie  sehen  immer  9  Datenzeilen  auf  dem  Bildschirm.  Ihre  Arbei- 
ten  (Eingabe,  Korrektur,  Einfiigen,  Ldschen  etc.)  finden  immer 
in  der  funften  Zeile  statt,  also  in  der  goldenen  Mitte.  Die  Zeilen 
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1  bis  4  und  6  bis  9  dienen  nur  der  Orientierung  bzw.  dem  Ver- 
gleich  mit  den  Werten  in  der  nSheren  Umgebung  der  bearbeite- 
ten  Zeile.  Mit  den  Cursortasten  k6nnen  Sie  die  Zeilen  auf warts 
Oder  abwSrts  bewegen  und  sich  so  die  Zeile  aussuchen,  die  Sie 
bearbeiten  wollen.  Der  Cursor  bleibt  fest  in  der  mittleren  Zeile 
stehen. 

Da  Sie  natttrlich  auch  die  erste  und  die  letzte  Zeile  der  Datei 
bearbeiten  wollen,  haben  die  Datenfelder  als  Vor-  und  als 
Nachspann  jeweils  vier  leere  Elemente.  Die  erste  wirkliche 
Datenzeile  befindet  sich  in  den  Feldern  auf  der  funften  Position. 
So  erklart  sich  die  Zahl  58.  Denn  4  +  50  +  4  ergibt...?  Eben.  Die 
FOR...NEXT-SchIeife  erzeugt  im  Feld  'NummerS*  die  Nume- 
rierung,  wie  wir  sie  beschrieben  haben:  Vier  Positionen  bleiben 
leer,  dann  folgen  die  Zahlen  von  1  bis  50,  dann  wieder  vier 
Leerpositionen.  Mit  dem  Befehl  STR$  kflnnen  Sie  Zahlen  ins 
Strings  umwandeln.  Das  ist  die  Gegenfunktion  zu  dem  Ihnen 
schon  bekannten  VAL. 

?  VAL(STR$<5)> 

ergibt  wieder  die  Zahl  5.  Das  Umwandeln  bestimmter  Daten- 
formate  in  andere  ist  so  beliebt,  daB  Sie  zu  diesem  Thema  bald 
noch  mehr  Befehle  kennenlernen  werden. 

Die  Variable  'HoechstZeile'  wird  auf  1  gesetzt.  In  dieser  Vari- 
ablen  steht,  bis  zu  welcher  Zeile  Daten  zu  finden  sind.  Da  am 
Anfang  noch  uberhaupt  keine  Daten  in  den  Feldern  stehen,  ist 
die  Zeile  1  die  erste  und  gleichzeitig  die  letzte  Zeile. 

Uber  Tarben'  miissen  wir  sicher  keine  Worte  mehr  verlieren.  Sie 
k&nnen  nach  Belieben  ein  bis  vier  Bit-Ebenen  angeben,  je  nach- 
dem  wieviel  Farbe  Sie  in  Ihren  Statistiken  bevorzugen. 

Dann  erzeugen  wir  Screen  und  Window  fur  das  Grafik-Unter- 
programm  und  definieren  die  Farbe  Nummer  7  von  WeiB  auf 
Rot  urn.  Das  kommt  Ihnen  bekannt  vor?  Natiirlich,  diese  Vor- 
bereitungen  kennen  Sie  noch  von  den  Beschreibungen  zum  Bal- 
ken-/Tortengrafik-Utility  aus  Kapitel  2.7. 
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Window  1  (das  BASIC-Window)  wird  etwas  verkleinert  und  be- 
kommt  den  Namen  "Statistikdaten-Verwaltung".  Wenn  Ihnen  das 
zu  lang  oder  zu  trocken  ist  und  Ihnen  etwas  besseres  einfallt, 
k6nnen  Sie  gem  einen  anderen  Namen  eingeben.  Als  Screen  ha- 
ben  wir  -1  angegeben.  Wahrend  die  Screens  1  bis  4  allein  dem 
Anwender  zur  Verfugung  stehen,  ist  -1  die  Nummer  des  Work- 
bench-Screens. 

Es  folgt  die  Definition  der  Pulldown-Menus.  Denn  auf  Menu- 
steuerung  wollen  wir  in  diesem  Programm  nicht  verzichten:  In 
einem  Pulldown  namens  "Datei"  stehen  Ihnen  die  Optionen  "la- 
den" und  "speichern",  auBerdem  "lGschen"  (gemeint:  LOschen  der 
Daten  im  Speicher)  und  "Programm  beenden"  zur  Verfugung. 

Das  Pulldown  "Grafik"  dient  zum  Aufruf  der  beiden  Moglich- 
keiten  zur  Aufbereitung  statistischer  Daten:  Balken-  oder 
Tortengrafiken.  Die  Menus  3  und  4,  die  in  der  BASIC-Grund- 
einstellung  ja  mit  "Run"  und  "Windows"  belegt  sind,  werden  un- 
terdriickt. 

SchlieBlich  aktivieren  wir  Event  Trapping  fur  die  Menu-Steue- 
rung  und  springen  zur  'Hauptschleife:'. 

Im  Gegensatz  zum  Malprogramm  ist  dieses  Programm  nicht 
ausschlieBlich  durch  Event  Trapping  gesteuert.  Vielmehr  sind 
die  Pulldown-Funktionen  mehr  oder  weniger  willkommene 
Unterbrechungen  der  Programmteile  'Hauptschleife:'  und  'Ein- 
gabe:\  Diese  Handhabung  des  Event  Trapping  ist  die  iiblichere 
Methode.  Sie  ist  immer  dann  sinnvoll,  wenn  die  Reaktionen  auf 
mdgliche  Ereignisse  (Menus,  Maus,  Timerablaufe,  Fehlerbe- 
handlung,  Abbruchkontrolle  sowie  Kollisionsabfrage  von  Gra- 
fikobjekten)  das  Hauptprogramm  erganzen  oder  erweitern. 

Als  nachstes  erwartet  unser  Programm  zu  Recht  einige  Informa- 
tionen  dariiber,  was  es  bei  einer  Menu-Auswahl  iiberhaupt  tun 
soil: 
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MenukontroUe: 
Men=MENU<0)  :  Menpunkt=MENU(1) 
IF  Men=1  THEM 

IF  Menpunkt=1  THEN  GOSUB  Datenladen 

IF  Menpunkt=2  THEN  GOSUB  DatenSpeichern 

IF  Menpunkt=3  THEN  GOSUB  DatenLoeschen 

IF  Menpunkt=4  THEN  Ende 
END  IF 
IF  Men=2  THEN 

IF  Menpunkt=1  THEN  Wert$(0)="B" 

IF  Menpunkt=2  THEN  Wert$(0)="T» 

Wert(0)=HoechstZeile 

IF  Zahl$(Wert(0)+4)=»»  THEN  Wert(0)=Wert<0)-1 

FOR  x=1  TO  Wert(O) 
Wert$(x)=Bez$(x+4) 
Wert(x)=VAL(ZahL$(x+4)) 
IF  Wert(x)=0  THEN  Wert(x)=.01 

NEXT  x 

MENU  OFF 

MENU  1,0,0  :  MENU  2,0,0 

WINDOW  99  :  CLS 

GOSUB  Grafik 

WINDOW  2,"Bitte  drucken  Sie  eine  Taste!",<350,0)-<631,0),20,4 
COLOR  0,1  :  CLS 
WHILE  INKEY$=»» 
WEND 

WINDOW  CLOSE  2 
WINDOW  1 
MENU  ON 

MENU  1,0,1  :  MENU  2,0,1 
END  IF 
RETURN 

In  der  Variablen  'Men'  legen  wir  die  Nummer  des  gewahlten 
Pulldowns  ab,  in  'Menpunkt'  die  Nummer  der  gewahlten  Menu- 
Option.  Genauso  haben  wir's  ubrigens  auch  im  Malprogramm 
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gehandhabt.  Sie  sehen:  Langsam  wiederholen  sich  immer  mehr 
dieselben  Prozeduren,  wenn  es  darum  geht,  Probleme  zu  lflsen. 

Falls  das  erste  Pulldown  gewahlt  wurde,  ist  fur  jeden  moglichen 
Menupunkt  ein  eigenes  Unterprogramm  zustandig.  Wurde  das 
zweite  Pulldown  gewahlt,  soil  eine  der  beiden  Grafikarten  auf- 
gerufen  werden.  In  der  ersten  Position  des  Felds  'WertS'  dient 
ein  B  (fur  Balken)  oder  ein  T  (fur  Torten)  zur  Kennzeichnung, 
welche  Darstellung  gewiinscht  wird. 

Die  erste  Position  von  'Wert'  muB  beim  Aufruf  des  'Grafik'- 
Unterprogramms  die  Anzahl  an  Daten  enthalten.  Die  Variable 
'HoechstZeile"  beinhaltet  diesen  Wert,  sie  kann  einfach  uber- 
nommen  werden.  Allerdings  schieBt  'HoechstZeile'  manchmal 
etwas  ubers  Ziel  hinaus:  Wenn  nSmlich  nach  der  letzten  Daten- 
eingabe  die  <RETURN>-Taste  gedruckt  wurde,  steht  der  Cursor 
schon  eine  Zeile  unterhalb  der  letzten  Datenzeile.  In  diesem  Fall 
wurde  sich  ein  Wert  0  ohne  Bezeichnung  in  die  Grafiken  ein- 
schleichen,  was  unsinnig  ware.  Deshalb  pruft  das  Programm,  ob 
in  der  Zahlen-Spalte  der  letzten  Zeile  auch  eine  Zahl  steht.  1st 
das  nicht  der  Fall,  handelt  es  sich  um  eine  Leerzeile  und  der 
Wert  in  'Wert(O)'  wird  um  1  vermindert. 

Die  nun  folgende  FOR...NEXT-Schleife  kopiert  die  Inhalte  der 
Felder,  aus  denen  sich  die  Datenzeilen  zusammensetzen,  in  die 
Ubergabefelder  'Wert'  und  'Wert$\  Erinnern  Sie  sich  daran,  daB 
die  Felder  'Bez$'  und  'Zahl$'  um  vier  Postionen  "vorgehen". 
(Deshalb:  Wert$(x)=Bez$(x+4))  Die  Schleife  wird  so  oft  durch- 
gefiihrt,  wie  Daten  vorhanden  sind. 

An  dieser  Stelle  rechnet  die  Funktion  VAL  auch  die  Inhalte  des 
String-Felds  'Zahl$'  in  Zahlen  fur  das  Zahlen-Feld  'Wert'  um. 
Kommt  unter  den  Daten  eine  0  vor,  wird  der  Wert  etwas  erh6ht, 
nSmlich  auf  0,01.  Die  Grafikroutinen  wiirden  sonst  einen  "Divi- 
sion by  Zero"-Error  verursachen. 

Wahrend  des  Zeichnens  soil  die  Menuauswahl  abgeschaltet  wer- 
den, deshalb  MENU  OFF.  Die  beiden  Pulldown-Menus  erschei- 
nen  nur  noch  in  Geisterschrift,  um  auch  optisch  klarzumachen, 
daB  zur  Zeit  keine  Auswahl  moglich  ist.  WINDOW  99  wird  akti- 
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viert.  Das  ist  das  Window,  in  dem  die  Grafik  entsteht.  Vorher 
16schen  wir  es  noch  mit  CLS,  denn  ab  dem  zweiten  Aufruf  be- 
findet  sich  schon  eine  fruhere  Grafik  im  Window. 

Der  Rest  ist  Sache  des  'Grafifc'-Unterprogramms,  das  jetzt  mit 
GOSUB  aufgerufen  wird. 

Nach  der  Fertigstellung  der  Grafik  kehrt  das  Programm  zur 
Zeile  des  Aufruf s  zuruck.  Wir  erzeugen  jetzt  ein  Window,  das  in 
der  rechten  oberen  Bildschirmecke  erscheinen  und  den  Titel  tra- 
gen  wird:  MBitte  dnicken  Sie  eine  Taste!".  Das  eigentliche  Win- 
dow ist  nur  zwei  Pixels  hoch,  denn  im  Titel  ist  schon  alles 
Wichtige  gesagt.  Auch  das  ist  eine  Mdglichkeit,  wenn  Sie  Dia- 
log-Windows verwenden  wollen.  Falls  Sie  fur  Hardcopies  (Aus- 
drucke  auf  einem  Drucker)  oder  Fotos  die  Grafik  pur  brauchen, 
kdnnen  Sie  das  Dialog-Window  in  den  Hintergrund  klicken. 

Eine  Hardcopy,  die  den  Bildschirminhalt  je  nach  den  FShigkei- 
ten  Ihres  Druckers  in  Farbe  oder  durch  Umsetzung  der  Farben 
in  Grautone  zu  Papier  bringt,  bietet  Ihnen  das  Programm  "Gra- 
phicDump",  das  Sie  in  der  "Systemtt-Schublade  der  Workbench- 
Diskette  finden.  AmigaBASIC  kann  von  sich  aus  keine  Hardco- 
pies drucken. 

Zur  Funktionsweise  von  "GraphicDump"  sollten  Sie  vor  allem  ei- 
nes  wissen:  Ausgedruckt  wird  immer  der  vordere  Screen.  Solange 
das  BASIC- Window  auf  dem  Workbench-Screen  dargestellt  wird, 
gibt  es  keine  Probleme.  Wollen  Sie  jedoch  den  Inhalt  eines  an- 
deren  Screens  ausdrucken,  sollten  Sie  den  gewunschten  Screen 
nach  unten  ziehen  (das  macht  "GraphicDump"  nichts  aus),  bis 
der  Workbench-Screen  erscheint,  auf  dem  Sie  dann  das  "Gra- 
phicDumpMcon  anklicken  kdnnen.  Wenn  Sie  diesen  Hinweis 
nicht  beachten,  bekommen  Sie  ausschlieBlich  Hardcopies  des 
Workbench-Screens,  weil  der  beim  Anklicken  von  MGra- 
phicDump"  der  vordere  Screen  war. 

Doch  zuruck  zu  unserem  Programm:  Eine  WHILE...WEND- 
Schleife  wartet  nun  auf  den  Tastendruck.  Fand  dieses  weltbewe- 
gende  Ereignis  schliefilich  statt,  wird  zun&chst  unser  Dialog- 
Window  geschlossen,  dann  Window  1  (das  BASIC-  bzw.  Daten- 
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eingabe-Window)  aktiviert.  SchlieJMich  lassen  wir  Event  Trap- 
ping fur  die  Menu-Auswahl  zu,  aktivieren  die  beiden  Pulldowns 
und  kehren  mit  RETURN  zu  der  Programmzeile  zuriick,  mit  der 
unser  Amiga  gerade  besch&ftigt  war,  als  er  durch  das  Menu-Er- 
eignis  unterbrochen  wurde  -  was  eine  kleine  Maus  alles  bewir- 
ken  kann... 

Leider  kOnnen  Sie  die  bisher  eingegebenen  Teile  noch  nicht  aus- 
probieren,  denn  das  'Grafik:'-Unterprogramm  fehlt  noch,  und 
auch  mit  Daten  irgendwelcher  Art  konnen  wir  bisher  noch  nicht 
dienen.  Gehen  wir  deshalb  mal  wieder  ein  Stuck  Programm  an: 

Hauptschleife: 
CLS 

IF  HoechstZeile>50  THEN  HoechstZei le=50 
IF  Zeile1>HoechstZeile  THEN  Zeite1=HoechstZei le  :  BEEP 
IF  ZeileKI  THEN  Zeile1=1  :  BEEP 
PRINT  »Nummer";TAB(10);"Bezeichnung»;TAB(45);"Wert" 
FOR  x=Zeile1  TO  Zeilel+8 

COLOR  1,0 

PRINT  Nummer$(x);TAB(10);Bez$(x);TAB(45);Zahl$(x) 
NEXT  x 

IF  BezWert=0  THEN  StartSpaLte=10  :  EndSpalte=40 
IF  BezWert=1  THEN  StartSpalte=45  :  EndSpalte=55 
xp=Start$palte 

GOSUB  Eingabe 
GOTO  Hauptschleife 


Eingabe: 

IF  xp<StartSpalte  THEN  xp=StartSpalte 

LOCATE  6,xp 

COLOR  0,3  :  PRINT  »  ";  :  COLOR  1,0 

i$=INKEY$ 

IF  i$="M  THEN  Eingabe 

IF  i$=CHR$(1)  THEN  Zeite1=1  :  RETURN 

IF  i$=CHR$(5)  THEN  Zei le1=HoechstZei Le  :  RETURN 
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IF  i$=CHR$(12)  THEN  Loeschen:  RETURN 

IF  i$=CHR$(14)  THEN  Einfuegen  :  RETURN 

IF  i$=CHR$(28)  THEN  GOSUB  Textuebernahme  :  xp=StartSpalte  :  Zeile1=Zei 
le1-1  :  RETURN 

IF  i$=CHR$<29>  THEN  GOSUB  Textuebernahme  :  xp=StartSpatte  :  Zeile1=Zei 
teH1  :  RETURN 

TextPos=xp- StartSpa I te+ 1 

IF  BezUert=0  THEN  Text$=Bez$(Zeile1+4) 

IF  BezUert=1  THEN  Text$=Zahl$(Zeile1+4) 

IF  i$=CHR$(30)  THEN 

IF  TextPos<=LEN(Text$)  THEN  i$=MID$(Text$,TexPos,1) 
END  IF 

IF  i$=CHR$(13)  OR  i$=CHR$(9)  THEN 

GOSUB  Textuebernahme 

BezWert=1-BezUert 

IF  BezWert=0  THEN  Zeile1=Zei lel+1 

xpsStartSpalte 

IF  HoechstZeile<Zeile1  THEN  HoechstZei le=Zei le1 

RETURN 
END  IF 
IF  i$=CHR$<8)  OR  I$=CHR$(31)  THEN 

LOCATE  6,xp 

IF  TextPos<=LEN(Text$)  THEN 
PRINT  RIGHT$(Text$#LEN(Text$)-TextPos+1); 

ELSE 

PRINT  "  "; 

END  IF 

xp=xp-1  :  IF  xp<StartSpalte  THEN  xp=StartSpalte  :  BEEP  :  GOTO  Eingabe 

in$=LEFT$(in$f(LEN(in$)-1)) 

GOTO  Eingabe 
END  IF 

IF  i$=CHR$(34)  THEN  i$=CHR$<39) 
IF  1$>CHR$(31)  AND  i$<CHR$(127)  THEN 

IF  xp>=EndSpalte  THEN  xp=EndSpalte  :  BEEP  :  GOTO  Eingabe 

LOCATE  6,xp 

PRINT  i$; 
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in$=in$+i$ 
xp=xp+1 
END  IF 
GOTO  Eingabe 

Textuebernahme: 
IF  in$<>"»  THEN 

IF  BezUert=0  THEN  Bez$(Zei le1+4)=in$ 
IF  BezWert=1  THEN  Zahl$(Zeile1+4)=in$ 
in$="" 
ALtDaten=1 
END  IF 
RETURN 

Loeschen: 

FOR  x=Zeile1+4  TO  54 
Bez$(x)=Bez$(x+1) 
Zahl$(x)=Zahl$(x+1) 
NEXT  x 

HoechstZei le=HoechstZei le- 1 
IF  HoechstZeile<1  THEN  HoechstZei le=1 
RETURN 

Einfuegen: 

IF  HoechstZeile>=50  THEN  BEEP  :  RETURN 
FOR  x=HoechstZeile+4  TO  Zeile1+4  STEP  -1 

Bez$(x+1)=Bez$(x) 

Zahl$(x+1)=Zahl$(x) 
NEXT  x 

Bez$(Zeile1+4)="» 
Zaht$<Zeile1+4)="" 
HoechstZei le=HoechstZei le+1 
RETURN 


Die  Aufgabenverteilung  im  Programm  sieht  so  aus:  'Eingabe:'  ist 
fur  das  Eintippen  der  Daten  zustSndig  und  'Hauptschleife:'  fur 
das  Scrolling  der  Zeilen. 
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Oh  Verzeihung!  Scrolling  ist  ja  auch  wieder  so  ein  Fach- 
ausdruck.  Er  setzt  sich  zusammen  aus  den  englischen  Begriffen 
"Screen"  (Bildschirm)  und  "rolling"  (Rollen).  Von  Scrolling,  also 
Bildschirmrollen,  spricht  man,  wenn  irgendwelche  Zeilen,  Zei- 
chen  oder  ahnliche  Daten  an  einer  Seite  des  Bildschirms  ver- 
schwinden  und  dafur  auf  der  gegeniiberliegenden  Seite  neue 
Daten  in  den  Bildschirm  wandern.  Scrolling  ist  die  sinnvollste 
Methode,  Daten,  die  nicht  auf  einmal  auf  den  Bildschirm  pas- 
sen,  sichtbar  zu  machen.  Der  Anwender  sieht  immer  einen  Aus- 
schnitt  aus  der  Gesamtdarstellung. 

Mit  jeder  Verschiebung  des  Bildschirminhalts  baut  die  'Haupt- 
schleife:'  die  Textdarstellung  neu  auf.  Zuerst  16scht  CLS  den 
Bildschirm.  Der  Wert  von  'HoechstZeile'  wird  auf  50  begrenzt, 
mehr  Zeilen  sind  nicht  zugelassen. 

Die  Variable  'Zeile  1'  gibt  die  Nummer  der  ersten  Zeile  auf  dem 
Bildschirm  an.  Genauer  gesagt,  beinhaltet  'ZeileT  die  Feldpo- 
sition,  an  der  die  verschiedenen  Daten  der  ersten  von  neun  dar- 
gestellten  Zeilen  gespeichert  sind.  Lesen  Sie  den  letzten  Satz  ru- 
hig  noch  mal,  wenn  Sie  ihn  nicht  auf  Anhieb  verstanden  haben. 
Ein  Beispiel  soil  verdeutlichen,  was  gemeint  ist:  Hat  'Zeile V  den 
Wert  1,  werden  in  der  ersten  Zeile  die  Werte  aus  'Nummer$(l)\ 
'Bez$(l)'  und  'Zahl$(l)'  dargestellt.  Wie  Sie  sicher  noch  wissen, 
sind  das  alles  leere  Daten,  die  erste  Zeile  ist  also  leer.  Die  fiinfte 
Zeile  ist  die  erste  Zeile,  die  vom  Cursor  erreicht  werden  kann. 
Sie  hat  deshalb  die  laufende  Nummer  1.  In  'Nummer$(5)*  steht 
die  Zahl  1.  'Zeile  V  gibt  also  gleichzeitig  auch  die  laufende 
Nummer  der  aktuellen  Eingabezeile  an. 

Vermutlich  haben  Sie  noch  immer  kraftige  Schwierigkeiten,  dem 
Ganzen  zu  folgen.  Aber  keine  Sorge:  Alle  Theorie  ist  grau  - 
besser  verstandlich  ist  das  alles,  wenn  Sie  das  Programm  mal 
ausprobieren.  Sie  haben  jetzt  einen  so  groBen  Teil  hinter  sich 
gebracht,  dafi  das  Programm  in  seinen  Grundfunktionen  schon 

lauft. 

Vergessen  Sie  aber  bitte  vorher  das  Abspeichern  nicht.  Sollten 
Fehler  auftreten,  korrigieren  Sie  sie  bitte  anhand  unseres  Li- 
stings. Wenn  alles  richtig  l&uft,  driicken  Sie  bitte  ein  paarmal 
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<RETURN>.  Damit  machen  Sie  leere  Eingaben,  aber  das  ist  im 
Moment  nicht  so  wichtig.  Sie  kflnnen  auch  einige  Worte  ein- 
tippen,  dann  ist  das  Scrolling  besser  sichtbar.  Jedes  Wort 
schlieBen  Sie  bitte  mit  <RETURN>  ab. 

Sie  sehen,  daB  der  Cursor  zwischen  der  Spalte  "Bezeichnung" 
und  der  Spalte  "Wert"  hin  und  her  springt.  Tippen  Sie  solange 
<RETURN>  ein,  bis  der  Cursor  ungeflhr  in  der  Zeile  mit  der 
laufenden  Nummer  5  steht. 

Probieren  Sie  nun,  was  die  Tasten  <Pfeil  nach  oben>  und  <Pfeil 
nach  unten>  bewirken.  Sie  sehen,  daB  sich  alle  Zeilen  entweder 
nach  oben  oder  nach  unten  bewegen.  Wenn  Sie  den  Cursor  ganz 
an  das  obere  Ende  der  Datei  bewegen,  sehen  Sie,  daB  uberhalb 
der  Eingabezeile  mit  der  laufenden  Nummer  1  vier  Leerzeilen 
stehen.  In  diesem  Augenblick  hat  die  Variable  'Zeile  V  den  Wert 
1.  Sie  arbeiten  in  der  Zeile  mit  der  laufenden  Nummer  1,  und 
die  erste  Zeile  auf  dem  Bildschirm  ist  mit  den  ersten  Elementen 
der  drei  Felder  ('NummerS',  'Bez$'  und  'ZahlS')  gefullt.  Stehen 
Sie  mit  dem  Cursor  in  der  Zeile  Nummer  5,  hat  'Zeile V  den 
Wert  5.  Und  so  weiter.  Wenn  Sie  dieses  Prinzip  verstanden  ha- 
ben,  ist  der  Rest  des  Programms  nicht  mehr  schwer. 

Die  nachsten  beiden  Programmzeilen  begrenzen  das  Scrolling 
nach  oben  und  nach  unten:  Vor  die  erste  Zeile  und  hinter  die 
letzte  Zeile  ('HoechstZeile')  darf  sich  der  Cursor  nicht  bewegen. 
Der  Anwender  wird  mit  einem  BEEP  darauf  hingewiesen. 

Das  Programm  druckt  nun  zuerst  die  Spaltenuberschriften 
("Nummer",  "Bezeichnung"  und  "Wert"),  dann  darunter  die  neun 
Datenzeilen.  Dazu  wird  mal  wieder  ein  neuer  BASIC-Befehl 
verwendet:  TAB  kommt  vom  Wort  "Tabulator".  Vielleicht  kennen 
Sie  Tabulatoren  von  Schreibmaschinen  oder  sogar  von  einem 
Textverarbeitungsprogramm.  Den  Befehl  TAB  verwenden  Sie, 
wenn  Sie  wollen,  daB  eine  Bildschirmausgabe  in  einer  bestimm- 
ten  Spalte  beginnt. 

PRINT  TAB(10);"HaUo!" 
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druckt  das  Wort  "Hallo!"  ab  der  10.  Bildschirmspalte.  Mit  dem 
TAB-Befehl  kflnnen  Sie  sehr  einfach  Tabellen  und  Listen  erzeu- 
gen. 

Gegen  Ende  der  'Hauptschleife:'  kommt  noch  eine  Variable  na- 
mens  'BezWert'  ins  Spiel.  Sie  erkennen  darin  wahrscheinlich 
schon  die  beiden  Bestandteile  "Bezeichnung"  und  "Wert".  Die 
Variable  'BezWert'  dient  als  Merker  dafiir,  ob  gerade  eine  Be- 
zeichnung (in  der  Text-Spalte)  Oder  ein  Wert  (in  der  Zahlen- 
Spalte)  eingegeben  wird. 

Dem  Unterprogramm  'Eingabe:'  teilen  wir  auOerdem  in  den  bei- 
den Variablen  'StartSpalte'  und  'EndSpalte'  mit,  wo  das  erlaubte 
Eingabefeld  beginnt  und  wo  es  endet.  Der  Wert  'xp'  schliefllich 
wird  auch  noch  vom  'Eingabe:'-Programm  verwendet.  Er  gibt 
die  horizontale  Position  des  Cursors  an.  Zu  Beginn  der  Eingabe 
ist  er  identisch  mit  der  Startspalte. 

Nach  alien  Vorbereitungen  rufen  wir  das  'Eingabei'-Unter- 
programm  auf.  Nach  der  Riickkehr  wird  'in$'  geldscht.  Das  ist 
der  Eingabestring,  der  furs  nSchste  Mai  wieder  leer  sein  soil. 

Zuletzt  springt  die  'Hauptschleife:'  an  ihren  eigenen  Anfang. 
Solange  keine  Unterbrechung  auftritt,  lauft  diese  Schleife  endlos. 

Schauen  wir  uns  jetzt  das  'Eingabe:*-Unterprogramm  naher  an. 
Zuerst  zu  seiner  grundsatzlichen  Funktion:  In  diesem  Programm 
haben  wir  die  Routinen  fur  die  Tastatur-Eingabe  selbst  ge- 
schrieben.  Normalerweise  bietet  AmigaBASIC  ja  Befehle  wie 
INPUT  und  LINE  INPUT.  Aber  wahrend  einer  dieser  Befehle 
eine  Eingabe  annimmt,  kann  AmigaBASIC  nicht  prufen,  welche 
Tasten  gedruckt  werden.  Da  wir  zu  jeder  Zeit  die  voile  Kon- 
trolle  iiber  alle  Tasten  haben  wollen,  fragen  wir  Taste  fur  Taste 
mit  INKEY$  ab  und  setzen  daraus  bei  Bedarf  die  Worte  und 
Zahlen  zusammen. 

Das  Programm  beginnt  mit  einer  Einschrankung  fur  'xp\  Diese 
Variable  darf  nicht  kleiner  werden  als  die  'StartSpalte'.  Am  An- 
fang ist  das  sowieso  nicht  moglich,  schlieClich  haben  wir  noch 
kurz  vor  dem  Aufruf  'xp*  und  'StartSpalte'  gleichgesetzt.  Aber 
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wenn  im  Verlauf  der  Eingaben  der  Cursor  nach  links  bewegt 
wird  Oder  Zeichen  gelflscht  werden,  kann  es  schon  mal  vorkom- 
men,  daB  der  Cursor  das  Eingabefeld  an  der  linken  Seite  ver- 
lassen  will.  Dagegen  hilft  die  erste  Zeile. 

Der  Cursor  bleibt  in  einer  Bildschirmzeile  fixiert,  er  kann  nicht 
nach  oben  oder  unten  bewegt  werden.  Zeile  6  ist  die  Zeile,  wo 
sich  alles  abspielt.  Mit  LOCATE  6,xp  setzen  wir  den  Cursor  in 
die  richtige  Zeile  auf  die  richtige  horizontale  Position.  Der 
Cursor  (wir  miissen  ihn  in  unserem  Programm  ja  auch  selbst 
erzeugen)  soil  ein  oranges  K&stchen  sein,  mit  COLOR  0,3  wah- 
len  wir  Orange  als  Hintergrundfarbe  und  Blau  fur  den  Vorder- 
grund.  Wenn  wir  nun  ein  einfaches  Leerzeichen  drucken,  ist  das 
Ergebnis  ein  oranges  Kfcstchen.  Danach  wird  die  Farbe  fur  alle 
anderen  Textdarstellungen  auf  ihre  Normaleinstellung  zuruckge- 
setzt. 

Es  folgt  der  zentrale  Befehl  der  ganzen  Eingaberoutine: 
i$=INKEY$.  Die  Variable  'iS1  enth&lt  immer  das  aktuelle,  ein- 
gegebene  Zeichen.  Ist  i$  ein  Leersting,  wurde  keine  Taste  ge- 
driickt.  In  diesem  Fall  springt  das  "Eingabe:H-Programm  sofort 
wieder  an  seinen  eigenen  Anfang  und  wartet  solange,  bis  eine 
Taste  gedriickt  wurde. 

Ubrigens:  Falls  Sie  mal  schneller  tippen  sollten,  als  es  der  Amiga 
verarbeiten  kann,  gehen  trotzdem  keine  Zeichen  verloren. 
AmigaBASIC  hat  einen  15  Zeichen  groBen  Tastaturpuffer.  Hier 
merkt  sich  der  Amiga  die  Tastenanschlage,  die  nicht  sofort  be- 
arbeitet  werden  konnten.  Und  INKEY$  liest  grundsStzlich  aus 
dem  Tastaturpuffer.  Wenn  der  Puffer  voll  ist,  und  Sie  tippen 
weiter,  werden  Sie  durch  ein  kurzes  Aufblitzen  auf  dem  Schirm 
gewarnt,  daB  ab  jetzt  Zeichen  verloren  gehen.  Dasselbe  Auf- 
blitzen unterstiitzt  durch  ein  Piepsen  erleben  Sie  auch,  wenn 
AmigaBASIC  kein  Window  hat,  dem  es  die  Tastatureingaben  zu- 
ordnen  konnte. 

Der  Rest  des  'Eingabei'-Programms  ist  mit  der  Auswertung  der 
eingegebenen  Zeichen  beschaftigt.  Wenn  Sie  den  Inhalt  von  IN- 
KEY$  (bzw.  dessen  Kopie  in  'in$')  priifen  wollen,  brauchen  Sie 
dazu  den  CHR$-Befehl.  CHR$  macht  ja  aus  einem  ASCII-Code 
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das  zugehdrige  Zeichen.  Sie  vergleichen  Zeichen  mit  Zeichen, 
nSmlich  INKEY$  mit  CHR$(x).  1st  das  Ergebnis  eines  solchen 
Vergleichs  "wahr",  kann  Ihr  Programm  darauf  reagieren. 

CHR$(1)  entspricht  dem  Zeichen  <CTRL>-<A>.  Dieses  Zeichen 
entsteht,  wenn  Sie  die  <CTRL> -Taste  gedruckt  halten  und  dann 
die  Taste  <A>  drucken.  Wie  viele  Control-Zeichen  (CTRL  ist 
eine  Abkurzung  fur  "Control")  erzeugt  <CTRL>-<A>  im  BASIC- 
Window  kein  sichtbares  Zeichen.  DaB  diese  Zeichen  aber  den- 
noch  etwas  bewirken  kflnnen,  merken  Sie,  wenn  Sie  zum  Bei- 
spiel  im  BASIC-Window  <CTRL>-<G>  drucken.  Dieses  Zeichen 
laBt  den  Piepser  erklingen,  den  Sie  schon  von  BEEP  kennen.  Sie 
kennen  auch  schon  <CTRL>-<C>.  Diese  Tastenkombination 
bricht  das  aktuelle  BASIC- Programm  ab. 

<CTRL>-<A>  bekommt  eine  besondere  Funktion  innerhalb  un- 
seres  Programms:  A  steht  fur  Anfang,  mit  der  Tastenkombi- 
nation <CTRL>-<A>  k6nnen  Sie  jederzeit  an  den  Anfang  Ihrer 
Datenliste  springen,  also  in  die  erste  Zeile.  'Zeilel'  wird  auf  1 
gesetzt,  das  war-s  schon.  Rucksprung  mit  RETURN,  denn  fur 
die  Anzeige  der  Zeilen  ist  die  'Hauptschleife:'  zustandig.  Ge- 
nauso  funktioniert  <CTRL>-<E>  bzw.  CHR$(5).  Damit  kflnnen 
Sie  ans  Ende  Ihrer  Datei  springen.  Das  Ende  der  Datei  ist  die 
hOchste  Zeile,  wo  bereits  eine  Eingabe  erfolgte.  Es  darf  sich  da- 
bei  auch  um  eine  Leereingabe  handeln. 

CHR$(12)  entspricht  <CTRL>-<L>.  Mit  dieser  Tastenkombina- 
tion kflnnen  Sie  die  Zeile,  in  der  der  Cursor  steht,  aus  der 
Datenliste  lflschen.  Dafur  gibt  es  ein  eigenes  Unterprogramm,  es 
heiBt  'Loeschen:'.  Nach  der  Ausfuhrung  dieser  Routine  ebenfalls 
RQcksprung  in  die  'Hauptschleife:'.  CHR$(14)  schlieBlich,  auf 
der  Tastatur  durch  <CTRL>-<N>  zu  erzeugen,  fQgt  eine  neue 
Zeile  an  der  aktuellen  Cursorposition  ein.  Auch  dafiir  gibt  es  ein 
eigenes  Unterprogramm,  nSmlich  'Einfuegen:'. 

Bei  den  vier  Control-Funktionen  in  unserem  Programm  haben 
wir  versucht,  die  Tasten  so  zu  belegen,  daB  Sie  auf  die  Funktion 
schlieBen  k6nnen: 
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<CTRL>-<A>  springt  an  den  Anfang 

<CTRL>-<E>  ans  Ende 

<CTRL>-<L>  Loscht  eine  Zeile 

<CTRL>-<N>  fiigt  eine  Neue  Zeile  ein 

Diese  Hilfe  fur  den  Benutzer  sollten  Sie  in  Ihren  Programmen 
auch  anstreben.  Woher  kann  ein  unbedarfter  Benutzer  schlieBlich 
wissen,  daB  <CTRL>-<U>  z.B.  fur  "Hilfsmenu"  stehen  soil?  Wo 
es  m6glich  ist,  sollten  Sie  anstelle  von  <CTRL>-Sequenzen  so- 
wieso  lieber  Pulldowns  einsetzen,  dort  k6nnen  Sie  Klartext  an- 
zeigen,  und  die  Bedienung  mit  der  Maus  macht  eh  mehr  SpaB 
als  uber  die  Tastatur. 

Die  nachsten  beiden  Zeilen  passen  auf  die  Tasten  <Curspr  nach 
oben>  und  <Cursor  nach  unten>  auf.  CHR$(28)  entspricht  der 
<Cursor  nach  oben>-Taste.  Wenn  der  Anwender  diese  Taste 
driickt,  verl&Bt  er  ja  das  aktuelle  Eingabefeld.  Also  soil  die  dort 
stehende  Eingabe  in  die  Liste  iibernommen  werden,  wofur 
'Textuebernahme:1  zustfindig  ist.  'xp',  der  Cursor-Positionszeiger, 
wird  auf  die  Startspalte  gesetzt,  damit  er  im  neuen  Eingabefeld 
am  Anfang  steht.  'Zeile  V  wird  um  1  vermindert,  und  schon  ist 
alles  erledigt.  Nach  dem  Rucksprung  in  die  'Hauptschleife:1  wird 
um  eine  Zeile  nach  oben  gescrollt. 

CHR$(27)  wird  von  <Cursor  nach  unten>  erzeugt.  Diese  Zeile  ist 
genauso  aufgebaut  wie  die  letzte,  nur  scrollen  wir  diesmal  eine 
Zeile  nach  unten. 

Die  Variable  TextPos'  errechnet  die  Position  des  Cursors  inner- 
halb  des  aktuellen  Eingabetextes.  Steht  der  Cursor  beispielsweise 
in  Spalte  14,  und  'StartSpalte'  ist  10,  befinden  wir  uns  auf  der 
(14-10+l)-ten,  sprich  der  fiinften  Position  im  eingegebenen 
Text.  Sie  kdnnen's  gern  nachzahlen. 

Im  String  'TextS'  steht  der  Text,  den  wir  im  gerade  aktuellen 
Feld  eingeben  bzw.  korrigieren.  Je  nach  dem  Inhalt  von 
'BezWert'  wird  dieser  Text  zu  Beginn  aus  dem  Feld  'Bez$'  oder 
'ZahlS'  gelesen. 
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CHR$(30)  wird  durch  <Cursor  nach  rechts>  erzeugt.  Steht  der 
Cursor  iiber  einem  bereits  eingegebenen  Text  (was  durch 
IF  TextPos<=LEN(Text$)  festgestellt  werden  kann)  und  der  An- 
wender  driickt  die  <Cursor  nach  rechts>-Taste,  wird  'i$'  jeweils 
das  Zeichen  aus  Text$\  iiber  dem  der  Cursor  steht. 

CHR$(13)  werden  Sie  auch  in  anderem  Zusammenhang  noch 
haufig  brauchen,  es  ist  der  Code,  den  die  <RETURN>-Taste 
erzeugt.  CHR$(9)  gehort  zur  <TAB>-Taste.  Die  beiden  Tasten 
haben  in  unserem  Programm  dieselbe  Funktion.  ZunSchst  einmal 
zeigt  <RETURN>  bzw.  <TAB>  auf  jeden  Fall  an,  daB  die  Ein- 
gabe  im  aktuellen  Feld  abgeschlossen  ist.  Also  wird  Textueber- 
nahme:'  aufgerufen.  'BezWert'  pendelt  immer  zwischen  1  und  0, 
um  anzuzeigen,  ob  wir  uns  in  der  Spalte  "Bezeichnung"  oder  in 
der  Spalte  "Wert"  befinden.  Die  Formel  (Variable)=l -(Variable) 
andert  den  Wert  einer  Variablen  bei  jedem  Durchlauf  auf  1  oder 
auf  0. 

Wenn  'BezWert'  gerade  den  Wert  0  erhalten  hat,  wurde  von  der 
HWertM-SpaIte  zuriick  in  die  Bezeichnungs-Spalte  gewechselt.  In 
diesem  Fall  fiihren  wir  auch  noch  einen  Zeilenvorschub  aus.  'xp' 
bekommt  wieder  den  Spalten-Anfangswert.  Gegebenenfalls  wird 
noch  eine  neue  'HoechstZeile'  festgelegt.  'HoechstZeile1  gibt 
immer  die  hochste  Zeilennummer  an,  in  der  bereits  eine  Eingabe 
erfolgte.  Die  Zeile,  wohin  der  Cursor  schon  einmal  vorgedrun- 
gen  ist,  ist  auch  die  'HoechstZeile'.  Liegt  der  neue  Wert  von 
'Zeilel'  iiber  der  'HoechstZeile',  wird  deren  Wert  angepaBt.  Da 
nun  der  'Eingabe:'-Teil  seine  Schuldigkeit  getan  hat,  ubergibt  er 
durch  RETURN  den  Rest  der  Arbeit  an  die  'Hauptschleife:'. 

Der  nachste  Block  pruft  die  Tasten  <BACKSPACE>  und 
<Cursor  nach  links>  ab:  Die  beiden  Tasten  sind  in  unserem  Pro- 
gramm auch  gleichberechtigt.  Mit  ihnen  loschen  Sie  die  Zeichen 
links  vom  Cursor.  Es  k6nnen  zwei  Faile  auftreten:  Befindet  sich 
der  Cursor  innerhalb  des  Texts,  der  schon  vorher  in  der  Spalte 
war  (IF  TextPos<=LEN(Text$)...),  soli  beim  Loschen  neu 
eingegebener  Zeichen  der  alte  Text  wieder  zum  Vorschein  kom- 
men.  Gibt  es  keinen  Text  "unter"  der  Neueingabe,  werden  ein- 
fach  Leerzeichen  gedruckt.  Der  Ausdruck 
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RIGHT$(Text$,LEN(Text$)-TextPos+1) 

liefert  den  Anteil  von  Text$\  der  sich  hinter  der  aktuellen 
Cursorposition  befindet. 

Diese  Arbeitsweise  eines  Editors  ist  Ihnen  wahrscheinlich  nicht 
so  vertraut.  Zuerst  geben  Sie  die  Texte  oder  Zahlen  ein.  Wenn 
Sie  bei  der  Eingabe  einen  Fehler  machen,  miissen  Sie  zur  direk- 
ten  Korrektur  solange  mit  <BACKSPACE>  die  hinteren  Zeichen 
ldschen,  bis  der  Fehler  geloscht  ist.  Das  kennen  Sie  von  Amiga- 
BASIC aus  dem  BASIC-Window  und  von  den  Befehlen  INPUT 
und  LINE  INPUT.  Kommen  Sie  mit  dem  Cursor  auf  ein  Feld, 
das  bereits  einen  Text  beinhaltet,  konnen  sie  ihn  uber  dem  Wort 
nach  links  und  nach  rechts  bewegen.  Wenn  Sie  dabei  ein  neues 
Zeichen  eingeben,  wird  das  alte  Zeichen  durch  das  neue  ersetzt. 
Bewegen  Sie  den  Cursor  aber  uber  den  neuen  Text  zuruck,  lo- 
schen  Sie  damit  die  neue  Eingabe  und  die  alte  kommt  darunter 
wieder  zum  Vorschein.  Beim  Drucken  von  <RETURN>  wird  der 
neue  Text  nur  bis  zur  aktuellen  Cursorposition  ubernommen,  der 
Teil  dahinter  wird  geloscht. 

Nach  diesem  Prinzip  funktioniert  zum  Beispiel  der  Editor  der 
Apple  II-Computer,  jener  Computerveteranen,  deren  Ursprunge 
von  Steve  Jobs  und  Stephen  Wozniak  (den  bisher  wunderbarsten 
Wunderkindern  der  Computerbranche)  in  einer  Garage  ent- 
wickelt  wurden.  Die  beiden  haben  damals  fast  alles  allein  ge- 
macht,  die  ganze  Hardware  und  die  Software  entwickelt.  Dabei 
kam  dann  auch  die  etwas  einfache,  aber  doch  brauchbare  Cur- 
sorsteuerung  heraus,  die  sich  naturlich  nicht  an  den  Bildschirm- 
orientierten  Editor- Versionen  messen  kann,  wie  sie  die  Amiga- 
Software  teilweise  bietet.  Aber  nach  einer  kurzen  Eingewohnung 
werden  Sie  sehen,  daB  man  damit  gar  nicht  so  schlecht  zurecht- 
kommt.  Ein  noch  komfortablerer  Editor  ist  in  BASIC  jedenfalls 
nur  sehr  aufwendig  zu  erreichen. 

Der  Rest  des  Teils  zum  LGschen  von  Zeichen  ist  schnell  erklart: 
Die  Cursorposition  'xp'  wird  urn  1  vermindert,  ist  die 
'StartSpalte'  erreicht,  piept's  und  der  Cursor  bewegt  sich  nicht 
weiter.  Der  Eingabestring  'in$'  wird  auf  den  Teil  beschrankt, 
der  links  vom  Cursor  steht,  also:  in$=LEFT$(in$,(LEN(in$)-l)). 
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1st  alles  erledigt,  springt  das  Programm  zuruck  zum  Beginn  des 
*Eingabe:'-Teils,  denn  die  Eingabe  ist  schlieBlich  noch  nicht 
beendet. 

AIs  nachstes  folgt  ein  kleiner  Trick.  Vielleicht  haben  Sie  beim 
Ausprobieren  des  Programms  schon  bemerkt,  daB  Sie  kein  An- 
fuhrungszeichen  (")  eintippen  kflnnen.  Alle  anderen  Zeichen  sind 
erlaubt,  aber  anstelle  des  Anfflhrungszeichens  erscheint  ein 
Apostroph  (\  dieses  Zeichen  wird  auch  "Hochkomma"  genannt). 
Anfuhrungszeichen  im  Text  wiirden  uns  nSmlich  beim  Abspei- 
chern  der  Daten  Schwierigkeiten  machen,  wir  werden  spater  er- 
kiaren,  warum  das  so  ist. 

Der  letzte  Teil  der  'Eingabe:'-Schleife  ist  fur  die  Eingabe  ganz 
normaler  Zeichen  zustandig.  Damit  uns  die  Steuerzeichen  wie 
CTRL-Codes  oder  Funktionstasten  nicht  ins  Gehege  kommen, 
haben  wir  die  erlaubten  Zeichen  auf  die  ASCII-Codes  von  32 
bis  126  beschrSnkt.  Sie  kSnnen  ja  in  der  Tabelle  im  Anhang  B 
nachschlagen,  wenn  Sie  sich  dafur  interessieren,  welche  Zeichen 
das  sind.  Ist  'i$'  eines  dieser  Zeichen  und  'xp*  nicht  grflGer  als 
*EndSpalte*  (sonst  piepst's  n^mlich,  und  der  Amiga  verweigert 
die  Annahme  weiterer  Zeichen  in  diesem  Feld),  dann  wird  das 
Zeichen  auf  den  Bildschim  gedruckt,  und  der  Eingabestring  'inS' 
wird  um  das  eingegebene  Zeichen  erweitert.  Die  Variable  'xp\ 
die  Cursor-Position,  wird  um  1  erhdht,  dann  erfolgt  der  Ruck- 
sprung  zum  Beginn  der  'Eingabef-Schleife. 

So  weit,  so  gut.  Uns  fehlen  noch  die  Unterprogramme,  die  der 
'Eingabe:*-Schleife  verschiedene  Arbeiten  abnehmen.  Da  gibt  es 
zunSchst  einmal  die  'Textuebernahme:'.  Sie  wird  aufgerufen, 
wenn  der  Text  der  aktuellen  Bildschirmeingabe  in  das  zugehO- 
rige  Datenfeld  ubernommen  werden  soil.  Die  ganze  Routine 
wird  vom  Programm  nur  dann  ausgefuhrt,  wenn  der  Eingabe- 
string *in$'  nicht  leer  ist  -  denn  wo  nichts  ist,  gibt  es  auch 
nichts  zu  ubernehmen.  AuBerdem:  Steht  der  Cursor  auf  der  er- 
sten  Position  eines  Eingabefelds  (was  immer  dann  der  Fall  ist, 
wenn  der  Cursor  gerade  erst  in  das  Feld  gekommen  ist)  und 
wird   dann   <RETURN>,   <TAB>  oder  eine   der   <Cursor  nach 
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oben>/<Cursor  nach  unten>-Tasten  gedruckt,  soil  am  Feldinhalt 
nichts  verandert  werden.  Das  ermSglicht  das  Suchen  und  Bewe- 
gen  innerhalb  der  Liste. 

Hat  'in$'  aber  einen  Inhalt,  wird  dieser  Inhalt  abhangig  von 
'BezWert'  ins  *Bez$'-Feld  Oder  ins  'ZahlS'-Feld  ubernommen. 
Danach  IDschen  wir  *in$'  fur  die  nachste  Eingabe.  SchlieBlich 
bekommt  noch  die  Variable  'AltDaten'  den  Wert  1.  Mit  ihr  hat 
es  folgende  Bewandtnis:  Eine  Anderung  der  Daten  kann  nur 
stattgefunden  haben,  wenn  das  Unterprogramm  Textueber- 
nahme:'  gelaufen  ist.  Will  der  Anwender  das  Programm  verlassen 
und  hat  er  die  veranderten  Daten  noch  nicht  abgespeichert, 
weist  ihn  ein  Warnungs- Window  darauf  hin.  Zu  Beginn  des  Pro- 
gramms  hat  'AltDaten'  den  Wert  0.  Solange  es  seinen  Wert  nicht 
andert,  wurden  auch  keine  Daten  verandert.  Ist  'AltDaten'  aber 
erst  mal  1,  so  weiB  das  Programm,  dali  Anderungen  durchge- 
fuhrt  wurden.  Damit  hat  Textuebernahme:'  schon  alle  Aufgaben 
erledigt,  es  springt  zuruck  zur  Zeile  des  Aufrufs. 

Der  nachste  Teil  heiBt  Xoeschen:'.  Er  16scht  eine  Datenzeile. 
Um  das  zu  erreichen,  werden  einfach  alle  Zeilen  von  der  aktu- 
ellen  Zeile  bis  zur  letzten  Zeile  der  Datei  um  eine  Position  nach 
vorn  kopiert.  Die  Elemente  der  Felder  'BezS1  und  *Zahl$'  be- 
kommen  die  Inhalte  der  jeweils  nachsthoheren  Feldelemente.  Die 
Zeile,  in  der  der  Cursor  steht,  verschwindet  und  wird  durch  die 
nSchsthohere  Zeile  ersetzt.  Die  'HoechstZeile1  vermindert  sich 
um  1.  Ist  das  obere  Ende  der  Datei  erreicht  (IF  HoechstZeile<l 
THEN...),  wird  die  'HoechstZeile'  auf  die  Anfangszeile  gesetzt, 
also  auf  den  Wert  1.  Sind  all  diese  Prozeduren  erledigt,  kann  das 
Unterprogramm  mit  RETURN  zuruckspringen. 

Die  entgegengesetzte  Funktion  ist  das  'Einfuegen:'  von  Daten- 
zeilen,  das  vom  nachsten  Unterprogramm  erledigt  wird.  Noch 
bevor  irgend  etwas  anderes  unternommen  wird,  pruft  'Einfue- 
gen:\  ob  uberhaupt  noch  Platz  fiir  eine  weitere  Zeile  ist.  Hat 
'HoechstZeile'  namlich  den  Wert  50  erreicht,  ist  die  Liste  bereits 
gerammelt  voll,  und  es  kOnnen  keine  weiteren  Zeilen  eingefiigt 
werden.  Ein  Piepser  weist  den  Anwender  darauf  hin.  Tritt  dieses 
Problem  nicht  auf,  beginnt  das  Unterprogramm  seine  Arbeit: 
Das  'Einfuegen:'   funktioniert  genau  andersrum  wie  das  'Loe- 
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schen:\  Vom  Ende  der  Datei  (HoechstZeile+4  liefert  die  ent- 
sprechende  Feldposition)  werden  bis  zur  aktuellen  Zeile  die 
Feldelemente  um  eine  Position  nach  hinten  verschoben.  Durch 
Anhangen  von  STEP  -1  erreichen  Sie,  daB  eine  FOR...NEXT- 
Schleife  ruck  warts  zahlt.  Nach  der  Schleife  wird  die  so  frei- 
gewordene  Position  gelCscht,  damit  hier  neue  Daten  eingegeben 
werden  kflnnen.  'HoechstZeile'  hat  sich  um  1  erhdht,  die  Va- 
riable wird  entsprechend  angepaBt.  Nach  diesem  Programm- 
schritt  folgt  dann  auch  schon  wieder  der  Rucksprung. 

Kommen  wir  jetzt  zur  eigentlichen  Existenzberechtigung  unseres 
Programms:  Den  Routinen  zum  Laden  und  Speichern  der  Daten 
auf  Diskette.  Denn  bisher  haben  wir  zwar  alien  mflglichen 
Komfort  programmiert,  aber  ansonsten  hat  sich  noch  nicht  viel 
getan. 

DatenSpeichern: 

MENU  1,0,0  :  MENU  2,0,0 
MENU  OFF 

GOSUB  Eingabename 
WINDOW  1 

IF  Nam$=''»  THEN  EndeSpeichern 
OPEN  Nam$  FOR  OUTPUT  AS  1 
PRINT  #1,HoechstZeile+4 
FOR  x*1  TO  HoechstZeile+4 
WRITE  #1,Bez((x) 
WRITE  #1,Zahl$(x) 
NEXT  x 
CLOSE  1 

EndeSpeichern: 

MENU  1,0,1  :  MENU  2,0,1 

MENU  ON 

AltDaten=0 
RETURN 

DatenLaden: 

IF  Alt0aten=1  THEN  GOSUB  Abfrage 
MENU  1,0,0  :  MENU  2,0,0 
MENU  OFF 
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GOSUB  Eingabename 
WINDOW  1 

IF  Nam$="u  THEN  EndeLaden 
FOR  x=1  TO  58 

Bez$(x>='"' 

Zahl$(x)="" 
NEXT  x 
OPEN  Nant*  FOR  INPUT  AS  1 

INPUT  #1,AnzahL 

HoechstZei le=Anzah  t -4 

FOR  x=1  TO  Anzahl 
INPUT  #1,Bez$(x) 
INPUT  #1,Zahl$(x) 

NEXT  x 

Zeile1=HoechstZeile 
CLOSE  1 


EndeLaden: 
WINDOW  1 
COLOR  1,0 
CLS 
PRINT  ,,Nummer,,;TAB(10);,lBezeichnungH;TAB(45);"Wert" 

FOR  x=Zeile1  TO  Zeile1+8 
PRINT  Nummer$(x);TAB(10);Bez$(x);TAB(45);Zahl$(x) 

NEXT  X 

MENU  1,0,1  :  MENU  2,0,1 
MENU  ON 
AltOaten=0 
RETURN 

Eingabename: 

Altname$=Nam$ 

WINDOW  2/'Bitte  Dateinamen  eingeben:H,(50,80)-(580,88),0,-1 

CLS 

LINE  INPUT  Nantf 

IF  Nam$=  "="  OR  Nam$=»*"  THEN  NamS=Attname$ 

WINDOW  CLOSE  2 
RETURN 
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Wenn  Sie  im  MDatei"-Pulldown  die  Option  "speichern"  wahlen, 
fuhrt  das  Programm  das  Unterprogramm  'DatenSpeichern:'  aus. 
Durch  das  Event  Trapping  kann  dieses  Speichern  jederzeit 
erfolgen.  Bedenken  Sie,  daB  die  Anderungen,  die  Sie  in  der  ak- 
tuellen  Cursorzeile  vornehmen,  erst  dann  in  die  Datei  uber- 
nommen  werden,  wenn  Sie  <RETURN>  oder  <TAB>  driicken. 
Und  selbstverstandlich  werden  alle  neuen  Anderungen  erst  dann 
endgiiltig  auf  Diskette  ubernommen,  wenn  Sie  die  Datei  ab- 
speichern.  Zuerst  unterdruckt  'DatenSpeichern:'  die  Mentiabfrage 
und  schreibt  die  Pulldowns  in  Geisterschrift.  Dann  wird  das 
Unterprogramm  'Eingabename:'  aufgerufen,  das  den  Dateinamen 
liefern  wird.  1st  der  Dateiname  'Nam$'  leer,  wird  nicht  gespei- 
chert,  sondern  direkt  das  Label  'EndeSpeichern:'  angesprungen. 

Zum  Speichern  dffnet  das  Unterprogramm  die  Datei  mit  dem 
Namen  aus  *Nam$'  zum  ScHreiben.  Zuerst  schreiben  wir  die 
Anzahl  der  Daten  in  die  Datei.  Die  fragliche  Zahl  lSGt  sich 
durch  'HoechstZeile'+4  berechnen.  So  oft  wird  dann  auch  die 
folgende  FOR...NEXT-SchleIfe  ausgefuhrt,  die  die  Elemente  der 
Dateien  'Bez$'  und  'Zahl$*  in  die  Datei  schreibt.  Dabei  tritt  ein 
bisher  unbekannter  Befehl  auf:  PRINT  kennen  Sie  ja,  aber 
WRITE? 

Im  Prinzip  bewirken  die  beiden  dasselbe:  Sie  schreiben  Daten 
(Zahlen  oder  Texte)  auf  den  Bildschirm  oder  in  eine  Datei.  Die 
Unterschiede  liegen  im  Detail.  Vergleichen  wir  die  beiden  Be^ 
fehle  im  BASIC-Window.  Geben  Sie  ein: 

PRINT  1,2,3;4;5;6 

und 

WRITE  1,2,3;4;5;6 

Beim  PRINT-Befehl  wirkt  ein  Komma  als  Trennzeichen,  um  die 
Zahlen  spaltenweise  zu  drucken.  Eine  Spalte  ist  15  Zeichen 
breit.  WRITE  gibt  die  Kommas  einfach  mit  aus.  Ein  Strichpunkt 
bedeutet  bei  PRINT,   Daten  direkt  nebeneinander  zu  drucken 
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(wobei  positive  Zahlen  wegen  des  fehlenden  Vorzeichens  eine 
Leerstelle  mitbekommen).  Bei  WRITE  werden  Strichpunkte  ein- 
fach  in  Kommas  umgesetzt.  Doch  weiter  im  Text.  Apropos  Text: 

PRINT  "Hallo,   ";»uie  geht's?" 

und 

WRITE  "Hallo,   ";"wie  geht's?" 

bewirken  auch  nicht  gerade  dasselbe.  WRITE  kleidet  Strings 
grundsatzlich  in  Anfiihrungszeichen  ein,  PRINT  macht  das 
nicht. 

Warum  ist  das  alles  wichtig?  Vielleicht  haben  Sie  sich  schon 
einmal  Gedanken  daruber  gemacht,  wie  AmigaBASIC  eigentlich 
die  Zeichen  in  sequentiellen  Dateien  verwaltet.  SchlieBlich  ste- 
hen  dort  alle  mflglichen  Daten  hintereinander.  Woran  erkennt 
AmigaBASIC  beim  Lesen,  wo  ein  Begriff  aufhort  und  der  nach- 
ste  beginnt?  Dazu  gibt  es  verschiedene  Trennzeichen.  Ein  kurzer 
Ausflug  in  die  Burotechnik  bzw.  in  die  Welt  der  guten  alten 
mechanischen  Schreibmaschine  tragt  hier  zur  Erklarung  bei. 

Der  Wagenrucklauf  code  (CHR$(13))  ist  so  ein  Trennzeichen. 
Daher  hat  die  <RETURN>-Taste  namlich  ihren  Namen:  Bei  den 
herkomlichen  mechanischen  Schreibmaschinen  bewirkte 
<RETURN>,  daB  der  Wagen  an  seine  Ausgangsposition  zuruck- 
kehrte  (engl:  return)  und  das  Papier  eine  Zeile  nach  oben  schob. 
Die  amerikanischen  Computer-Ingenieure  haben  diese  Bezeich- 
nung  fur  das  Zeichen  ubernommen,  das  eine  Zeile  beendet  (eben 
RETURN-Code,  im  ASCII-Code  ist  es  CHR$(13)).  Das  Zeichen 
CHR$(10)  hat  eine  ahnliche  Funktion.  Es  heiBt  LINE  FEED 
(Zeilenvorschub).  Der  Unterschied  ist,  daB  hier  zwar  eine  Zeile 
weiter  geschoben  wird,  aber  kein  Wagenrucklauf  stattfindet.  Ge- 
nau  genommen  muBten  also  CARRIAGE  RETURN  (das  ist  die 
Langform  von  RETURN:  Carriage  =  Wagen)  und  LINE  FEED 
immer  paarweise  auftreten,  urn  einen  Zeilenvorschub  mit 
Wagenrucklauf  zu  erreichen.  Tatsachlich  genugt  aber  CHR$(10), 
er  beinhaltet  CHR$(13).  Damit  sind  wir  auch  schon  wieder  beim 
Programmieren.  Der  PRINT-Befehl  hangt  diesen  Code  hinter  ei- 
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ner  Ausgabe  an,  falls  ein  Ausduck  nicht  mit  einem  Komma  oder 
einem  Strichpunkt  endet.  Und  zwar  tut  er  das  unabhangig  da- 
von,  ob  Sie  auf  den  Bildschirm  oder  in  eine  Datei  drucken.  In 
einer  sequentiellen  Datei  stehen  Daten,  die  Sie  mit  den  Befehlen 

PRINT  #1,  "Hallo" 
PRINT  #1,  1,2,3 
PRINT  #1,  4;5;6 

geschrieben  haben,  so: 

Hallo<LF>  1<13*SPACE>  2<13*SPACE>  3  <LF>  4  5  6  <LF> 

<LF>  steht  fur  LINE  FEED,  <SPACE>  ist  die  amerikanische 
Bezeichnung  fur  die  Leertaste.  Was  lernen  wir  daraus?  Erstens: 
Folgt  einer  PRINT-Anweisung  kein  Trennzeichen,  wird  LINE 
FEED  automatisch  gesetzt.  Steht  eine  Komma  zwischen  zwei 
Daten,  erzeugt  AmigaBASIC  die  Anzahl  an  Leerzeichen,  die  no- 
tig  ist,  urn  zur  nachsten  Tabulatorspalte  zu  kommen.  Stichpunkte 
schreiben  Daten  direkt  hintereinander,  die  Leerniume  sind  wfe- 
gen  fehlender  Vorzeichen  entstanden. 

Die  eigentlichen  Probleme  treten  erst  dann  auf,  wenn  Sie  die 
Werte  aus  sequentiellen  Dateien  mit  INPUT#  wieder  auslesen 
wollen.  Dann  liest  INPUT#  namlich  grundsatzlich  bis  zum 
nSchsten  Trennzeichen.  Und  als  Trennzeichen  werden  eben  auch 
Kommas  akzeptiert. 

Machen  Sie  einmal  einen  kleinen  Versuch  mit  uns.  Wir  werden 
im  BASIC- Window  im  Direktmodus  eine  Datei  erzeugen: 

open  "Testdatei"  for  output  as  1 

a$="Hallo,   wie  geht's?" 

b$="Test« 

print  #1,a$ 

print  #1,b$ 

close  1 
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Wir  haben  also  zwei  Strings  in  eine  sequentielle  Datei  geschrie- 
ben.  Jetzt  wollen  wir  sie  wieder  auslesen: 

open  "Testdatei"  for  input  as  1 

input  #1fa$ 

input  #1,b$ 

?a$ 

?b$ 

Nanu?  Was  ist  denn  jetzt  los?  *a$'  hat  den  Inhalt  "Hallo",  und  in 
'b$'  steht  "wie  geht's?".  Das  Komma  im  String  wurde  also  als 
Trennzeichen  interpretiert.  Von  "Test"  haben  wir  noch  gar  nichts 
gesehen.  Aber  das  laBt  sich  andern. 

input  #1,c$ 
?c$ 
close  1 

Jetzt  erst  haben  wir  alle  Werte  aus  der  Datei  gelesen.  Durch  das 
Komma  in  einem  der  Strings  ist  alles  durcheinandergekommen. 
So  etwas  wurde  naturlich  in  unserem  Programm  nicht  gerade  fur 
Ordnung  sorgen,  weil  bald  kein  Feldinhalt  mehr  stimmen  wurde. 

Was  tut  BASIC,  urn  Trennzeichen  innerhalb  von  Strings  zu  neu- 
tralisieren?  Es  kleidet  den  String  in  Anfuhrungszeichen  ein. 
Dasselbe  tut  auch  WRITE.  Deshalb  schreiben  wir  die  Daten  mit 
WRITE  auf  Diskette,  dann  kdnnen  wir  uns  darauf  verlassen,  daB 
alle  Strings  spater  wieder  korrekt  gelesen  werden.  Das  einzige, 
was  in  den  Strings  nicht  vorkommen  darf,  sind  Anfuhrungszei- 
chen. Die  wiirden  ja  wieder  alles  durcheinanderbringen.  Aus 
diesem  Grund  haben  wir  in  der  'Eingabei'-Routine  die  Anfuh- 
rungszeichen verboten  und  durch  das  Zeichen  '  ersetzt. 

Uff!  Das  waren  jetzt  lange  Erkl&rungen  fur  zwei  Zeilen  Pro- 
gramm. Aber  Sie  haben  jetzt  viel  GrundsStzliches  tiber  sequen- 
tielle Dateien  gelernt.  Das  wird  fur  Sie  spSter  beim  Program- 
mieren  eigener  Datenverwaltungsprogramme  sehr  niitzlich  sein. 
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Der  Programmteil  'DatenSpeichern:'  bietet  nicht  mehr  viel  Auf- 
regendes:  Die  Datei  wird  mit  CLOSE  geschlossen,  'EndeSpei- 
chern:'  reaktiviert  die  Menu-Uberwachung  und  setzt  'AltDaten' 
auf  0.  Letzteres  deshalb,  weil  bis  zur  n^chsten  Eingabe  an  den 
Daten,  die  wir  gespeichert  haben,  nichts  mehr  verandert  wurde. 

Was  gespeichert  wurde,  soil  ja  sp&ter  auch  mal  wieder  eingelesen 
werden  kflnnen.  Dazu  haben  wir  das  Unterprogramm  'DatenLa- 
den:'.  Einlesen  neuer  Daten  bedeutet  gleichzeitig  auch  L6schen 
der  alten.  Um  ge^nderte  Daten  davor  zu  schutzen,  fragen  wir 
'AltDaten'  ab.  Wurden  Anderungen  durchgefiihrt,  weist  der  Pro- 
grammteil 'Abfrage:1  darauf  hin  und  gibt  dem  Anwender  Gele- 
genheit,  die  Daten  doch  noch  zu  speichern.  Danach  deaktivieren 
wir  Menu  Trapping,  das  ist  ja  mittlerweile  nichts  UngewShnli- 
ches  mehr.  Das  Unterprogramm  'Eingabename:'  liefert  einen 
Dateinamen.  Ist  dieser  Name  leer,  wird  das  Laden  durch  An- 
sprung  von  'EndeLaden:'  abgebrochen. 

Die  folgende  FOR...NEXT-SchIeife  loscht  die  aktuellen  Daten 
aus-den  Datenfeldern.  Wurden  Sie  namlich  eine  Datei  einlesen, 
die  kiirzer  ist  als  die,  die  Sie  gerade  im  Speicher  haben,  ware  ein 
Rest  der  alten  Daten  in  der  Liste.  Da  das  nur  in  den  wenigsten 
Fallen  erwunscht  sein  durfte,  loschen  wir  vor  dem  Laden  alle 
Daten. 

Dann  Sffnen  wir  die  angegebene  Datei  zum  Lesen  und  lesen 
zunachst  die  Anzahl  der  Daten  in  der  Datei  ein.  Da  die  vier 
leeren  Feldelemente  am  Anfang  der  Datei  mit  abgespeichert 
wurden,  bekommt  'HoechstZeile'  den  Wert  'AnzahP-4.  Alle  Da- 
ten werden  von  einer  FOR...NEXT-Schleife  in  die  Felder  'Bez$' 
und  'Zahl$'  eingelesen.  Nach  dem  Laden  soil  der  Cursor  in  der 
letzten  Zeile  der  Datei  stehen,  damit  bei  fortgeschriebenen 
Listen  (z.B.  Kurs-  oder  Verkaufs-Entwicklungen)  die  neuen 
Daten  gleich  hinten  angehangt  werden  kfinnen.  Wir  setzen  dazu 
'ZeileT  auf  den  Wert  von  *HoechstZeile\ 

'EndeLaden:'  beinhaltet  ein  paar  Zeilen,  die  schon  einmal  in  der 
'Hauptschleife:'  vorkamen.  Die  aktuelle  'Liste  wird  hier  auf  den 
Bildschirm  gebracht.  Das  ist  deshalb  nOtig,  weil  die  'Haupt- 
schleife:' erst  wieder  nach  einem  Tastendruck  aktiviert  wurde. 
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Der  Anwender  soil  aber  die  neuen  Daten  schon  vorher  auf  dem 
Bildschirm  sehen.  Menu  Trapping  wird  wieder  zugelassen,  und 
'AltDaten'  bekommt  den  Wert  0.  Die  gerade  eingelesenen  Daten 
wurden  ja  bisher  noch  nicht  verSndert  und  stehen  in  derselben 
Form  auf  Diskette.  Danach  erfolgt  dann  der  Rucksprung  aus 
dem  Unterprogramm. 

Das  Unterprogramm  'Eingabename:'  kennen  Sie  in  fast  iden- 
tischer  Form  aus  dem  Malprogramm.  Zur  Erinnerung:  Wenn  Sie 
=  oder  *  eingeben,  wird  der  zuletzt  verwendete  Name  weiter- 
verwendet.  Nach  der  Eingabe  verschwindet  das  entstandene 
Window  wieder  vom  Bildschirm. 

Damit  h&tten  wir  auch  die  Programmteile  zum  Laden  und  Spei- 
chern  von  Daten  eingegeben  und  besprochen.  Jetzt  fehlt  nicht 
mehr  viel,  hauptsfcchlich  das  Unterprogramm,  das  den  Anwender 
darauf  hinweist,  daB  die  aktuellen  Daten  noch  nicht  abgespei- 
chert  sind. 

Abfrage: 

WINDOW  2,"Achtung!", (155, 50>-<475, 135), 0,-1 
COLOR  0,1 
CLS 

LOCATE  2,3 

PRINT  "Die  aktuellen  Daten  wurden" 
PRINT  "  noch  nicht  gespei chert." 
PRINT  :  PRINT  "  Wollen  Sie  sie  abspeichern?" 
LOCATE  9,13  :  PRINT  "Ja" 
LOCATE  9,25  :  PRINT  "Nein" 
LINE  (95,57)-(148,74),0,b 
LINE  <183,57)-(236,74>,0,b 
BEEP 
WarteMaus: 
Test=MOUSE(0) 
WHILE  MOUSE(0)=0 
WEND 

X=M0USE(1)  :  y=MOUSE<2) 
IF  95<x  AND  x<146  AND  57<y  AND  y<74  THEN 

PAINT  (97,59), 3,0 

GOSUB  DatenSpeichern 
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PAINT  (97,59), 1,0 

WINDOW  CLOSE  2 

RETURN 
END  IF 
IF  138<x  AND  x<236  AND  57<y  AND  y<74  THEN 

PAINT  (185,59)#3,0 

WINDOW  CLOSE  2 

RETURN 
END  IF 
GOTO  WarteMaus 

DatenLoeschen: 

IF  AltDaten=1  THEN  GOSUB  Abfrage 
RUN 

Ende: 

IF  AltDaten=1  THEN  GOSUB  Abfrage 

COLOR  1,0 

MENU  RESET 

CLS 
END 

Die  Arbeitsweise  von  'Abfrage:'  ist  seit  dem  Malprogramm  auch 
kein  Ratsel  mehr  fur  uns:  Ein  Window  wird  erzeugt,  in  blauer 
Schrift  auf  weiflem  Grund  erscheint  der  Text  "Die  aktuellen 
Daten  wurden  noch  nicht  gespeichert.  Wollen  Sie  sie  abspei- 
chern?",  und  je  ein  Kastchen  fur  Ja  und  Nein  werden  gezeich- 
net.  Der  ganze  Auftritt  wird  akustisch  von  einem  BEEP  unter- 
malt. 

'WarteMaus:*  wartet  auf  einen  Mausklick  und  wertet  ihn  aus.  Die 
MOUSE-Befehle  konnen  Sie,  wie  Sie  sehen,  auch  ohne  Event 
Trapping  benutzen.  Klickt  der  Anwender  ins  Ja-Feld,  wird  das 
Feld  orange  ausgemalt  und  'DatenSpeichern'  aufgerufen.  Vor- 
sicht:  Wenn  Sie  beim  Dateinamen  eine  leere  Eingabe  machen, 
sind  Ihre  Daten  verloren,  sie  werden  nicht  abgespeichert.  Nach 
der  Ruckkehr  vom  Speichern  malen  wir  das  Kastchen  in  seiner 
Ursprungsfarbe  aus,  schlieCen  das  Window  und  springen  zuruck. 
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Beim  Klick  ins  Nein-Feld  wird  das  Kastchen  ebenfalls  orange 
ausgemalt,  dann  das  ganze  Window  geschlossen  und  ebenfalls 
zuriickgesprungen.  Erfolgte  der  Klick  irgendwo  anders  im  Win- 
dow, rufen  wir  erneut  'WarteMaus:'  auf. 

Ganz  zum  SchluB  noch  zwei  kleine  Funktionen:  'DatenLoeschen:" 
dient  zum  Lflschen  des  Speichers,  alle  Daten  gehen  verloren.  Die 
schnellste  und  effektivste  Methode,  alle  Variablen  mit  ihrer 
Grundbelegung  zu  laden,  ist  der  erneute  Start  des  Programms 
mit  RUN.  RUN  innerhalb  eines  Programms  startet  das  Pro- 
gramm  von  vorn,  allerdings  gehen  dabei  alle  Variablen  und 
Feldinhalte  verloren.  In  unserem  Fall  ist  das  ausdrucklich  er- 
wiinscht,  aber  das  wird  nicht  immer  der  Fall  sein.  Normaler- 
weise  sollten  Sie  mit  GOTO  arbeiten,  wenn  Sie  zum  Programm- 
anfang  verzweigen  wollen.  Ach  ja,  fast  hatten  wir1s  vergessen: 
Vorher  findet  gegebenenfalls  noch  eine  Sicherheitsabfrage  statt. 

Das  ist  bei  'Ende:'  genauso.  Uber  dieses  Unterprogramm  wird 
das  Programm  beendet.  Dazu  setzen  wir  die  Hintergrundfarbe 
und  die  Textfarbe  auf  ihre  Grundeinstellung  zuriick,  reaktivie- 
ren  die  BASIC-Pulldowns  und  loschen  den  Bildschirm.  Durch 
END  kehren  wir  schlieBlich  in  den  Direktmodus  zuriick. 

Damit  hatten  Sie's  eigentlich  schon  geschafft.  Es  fehlt  nur  noch 
der  wichtigste  Teil.  Denn  jetzt  haben  wir  zwar  Zahlen,  aber 
noch  keine  Grafiken.  Aber  keine  Sorge,  Ihr  Arbeitsaufwand  be- 
schrankt  sich  dabei  auf  ein  Minimum.  Bitte  speichern  Sie  zuerst 
die  gegenwartige  Version  des  Statistikdaten-Programms  auf  Dis- 
kette ab,  wenn  Sie  es  selbst  eingegeben  haben.  Sicher  ist  sicher... 
Die  Grafik-Routinen  haben  wir  ja  vor  dem  Eingeben  des  Pro- 
gramms im  ASCII-Format  abgespeichert.  Wir  hangen  sie  jetzt 
mit  MERGE  hinter  unser  Programm,  und  schon  ist  alles  kom- 
plett.  Wenn  Sie  unseren  Schritten  zum  Beginn  dieses  Kapitels 
gefolgt  sin'd,  muBte  sich  die  ASCII- Version  Ihres  Balken- 
/Tortengrafik-Utilities  in  der  "Daten"-Schublade  befinden. 
Schauen  Sie  aber  sicherheitshalber  mit  FILES  nochmal  nach.  Sie 
konnen  dann  auch  gleich  den  richtigen  Dateinamen  herausfin- 
den.  Was  nun  zu  tun  ist,  wissen  Sie  sicher  noch.  Geben  Sie  im 
BASIC-Window  ein: 
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merge  "BalkenTorten" 


Nach  einigen  Sekunden  befinden  sich  die  Grafik-Routinen  am 
Ende  Ihres  Programms.  Speichern  Sie  bitte  den  so  entstandenen 
Programmkomplex  sofort  wieder  auf  Diskette  ab.  Sie  k6nnen 
dabei  ruhig  den  Namen  verwenden,  den  Sie  schon  fiir  die  gra- 
fiklose  Version  benutzt  haben. 

Das  Ergebnis  des  ganzen  Vorgangs  finden  Sie,  wie  schon  er- 
wahnt,  auch  unter  dem  Namen  "BTDaten"  in  der  "Daten"- 
Schublade  der  beigelegten  Diskette. 

Wenn  Sie  das  Listing  selbst  eingegeben  haben,  sollten  Sie  das 
Programm  auf  Herz  und  Nieren  nach  Tippfehlern  austesten. 
Klappt  die  Umsetzung  in  Grafiken,  das  Laden  und  Speichern 
usw.?  Sie  wissen  ja:  Bei  Fehlermeldungen  immer  die  Fehlerzeile 
mit  unserem  Listing  vergleichen,  bei  Funktionsfehlern  sollten  Sie 
die  zust&ndigen  Programmteile  untersuchen. 

Was  Sie  zjir  Bedienung  wissen  mtissen,  haben  Sie  grdBtenteils 
schon  in  den  Erkl£rungen  erfahren.  Nochmal  eine  kurze  Zu- 
sammenfassung:  Das  Programm  erzeugt  ein  Window,  das  unge- 
fahr  deii  halben  Bildschirm  einnimmt.  Sie  sehen  einen  orangen 
Cursor,  der  zu  Beginn  in  der  Spalte  "Bezeichnung"  in  Zeile  1 
steht.  In  dieser  Spalte  geben  Sie  die  Bezeichnungen  zu  den  Daten 
ein.  Diese  Texte  werden  spater  neben  den  Tortensegmenteh  bzw. 
unter  den  Balken  gedruckt.  Eine  Eingabe  kdnnen  Sie  mit 
<RETURN>,  <TAB>  oder  <Cursor  nach  oben/unten>  ab- 
schlieBen.  In  der  Spalte  "Wert"  geben  Sie  den  zugeh6rigen  Wert 
(die  Zahlen,  prozentualen  Anteile  etc.)  an.  Wenn  der  Cursor  auf 
dem  ersten  Zeichen  einer  Eingabe  steht,  wird  die  Eingabe  nicht 
verandert.  Sonst  ubernimmt  das  Programm  den  Text  bis  zur 
Cursorposition.  Der  Teil  hinter  dem  Cursor  wird  gelOscht.  Mit 
<BACKSPACE>  oder  <Cursor  links>  kdnnen  Sie  Zeichen  16- 
schen,  ein  evtl.  darunterliegender  Text  kommt  wieder  zum  Vor- 
schein. 

Auf  dem  Bildschirm  wird  standig  ein  neun  Zeilen  groCer  Aus- 
schnitt  aus  der  Datenliste  gezeigt,  die  ganze  Liste  umfaBt  maxi- 
mal 50  Elemente.  Mit  <CTRL>-<A>  kdnnen  Sie  an  den  Listen- 
anfang  springen,   mit  <CTRL>-<E>  ans  augenblickliche   Ende. 
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<CTRL>-<L>  lflscht  eine  Zeile,  <CTRL>-<N>  fugt  eine  neue 
Zeile  ein.  Urn  eine  Datenliste  zu  speichern,  wahlen  Sie  "spei- 
cheriT  aus  dem  "Datei"-PuIldown.  Die  Option  "laden"  liest  ab- 
gespeicherte  Dateien  ein.  Mit  "ISschen"  ISschen  Sie  den  Arbeits- 
speicher  des  Programms,  und  mit  "Programm  beenden"  bewirken 
Sie  die  Ruckkehr  in  den  BASIC-Direktmodus. 

Um  aufgrund  der  aktuellen  Daten  eine  Grafik  zu  erstellen, 
wahlen  Sie  die  gewunschte  Darstellungsform  aus  dem  "Grafik"- 
Pulldown.  Die  Grafik  baut  sich  auf,  dann  erscheint  ein  kleines 
Dialog-Window,  das  Sie  auffordert,  eine  Taste  zu  driicken.  Wenn 
Sie  dieses  Window  st5rt,  kflnnen  Sie  es  in  den  Hintergrund 
klicken.  Nach  einem  Tastendruck  gelangen  Sie  zuruck  auf  den 
Eingabe-Bildschirm. 

Noch  ein  paar  Tips  zu  Ihren  Grafiken.  Wenn  es  Ihnen  darum 
geht,  Daten  optimal  umzusetzen,  sind  diese  Hinweise  sicher 
recht  nutzlich:  Bei  Balkengrafiken  sollten  Sie  die  Bemerkungen 
sehr  kurz  halten,  denn  pro  Balken  ist  ja  nicht  eben  viel  Platz 
vorhanden.  Geben  Sie  vielleicht  zusatzlich  zu  Ihren  Daten  eine 
Zeile  ein,  in  der  eine  runde  Zahl  steht,  die  groBer  ist  als  alle 
anderen  und  so  als  Vergleichswert  dienen  kann.  Ist  Ihr  hochster 
Wert  z.B.  898,  sollten  Sie  in  einer  Zeile  den  Wert  1000  angeben. 
Das  macht  die  Skalierung  (Einteilung)  der  Achse  eindeutiger. 

Wenn  bei  Tortengrafiken  mehrere  Kleinst-Werte  vorkommen 
(bei  Wahlhochrechnungen  z.B.  die  sogenannten  Splitterparteien), 
geben  Sie  deren  Daten  am  besten  zwischen  den  GroBen  ein. 
Wenn  nSmlich  alle  Kleinen  am  Ende  kommen,  kann  es  passieren, 
daB  sich  die  Bemerkungstexte  gegenseitig  uberschreiben.  Auch 
bei  Tortengrafiken  sollten  die  Texte  ubrigens  nicht  zu  lang  wer- 
den.  Auf  der  rechten  Seite  der  Torte  verschwinden  sie  hinter 
dem  Bildschirmrand,  auf  der  linken  Seite  ragen  sie  in  die  Gra- 
fik. Wenn  Sie  besondere  Farben  benfltigen,  schreiben  Sie  einfach 
unter  den  PALETTE-Befehl  im  Teil  'Vorbereitungen:'  weitere 
PALETTE-Befehle. 

Das  war  alles,  was  wir  Ihnen  noch  sagen  wollten.  Jetzt  wunschen 
wir  viel  SpaB  mit  Ihrem  Statistikdaten-Programm.  Hoffentlich 
machen  Ihnen  Ihre  Daten  genauso  viel  SpaB  wie  das  Programm 
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und  seine  Grafiken.  Allerdings  kann  an  Ihren  personlichen  Bi- 
lanzen  und  Erfolgsiibersichten  auch  die  schflnste  Grafik  nicht 
viel  Sndern... 


3.5        Amiga  &  Friends  -  Arbeit  mit  Peripheriegeraten 

Im  folgenden  Kapitel  geht  es  urn  die  Gerfcte,  die  Sie  an  Ihren 
Amiga  anschlieBen  kflnnen  oder  schon  angeschlossen  haben. 
Aber  selbst  wenn  Sie  noch  keinen  Drucker  besitzen  und  auch 
sonst  nichts  an  die  verschiedenen  Schnittstellen  Ihres  Amiga  ge- 
hangt  haben,  werden  Sie  einige  interessante  Moglichkeiten  ken- 
nenlernen. 

Ubrigens,  noch  eine  ErkUirung  zur  Uberschrift:  Peripheriegerate 
nennt  man  alle  Zusatzgerate,  die  man  an  einen  Computer  an- 
schlieBen kann. 

Das  erste,  was  wir  Ihnen  vorstellen  wollen,  ist  die  RAM-Disk. 
Sie  besitzen  nSmlich  ein  Diskettenlaufwerk  mehr,  als  Sie  bisher 
wahrscheinlich  denken.  Oder  zumindest  eine  Art  Ersatz  fur  ein 
Diskettenlaufwerk.  AmigaBASIC  und  AmigaDOS  bieten  ge- 
meinsam  die  Moglichkeit,  einen  Teil  des  Amiga-Speichers  wie 
ein  Diskettenlaufwerk  zu  benutzen.  Das  bedeutet,  Sie  konnen 
dort  Programme  und  Dateien  abspeichern  und  von  dort  Pro- 
gramme und  Daten  einlesen.  Die  RAM-Disk  kann  mit  Inhalts- 
verzeichnissen  und  Unterinhaltsverzeichnissen  eingerichtet  wer- 
den wie  Disketten  auch.  Bei  alledem  ist  zu  keiner  Zeit  irgendein 
Stuck  Mechanik  im  Spiel.  Alle  Informationen  stehen  statt  auf  ei- 
ner  Diskettenoberfiache  in  den  Speicherbausteinen.  Sie  wissen  ja 
noch:  RAM  heiBt  "Random  Access  Memory",  deutsch:  Schreib-/ 
Lesespeicher. 

Wie  effektiv  Sie  die  RAM-Disk  einsetzen  k6nnen,  hangt  natur- 
lich  auch  davon  ab,  wieviel  Speicherplatz  Sie  ubrig  haben.  Denn 
der  Speicher,  den  die  RAM-Disk  braucht,  geht  fur  AmigaBASIC 
und  die  anderen  Progamme  verloren.  Die  Speicherverwaltung  der 
RAM-Disk  ist  allerdings  dynamisch,  das  heiBt,  sie  nimmt  immer 
nur  soviel  Platz  in  Anspruch  wie  wirklich  unbedingt  notig.  Wenn 
Sie  ein  Programm  von  der  RAM-Disk  loschen,  wird  der  Spei- 
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cher,  der  von  dem  Programm  belegt  war,  sofort  wieder  frei- 
gegeben.  Nach  all  der  Theorie  nun  ein  wenig  Praxis.  Geben  Sie 
im  BASIC-Window  ein: 

chdir  "ram:" 

Wenn  Sie  diesen  Befehl  zum  ersten  Mai  verwenden,  wird  Ihr 
Amiga  die  Workbench-Diskette  verlangen,  denn  von  dort 
braucht  er  ein  Hilfsprogramm,  das  die  Arbeit  mit  der  RAM- 
Disk  unterstutzt.  Zumindest  braucht  er  dieses  Programm,  wenn 
Sie  auch  auf  der  Workbenchoberfiache  die  RAM-Disk  noch 
nicht  eingesetzt  haben. 

Mit  dem  Befehl  FILES  konnen  Sie  sich  wie  gewohnt  das  Inhalts- 
verzeichnis  anzeigen  lassen.  Es  fallt  auf,  daB  die  RAM-Disk 
keinen  Diskettennamen  hat.  Sie  lesen  nur  "Directory  of  []M.  MSg- 
licherweise  steht  im  Inhaltsverzeichnis  der  RAM-Disk  eine  Datei 
namens  "BasicClip".  Wenn  Sie  Cut,  Copy  und  Paste  aus  dem 
"EditM-Pulldown  benutzen,  legt  AmigaBASIC  den  Inhalt  des 
Clipboards  niimlich  auf  der  RAM-Disk  ab.  Geben  Sie  im  LIST- 
Window  ein  paar  Zeilen  ein.  Es  muB  dabei  kein  neuer  Software- 
Hit  entstehen  -  ein  paar  einfache  Zeilen  Text  genugen  als  Bei- 
spiel. 

Dieses  Programm  oder  was  immer  Sie  sonst  fabriziert  haben, 
wollen  wir  jetzt  abspeichern.  Tippen  Sie  im  BASIC-Window: 

save  "test" 

Kaum  haben  Sie  <RETURN>  gedruckt,  erscheint  auch  schon  das 
OK  auf  dem  Bildschirm.  Die  Zugriffs-  und  Ubertragungszeiten 
auf  der  RAM-Disk  sind  sagenhaft  schnell,  weil  die  Dateien 
beim  Lesen  und  Schreiben  nur  im  Speicher  hin-  und  herkopiert 
werden  mussen.  Schauen  Sie  sich  bitte  noch  mal  das  Inhaltsver- 
zeichnis der  RAM-Disk  an:  Da  gibt  es  jetzt  die  beiden  Dateien 
"test"  und  "test.info".  AmigaBASIC  erzeugt  ja  beim  Abspeichern 
automatisch  zu  jeder  Datei  eine  Info-Datei.  Die  Workbench  1.2 
stellt  auch   fur  die  RAM-Disk  ein   Icon  auf  der   Workbench- 
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Oberfiache  dar.  Dieses  Icon  erscheint,  sobald  die  RAM-Disk 
zum  erstenmal  benutzt  wird.  Es  ist  dann  allerdings  bis  zum 
Ausschalten  des  Amiga  nicht  mehr  wegzubekommen. 

Jetzt  loschen  Sie  bitte  den  Speicher  mit  NEW  und  laden  unsere 
Datei  wieder  von  der  RAM-Disk: 

load  "test" 

Es  ist  schon  beeindruckend,  wie  schnell  die  RAM-Disk  arbeitet. 
Auch  sehr  lange  BASIC-Programme  sind  in  Sekundenbruchteilen 
geladen.  Eine  weitere  MGglichkeit  w&re,  die  Dateien  eines  Pro- 
gramms  auf  der  RAM-Disk  anzulegen  und  sie  erst  beim  Been- 
den  des  Programms  auf  Diskette  zu  kopieren.  Es  gibt  viele 
MGglichkeiten,  die  RAM-Disk  sinnvoll  einzusetzen.  Allerdings 
sollten  Sie  bedenken:  Im  Gegensatz  zu  den  Daten  auf  Diskette 
fiihren  die  Daten  auf  der  RAM-Disk  ein  sehr  gefahrliches  Le- 
ben.  Einen  Stromausfall  oder  einen  Systemabsturz  uberleben  sie 
namlich  nicht. 

Der  Geratename  "RAM:"  ist  aber  nur  einer  von  vielen.  Kommen 
wir  als  n&chstes  zu  den  Druckern  am  Amiga.  Falls  Sie  noch  kein 
solches  PeripheriegerSt  besitzen,  sollten  Sie  die  nSchsten  Seiten 
trotzdem  nicht  iiberblattern.  Erstens  kommt  man  manchmal 
schneller  in  den  Besitz  von  Zusatz-Hardware,  als  man  denkt, 
und  zweitens  schadet  es  nicht,  die  Befehle  auf  jeden  Fall  einmal 
gesehen  zu  haben. 

Bevor  Sie  mit  einem  Drucker  arbeiten  kflnnen,  sind  einige  Vor- 
bereitungen  nGtig.  Zuerst  brauchen  Sie  ein  Kabel,  mit  dem  Sie 
Ihren  Amiga  und  Ihren  Drucker  verbinden  kflnnen.  So  ein  Kabel 
sollte  mittlerweile  bei  jedem  Commodore-Fachhandler  erhaitlich 
sein.  Es  kostet  zwischen  DM  30,-  und  DM  70,-.  Leute  mit 
Hardware-Erfahrung  kdnnen  sich  so  ein  Kabel  auch  selbst  zu- 
sammenl6ten.  Laien  seien  aber  ausdrucklich  davor  gewarnt: 
Schon  bei  einem  kleinen  Fehler  kOnnten  Sie  Ihren  Amiga  und 
Ihren  Drucker  schwer  beschSdigen. 
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Als  nachstes  mOssen  Sie  in  Preferences,  dem  Einstellprogramm 
auf  der  Workbench,  die  Druckeranpassung  einstellen,  die  zu  Ih- 
rem  Drucker  gehOrt.  Fur  viele  Drucker  gibt  es  bereits  fertige 
Anpassungsdateien  auf  der  Workbench,  an  weiteren  wird  zur 
Zeit  bei  Commodore  und  bei  einigen  Druckerherstellern  gear- 
beitet.  Alles  Nahere  iiber  die  ndtigen  Arbeiten  erfahren  Sie  im 
Amiga-Benutzerhandbuch  in  Kapitel  5.1.11.  Erst  wenn  diese 
beiden  Punkte  erledigt  sind,  konnen  Sie  in  AmigaBASIC  mit 
Ihrem  Drucker  arbeiten.  Vorher  miissen  Sie  ihn  naturlich  noch 
einschalten,  das  ist  der  dritte  vorbereitende  Punkt. 

Der  einfachste  BASIC-Befehl  zur  Ausgabe  auf  dem  Drucker 
heiBt  LPRINT.  Das  L  vor  PRINT  steht  fur  "Line".  Ubersetzt 
konnte  es  "Zeile"  meinen  oder  auch  "AnschluB,  Verbindung,  Ka- 
bel".  Die  Probleme  bei  der  Ubersetzung  von  BASIC  in  die  deut- 
sche  Sprache  kennen  Sie  ja  schon.  Jedenfalls  bewirkt  LPRINT 
dasselbe  wie  PRINT,  nur  erfolgt  die  Ausgabe  nicht  auf  dem 
Bildschirm,  sondern  auf  dem  Drucker: 

Iprint  "Hallo,  wie  geht's?" 

Vor  dem  ersten  Drucken  braucht  Ihr  Amiga  die  Workbench- 
Diskette.  Von  dort  ladt  er  ein  Hilfsprogramm  zur  Drucker-An- 
steuerung,  auBerdem  die  von  Ihnen  eingestellte  Drucker- 
anpassung. Wenn  alles  geladen  ist,  druckt  Ihr  Drucker  die  Zeile 
"Hallo,  wie  gehtV.  Ab  jetzt  geht's  schneller,  nun  weiB  Amiga- 
BASIC alles,  was  es  iiber  den  Drucker  wissen  muB.  Bei  LPRINT 
durfen  Sie  alle  von  PRINT  bekannten  Trennzeichen  verwenden: 

Iprint  »Hallo"f5,,lAmiga";l,TestM 

Endet  eine  Zeile  mit  einem  Strichpunkt,  wird  sie  nicht  unmittel- 
bar  gedruckt,  sondern  im  Drucker  solange  gespeichert,  bis 
irgendwann  ein  Zeilenvorschubcode  (CHR$(10))  folgt.  Mit  einem 
Drucker  sind  wir  ja  relativ  nah  an  den  Schreibmaschinen,  von 
denen  wir  Ihnen  erzahlt  haben,  als  es  im  letzten  Kapitel  urn 
Steuercodes  und  Trennzeichen  ging. 

Iprint  chr$(10) 
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bewirkt  einen  Vorschub  von  zwei  Zeilen:  Der  erste  Zeilenvor- 
schub  wird  durch  das  Steuerzeichen  CHR$(10)  erzeugt,  und  der 
zweite  wird  vom  LPRINT-Befehl  automatisch  anhangt.  Falls  Ihr 
Drucker  alle  Ausgaben  in  derselben  Zeile  druckt,  reagiert  er 
nicht  richtig  auf  den  Zeilenvorschubcode.  Uberprufen  Sie  in 
diesem  Fall  die  Drucker-Einstellungen  von  Preferences  und 
schlagen  Sie  auch  mal  im  Druckerhandbuch  nach.  Manchmal 
muB  die  Stellung  eines  kleinen  Schalters  (ein  sog.  DIP-Switch) 
im  Drucker  geandert  werden.  Wenn  Sie  keine  L6sung  finden, 
hilft  Ihnen  sicher  Ihr  Fachhandler  weiter. 

Mit  dem  nachsten  Befehl  konnen  Sie  Programmlistings  auf  dem 
Drucker  ausgeben.  Das  ist  beim  Entwickeln  und  Testen  von  Pro- 
grammen  besonders  hilfreich.  Laden  Sie  irgendein  Programm,  es 
sollte  aber  nicht  zu  lang  sein.  Eine  unserer  Vorspeisen  ist  gut 
geeignet.  Geben  Sie  dann  ein: 

Hist 

Und  schon  druckt  Ihr  Drucker  das  Programm  aus.  AmigaBASIC 
ist  wahrend  des  Druckens  blockiert.  Bei  langeren  Druckaus- 
gaben,  z.B.  einem  Listing  unseres  Malprogramms,  kann  das 
schon  einige  Zeit  dauern.  Sie  kdnnen  aber  AmigaBASIC  in  den 
Hintergrund  klicken  und  in  der  Zwischenzeit  mit  einem  anderen 
Programm  arbeiten.  Gerade  wahrend  des  Druckens  ist  Multi- 
tasking sehr  vorteilhaft.  Das  Ganze  ist  naturlich,  wie  immer, 
auch  eine  Frage  des  vorhandenen  Speicherplatzes.  Wer  reich  ist 
(und  sei  es  nur  an  Bytes),  hatte  es  schon  immer  etwas  bequemer. 

MSglicherweise  besitzen  Sie  einen  Drucker  mit  Pufferspeicher. 
Solche  Drucker  speichern  die  Druckausgaben  in  einem  einge- 
bauten  RAM  und  vermitteln  so  dem  Computer  den  Eindruck, 
das  Drucken  sei  bereits  beendet.  AmigaBASIC  ist  wieder  frei, 
und  Sie  kflnnen  weiterarbeiten,  obwohl  der  Drucker  vielleicht 
noch  eine  Viertelstunde  beschaftigt  ist. 

Im  ubrigen  kflnnen  Sie  auch  jeden  Druckvorgang  mit  <CTRL>- 
<C>  abbrechen. 
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Sie  haben  jetzt  die  Grundbefehle  zur  Druckerbenutzung  kennen- 
gelernt.  Doch  damit  ist  das  Repertoire  von  AmigaBASIC  zum 
Thema  Druck  und  Papier  noch  lange  nicht  erschopft.  Ahnlich 
wie  "RAM:"  gibt  es  auch  fur  den  Drucker  Gerfctenamen.  Ja,  so- 
gar  mehrere  davon.  Da  ware  zunachst  einmal  "PRT:"  (wie  "Prin- 
ter", Deutsch:  Drucker).  Eine  andere  Art,  ein  Programmlisting 
auszudrucken,  ist  der  Befehl: 

list   ,"prt:" 

Sie  geben  einfach  hinter  LIST  an,  wohin  das  Listing  gedruckt 
werden  soil.  In  der  gleichen  Weise  konnen  Sie  ein  Programm  so- 
gar  in  eine  Datei  auf  Diskette  listen  lassen.  Wir  machen  es  zur 
Demonstration  mal  auf  der  RAM-Disk: 

List   ,"ram:TestH 

Dieser  Befehl  erzeugt  eine  Datei  namens  "Test",  in  die  das  Pro- 
gramm geschrieben  wird.  Es  steht  dort  im  ASCII-Format.  Der 
LIST-Befehl,  gefolgt  von  einem  Dateinamen,  ist  eine  Alternative 
zum  SAVE-Befehl  mit  ",a"-Option.  Interessant  ist  in  diesem 
Zusammenhang  auch  das  Gerat  "SCRN:"  (=Screen,  Deutsch: 
Bildschirm).  Der  Befehl 

list   #"scrn:" 

beschert  Ihnen  den  seltenen  Anblick  eines  echten  Programm- 
listings  im  BASIC-Window. 

Zuriick  zum  Drucker:  Neben  "PRT:"  gibt  es  fur  den  Drucker 
auch  die  Bezeichnung  "LPT1:".  Die  beiden  Geratenamen  sind  so 
gut  wie  gleichwertig.  DaB  es  uberhaupt  zwei  verschiedene  Na- 
men  gibt,  liegt  daran,  daB  Microsoft  moglichst  hohe  Kompa- 
tibilitat  zu  seinen  anderen  BASIC- Versionen  erreichen  wollte. 
Beim  IBM  PC-BASIC  von  Microsoft  ist  "LPT1:"  der  "Line  Prin- 
ter 1",  also  der  erste  der  angeschlossenen  Drucker.  Um  die  Um- 
setzung  eines  BASIC-Progamms  vom  IBM  PC  auf  den  Amiga  zu 
erleichtern,  versteht  AmigaBASIC  diese  Druckerbezeichung  und 
schickt  die  Ausgaben  an  seinen  Standard-Drucker  "PRT:". 
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Sie  k6nnen  die  Ger&tenamen  auch  benutzen,  urn  eine  Ausgabe- 
datei  zu  uffnen  und  auf  diesem  Weg  Daten  an  bestimmte  Gerate 
zu  schicken. 

open  "prt:M  for  output  as  1 

schickt  alle  Ausgaben,  die  in  die  Datei  1  geschrieben  werden, 
auf  den  Drucker.  Sollte  sich  AmigaBASIC  hartnackig  mit  der 
Fehlermeldung  "File  already  open"  gegen  diesen  Befehl  wehren, 
steht  schon  eine  Verbindung  zum  Gerat  "PRT:\  Es  kann  vor- 
kommen,  dafl  sich  AmigaBASIC  weigert,  eine  zweite  Verbin- 
dung aufzubauen.  Da  wir  zur  Zeit  aber  sowieso  nur  experimen- 
tieren,  schliefien  Sie,  falls  es  Probleme  gibt,  am  besten  alle  Da- 
teien  und  Verbindungen  mit  dem  NEW-Befehl.  Probieren  Sie 
dann: 

printn,   "Hallo!" 

Wundern  Sie  sich  nicht,  wenn  auf  dem  Drucker  noch  nichts  zu 
sehen  ist.  AmigaBASIC  legt  fur  Dateien  grundsatzlich  einen 
Puf ferbereich-  an,  urn  nicht  jedes  Zeichen  einzeln  Qbertragen  zu 
mussen.  Erst  wenn  dieser  Puffer  voll  ist  oder  beim  Befehl 
CLOSE  wird  der  Inhalt  ubermittelt.  Darin  besteht  auch  der  ein- 
zige  kleine  Unterschied  zwischen  "LPT1:"  und  "PRT:M.  "LPT1:" 
druckt  sofort,  wahrend  HPRT:M  einen  Puffer  anlegt. 

close  1 

bringt  den  Drucker  in  jedem  Fall  zum  Arbeiten. 

Zu  jedem  beliebigen  Gerat  kflnnen  Sie  eine  Datei  uffnen  und 
auf  diese  Weise  Daten  austauschen.  Naturlich  mussen  Sie  einen 
sinnvollen  Datei-Modus  wahlen.  Den  Drucker  FOR  INPUT  zu 
uffnen,  findet  AmigaBASIC  zum  Beispiel  gar  nicht  witzig.  Eine 
Fehlermeldung  vom  Typ  "Bad  file  mode"  oder  "Device  I/O  error" 
ist  die  Folge.  Die  Buchstaben  I/O  sind  ubrigens  sehr  beliebt, 
wenn  es  urn  Datenaustausch  geht.  Sie  stehen  fur  Input/Output, 
zwei  Begriffe,  die  Sie  schon  kennen.  Und  "Device"  heiBt  iiber- 
setzt  "Gerat". 
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Da  wir  in  diesem  Kapitel  alle  Geratenamen  kreuz  und  quer 
durcheinander  verwenden,  kann  es  vorkommen,  daB  sich 
AmigaBASIC  schlichtweg  weigert,  eine  Datei  zu  einem  be- 
stimmten  Gerat  zu  6ffnen.  Notfalls  mussen  Sie  die  Workbench 
neu  laden,  dabei  wird  dann  wirklich  alles  zuriickgesetzt. 

Zum  Einlesen  (FOR  INPUT)  kdnnen  Sie  aber  zum  Beispiel  die 
Tastatur  verwenden.  Sie  hat  den  Geratenamen  HKYBD:H  (Key- 
board, deutsch:  Tastatur). 

Das  folgende  Listing  ist  ein  ganz  simples  Schreibprogramm:  Die 
Zeichen,  die  Sie  auf  der  Tastatur  eingeben,  erscheinen  auf  dem 
Bildschirm  und  auf  dem  Drucker. 

OPEN  "KYBD:"  FOR  INPUT  AS  1 
OPEN  "SCRN:"  FOR  OUTPUT  AS  2 
OPEN  »LPT1:»  FOR  OUTPUT  AS  3 
WHILE  i$<>CHR$(138) 

i$=INPUT$<1,1) 

IF  i$=CHR$(13)  THEN  i$=CHR$(10) 

PRINT  #2,i$; 

IF  i$=CHR$(8)  THEN  i$=CHR$(127) 

PRINT  #3,1$; 
UEND 
CLOSE  1,2,3 

Dieses  Programm  heiBt  auf  unserer  Diskette  im  Buch  "Tipp- 
Printer". 

Die  Tastatur  6ffnen  wir  zum  Lesen,  den  Bildschirm  und  den 
Drucker  zum  Schreiben.  (Geht  ja  auch  gar  nicht  anders.) 
CHR$(138)  ist  der  Code,  den  die  Funktionstaste  <F10>  erzeugt. 
Ein  Druck  auf  diese  Taste  beendet  das  Programm.  Den  Befehl 
INPUTS  kennen  Sie  vielleicht  noch  vom  Einlesen  der  Objekt- 
Daten.  Wir  werden  ihn  bald  genauer  besprechen.  Vor  der  Aus- 
gabe  an  den  Drucker  werden  zwei  besondere  Zeichen  umgesetzt: 
Ist  das  eingegebene  Zeichen  CHR$(13),  also  der  Code  der 
<RETURN>-Taste,  wird  es  in  CHR$(10)  gefcndert,  urn  beim 
Drucker  einen  Zeilenvorschub  zu  erreichen.  Haben  Sie  CHR$(8) 
eingegeben  (durch  Driicken  der  <BACKSPACE>-Taste),  machen 
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wir  fur  den  Drucker  daraus  CHR$(127).  Das  ist  der  Code,  den 
die  meisten  Drucker  zum  Lflschen  eines  Zeichens  im  Puffer 
verwenden.  Jedes  Zeichen  wird  ja  von  unserem  Programm  gleich 
nach  der  Eingabe  an  den  Drucker  ubermittelt.  Solange  es  noch 
nicht  gedruckt  ist,  kann  ein  Fehler  aber  auf  einfache  Weise  be- 
seitigt  werden:  Einfach  das  letzte  Zeichen  im  Puffer  loschen. 

Wenn  das  bei  Ihrem  Drucker  nicht  funktioniert,  schauen  Sie 
bitte  im  Drucker-Handbuch  nach:  In  den  meisten  Handbiichern 
gibt  es  irgendwo  eine  Ubersicht,  welches  Zeichen  bzw.  welcher 
Code  was  bewirkt.  Solche  Code-Tabellen  sind  grundsatzlich  sehr 
interessant,  denn  hier  finden  Sie  Informationen  daruber,  mit 
welchen  Steuerzeichen  Sie  bei  Ihrem  Drucker  die  Schrift  veran- 
dern  oder  Zeilenabstande  einstellen  kflnnen  und  vieles  mehr. 

Falls  Sie  zum  Beispiel  einen  Epson-Drucker  oder  einen  Epson- 
kompatiblen  Drucker  besitzen,  gibt  es  jede  Menge  ESC-Se- 
quenzen,  mit  denen  der  Drucker  gesteuert  werden  kann.  Was  soil 
das  schon  wieder  bedeuten?  Was  ist  denn  eine  ESC-Sequenz? 
Ausgesprochen  wird  das  Ganze  "Escape-Sequenz".  Und  obwohl 
"Escape"  eigentlich  "verschwinden,  fliehen"  heiBt,  mussen  Sie 
sich  keine  Sorgen  machen,  daB  Ihr  Drucker  plStzlich  sein  Kabel 
an  sich  rafft  und  dann  das  Weite  sucht.  Der  Effekt  von  ESC-Se- 
quenzen  ist  ein  ganz  anderer. 

Vielleicht  haben  Sie  irgendwann  einmal  die  Taste  <ESC>  auf  der 
Amiga-Tastatur  entdeckt?  Mit  dem  Zeichen  ESC  (im  ASCII- 
Code  ist  das  CHR$(27))  hat  es  eine  besondere  Bewandtnis  Als 
vor  vielen  Jahren  in  Amerika  der  ASCII-Code  entwickelt  wurde, 
gab  es  noch  keine  besonders  vielseitigen  Drucker.  Man  war 
schon  froh,  wenn  so  ein  GerSt  GroB-  und  Kleinbuchstaben  er- 
zeugen  konnte.  An  Kursivschrift,  Fettschrift,  Breitschrift  oder 
gar  Near  Letter  Quality  (alles  M6glichkeiten  moderner  Matrix- 
Drucker)  dachte  noch  niemand. 

Folglich  waren  die  Positionen  der  ASCII-Code-Tabelle,  die  nicht 
durch  Buchstaben,  Zahlen  oder  Satzzeichen  besetzt  waren  (etwa 
30  Codes),  mehr  als  genug,  urn  die  wenigen  Sondermoglichkeiten 
der  Drucker  zu  aktivieren.  So  aktiviert  CHR$(14)  zum  Beispiel 
bei  vielen  Druckern  die  Breitschrift.  Heute  reichen  diese  freien 
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Codes  bei  weitem  nicht  mehr  aus.  Besonders,  da  viele  Codes 
(etwa  CHR$(10)  und  CHR$(13))  sowieso  fur  andere  Aufgaben 
gebraucht  werden. 

Irgendwie  muBte  es  also  m6glich  sein,  den  Bereich  an  Steuer- 
Codes  zu  erweitern.  Und  dafiir  haben  sich  die  Ingenieure  in 
weiser  Voraussicht  das  Zeichen  Nummer  27  aufgehoben,  den 
Escape-Code.  Dieses  Zeichen  teilt  dem  Drucker  mit,  daB  das 
nSchste,  nachfolgende  Zeichen  nicht  gedruckt  werden  soil,  son- 
dern  ein  Steuerzeichen  ist.  Kommt  CHR$(69)  allein  an,  druckt 
der  Drucker  ein  E.  Kommt  aber  CHR$(27)  und  dann  CHR$(69), 
also  ESC  E,  weiB  der  Drucker:  "Aha,  das  ist  ein  Steuerzeichen. 
Mai  nachsehen,  was  ESC  E  zu  bedeuten  hat..." 

Epson-kompatible  Drucker  schalten  bei  ESC  E  zum  Beispiel  auf 
Fettschrift  urn.  Die  Steuerzeichen-Tabelle  der  japanischen  Firma 
Epson  hat  sich  zu  einem  weit  verbreiteten  Standard  entwicklelt. 
Deshalb  gibt  es  schon  viele  Drucker,  die  diese  einheitliche 
Steuerzeichen-Belegung  verwenden. 

Allerdings  gibt  es  auch  eine  ganze  Menge  Drucker,  die  nicht 
Epson-kompatibel  sind.  Dafur  kann  es  verschiedene  Griinde  ge- 
ben:  Vielleicht  ist  der  Drucker-Hersteller  der  Meinung,  er  habe 
eine  viel  bessere  LSsung  zur  Belegung  der  Steuercode-Tabelle 
gefunden.  Oder  der  Drucker  kann  einfach  viel  mehr  als  die 
Drucker,  die  dem  Epson-Standard  folgen.  (Besonders  Laser- 
drucker  sind  meistens  nicht  Epson-Steuerzeichen-kompatibel.) 
Oder  der  Hersteller  folgt  einem  anderen  Standard,  z.B.  dem 
Standard,  den  die  Firma  IBM  fur  ihre  Drucker  festgelegt  hat. 

Normalerweise  hat  das  dann  zur  Folge,  daB  Programme,  die  mit 
Drucker-Steuerzeichen  arbeiten,  entweder  nur  mit  bestimmten 
Druckern  funktionieren  oder  sehr  aufwendig  auf  mSglichst  viele 
Drucker-Standards  angepaBt  werden  mussen.  Stellen  Sie  sich  vor, 
Sie  kaufen  irgendwann  einen  neuen  Drucker,  der  zu  Ihrem  letz- 
ten  Modell  nicht  kompatibel  ist.  In  diesem  Fall  muBten  Sie  alle 
Ihre  Programme  andern  und  auf  die  neuen  Steuerzeichen 
anpassen. 
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Die  Entwickler  des  Amiga  haben  eine  viel  bessere  Ldsung  ge- 
funden:  Sie  haben  eine  Standard-Druckercode-Tabelle  festgelegt, 
an  die  sich  alle  Amiga-Programme  halten  sollen.  Beim  Aus- 
drucken  werden  diese  Standard -Codes  von  der  Drucker-anpas- 
sung,  die  Sie  in  Preferences  festgelegt  haben,  so  iibersetzt,  daB 
an  den  jeweils  angeschlossenen  Drucker  genau  die  zu  ihm  pas- 
senden  Steuerzeichen  iibermittelt  werden.  Bevor  Sie  zum  ersten 
Mai  drucken,  wahlen  Sie  also  bitte  den  entsprechenden  Drucker 
im  Preferences-Druckermenu  und  speichern  Sie  Ihre  Einstellung 
auf  der  Workbench-Diskette  ab.  Falls  Ihr  Drucker  nicht  in  der 
Liste  zu  finden  ist,  brauchen  Sie  deshalb  auch  nicht  gleich  zu 
verzagen:  Viele  Drucker  funktionieren  auch  mit  einer  Anpas- 
sung,  die  eigentlich  fur  ein  anderes  Modell  gedacht  ist.  Insbe- 
sondere  die  NEpsonM-Anpassung  gilt  fur  viele  Matrixdrucker.  Am 
besten,  Sie  fragen  gegebenenfalls  Ihren  Handler.  Sollten  Sie  aber 
dennoch  einen  sogenannten  "Exoten"  als  Drucker  haben,  sollten 
Sie  sich  mal  an  Commodore  oder  den  Druckerhersteller  wenden. 
Denn  meistens  sind  die  Hersteller  beider  Seiten  standig  dabei, 
neue  Druckeranpassungen  fur  den  Amiga  zu  entwickeln. 

Jetzt  aber  wieder  zuruck  zum  Programmieren:  Eine  Preferences- 
Druckeranpassung  funktioniert  wie  ein  Dolmetscher;  auf  einer 
Seite  kommt  die  Information  in  einer  bestimmten  Sprache  hinein 
(bei  uns  die  Standard-Steuerzeichen)  und  auf  der  anderen  Seite 
kommt  die  Information  iibersetzt  (in  die  Codes  des  jeweils  ge- 
wahlten  Druckers)  wieder  heraus.  So  brauchen  Sie  sich  beim 
Programmieren  nie  darum  zu  kiimmern,  welcher  Drucker  mit 
Ihrem  Programm  verwendet  wird.  Solange  er  in  Preferences 
auftaucht,  ubernimmt  Amiga  die  Ubersetzungsarbeit. 

Das  alles  nutzt  Ihnen  naturlich  nur,  wenn  Sie  wissen,  welche 
Druckersteuerzeichen  Sie  zur  VerfOgung  haben.  Deshalb  haben 
wir  eine  Gesamtiibersicht  fQr  Sie  zusammengestellt.  Schauen  Sie 
sich  dazu  Tabelle  8  an.  Wenn  Ihnen  einige  Funktionen  nichts  sa- 
gen,  lesen  Sie  mal  im  Handbuch  Ihres  Druckers  nach,  ob  es  die 
Funktion  bei  Ihrem  Drucker  uberhaupt  gibt  und  wie  sie 
funktioniert. 
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Steuerzeichen: 


Bedeutung: 


CHR$(27)"cM 

CHR$(27)n#lM 

CHR$(27)"D" 

CUR%(27)«W 

CHR$(27)"M" 

CHR$(27)"[0nV 

CHR$(27)M[lm" 

CHR$(27)"[22m" 

CHR$(27)"[3m" 

CHR$(27)"[23m" 

CHR$(27)"[4m*' 

CHR$(27)"[24m" 

CHR$(27);x;"m" 


Initialisierung  (ZurUcksetzen) 

des  Druckers 

Abschaltung  aller  Sondermodi 

Zeilenvorschub,  wie  CHR$(10) 

Zeilenvorschub+Wagenrucklauf, 

wie  CHR$(13) 

eine  Zeile  zurtlck 

normale  Zeichendarstellung 

Fettdruck  ein 

Fettdruck  aus 

Kursiv  ein 

Kursiv  aus 

Unterstreichen  ein 

Unterstreichen  aus 

Vordergrundfarbe 

(x  zwischen  30  und  39), 

Hintergrundfarbe 

(x  zwischen  40  und  49) 


CHRS^^lOw" 

CHR$(27)"[2w" 

CHR$(27)n[lw" 

CHR$(27)"[4w" 

CHR$(27)"[3w" 

CHR$(27)M[6ww 

CHR$(27)n[5w" 

CHR$(27)"[2"CHR$(34)MzH 

CHR$(27)"[l"CHR$(34)"zM 

CHR$(27)"[4"CHR$(34)'V 

CHR$(27)"[3"CHR$(34)"z" 

CHR$(27)"[6"CHR$(34)'V 

CHR$(27)B[5,,CHR$(34)nz'' 


normale  SchriftgroBe 
Elite- Schrift  ein 
Elite  -Schrift  aus 
Condensed  (Schmalschrift)  ein 
Condensed  (Schmalschrift)  aus 
Enlarged  (Breitschrift)  ein 
Enlarged  (Breitschrift)  aus 
NLQ  ein 
NLQ  aus 
Doppeldruck  ein 
Doppeldruck  aus 
Schattenschrift  ein 
Schattenschrift  aus 
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CHR$(27)"[2v" 

CHR$(27)"[lv" 

CHR|(27)"[4v* 

CHR$(27),,[3v,, 

CHR$(27)ML" 

CHR$(27)"K" 

CHR$(27)"[0v" 

CHR$(27)"[2p" 
CHR$(27)*[lp" 
CHR*^)'^ 
CHR$(27)w[";x;"E" 

CHR$(27)"[5F" 
CHR$(27)"[7F" 
CHR$(27)"[6F" 
CHR$(27),,[0Ftt 
CHRI^-ISF" 
CHR$(27)"[1F" 

CHR$(27)"[0zH 
CHR$(27)"[ls" 
CHRl^J-frx;"*" 

CHR$(27)"[";x;V 
CHR$(27)"[0q" 

CHR$(27)"(B" 
CHR$(27)M(R" 
CHR$(27)"(K" 
CHR$(27)-(A" 
CHRI(27)N(E" 
CHRS^nH" 
CHR$(27)"(Y" 
CHR$(27)"(Z" 
CHR$(27)"(J" 
CHR|(27)H(6" 
CHR$(27)"(CH 


Superscript  (Hochstellen)  ein 
Superscript  (Hochstellen)  aus 
Subscript  (Tiefstellen)  ein 
Subscript  (Tiefstellen)  aus 
Hochstellen  (Halbschritt) 
Tiefstellen  (Halbschritt) 
zurtick  zu  Normalschrift 

Proportionalschrift  ein 
Proportionalschrift  aus 
Proportionalabstand  loschen 
Proportionalabstand  =  x 

Links  ausrichten 
Rechts  ausrichten 
Blocks  ate 
Blocksats  aus 
Buchstabenbreite  justieren 
Mittig  zentrieren 

Zeilenabstand  1/8  Zoll 
Zeilenabstand  1/6  Zoll 
Seitenlange  einstellen  auf  x  Zeilen 
Perforation  ilberspringen  urn  x  Zeilen 
Perforation  ttberspringen  aus 

amerikanischer  Zeichensatz 
franzdsischer  Zeichensatz 
deutscher  Zeichensatz 
englischer  Zeichensatz 
danischer  Zeichensatz  (Nr.l) 
schwedischer  Zeichensatz 
italienischer  Zeichensatz 
spanischer  Zeichensatz 
japanischer  Zeichensatz 
norwegischer  Zeichensatz 
danischer  Zeichensatz  (Nr.2) 
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CHR$(27)"#9" 
CHR$(27)"#0" 
CHR$(27)n#8M 
CHR$(27)"#2" 
CHR$(27)"#3" 
CHR$(27),,[^x;y;,,^', 

CHR$(27)n[";x;y;Hs" 

CHR$(27)"H" 

CHR$(27)"JH 

CHR$(27)"[0g" 

CHR$(27)H[3g" 

CHR$(27)"[lg" 

CHR$(27)M[4g" 

CHR$(27)"#4" 

CHR$(27)"#5" 


linken  Rand  setzen 

rechten  Rand  setzen 

Seitenkopf  setzen 

SeitenfuB  setzen 

Rander  lSschen 

Seitenkopf  x  Zeilen  von  oben  und 

SeitenfuB  y  Zeilen  von  unten 

linken  Rand  (x)  und  rechten  Pand  (y)  setzen 

Horizontalen  Tabulator  setzen 
Vertikalen  Tabulator  setzen 
Horizontalen  Tabulator  loschen 
Alle  horizontalen  Tabulatoren  loschen 
Vertikalen  Tabulator  loschen 
Alle  vertikalen  Tabulatoren  lSschen 
Alle  Tabulatoren  loschen 
Standard -Tabulatoren  setzen 


Tabelle  8:  Die  Standard-Druckersteuerzeichen 

Wenn  Sie  z.B.  wollen,  dafl  Ihr  Drucker  auf  Fettschrift  umschal- 
tet,  dann  geben  Sie  ein: 

lprintchr$(27);"[lmM;"Hallor 

Ubrigens,  bevor  Sie  eine  Suchmannschaft  losschicken:  Bei  der 
deutschen  Tastaturbelegung  erreichen  Sie  das  Zeichen  [,  indem 
Sie  gleichzeitig  <ALT>  und  die  <u>-Taste  drucken.  Die  Tasta- 
turen  der  Amigas  500  und  2000  haben  aber  auch  eigene  Tasten 
fur  die  eckigen  Klammern.  Sie  finden  sie  im  Ziffernblock. 

Wenn  Ihr  Drucker  in  der  Lage  ist,  fett  zu  drucken  und  Sie  in 
Preferences  die  richtige  Druckeranpassung  gewfchlt  haben,  muflte 
das  "Hallo"  in  Fettschrift  ausgedruckt  werden.  Wenn  Sie  den 
Fettdruck  wieder  ausschalten  wollen,  geht  das  so: 


lprint  chr$(27);M[22mrHallor 


Disketten  und  Dateiverwaltung 365 


Experimentieren  Sie  ruhig  ein  wenig  mit  den  Steuerzeichen  aus 
unserer  Tabelle. 

Naturlich  kflnnen  einige  Drucker  mehr  als  andere  Drucker. 
Wenn  Sie  ein  Steuerzeichen  verwenden,  das  der  angeschlossene 
Drucker  nicht  versteht,  laBt  es  die  Druckeranpassung  einfach 
unter  den  Tisch  fallen.  Die  gewahlte  Funktion  wird  also  nicht 
ausgefuhrt  -  das  nennt  man  dann  nicht  Befehlsverweigerung, 
sondern  praktisches  Denken. 

Es  kdnnte  naturlich  sein,  daB  Sie  trotzdem  vorhaben,  Ihren 
Drucker  mit  seinen  eigenen  Steuercodes  zu  futtern.  Dann  macht 
uns  die  Steuerzeichen-Konvertierung  (-Ubersetzung)  naturlich 
einen  ziemlichen  Strich  durch  die  Rechnung...  Es  gibt  aber  doch 
eine  Losung:  Sie  kSnnen  n^mlich  beliebige  Zeichen  ungefiltert 
direkt  uber  die  Schnittstelle  ubermitteln,  an  der  Ihr  Drucker  an- 
geschlossen  ist.  Falls  Ihnen  das  Wort  "Schnittstelle"  nichts  sagt: 
Gemeint  sind  alle  Stecker  und  Buchsen  am  Amiga,  an  denen 
Zusatzgerate  angeschlossen  werden  kSnnen.  Der  Geratename  fur 
die  Parallel-Schnittstelle  heiGt  "PAR:",  der  fur  die  serielle 
Schnittstelle  heiCt  "SER:". 

Zu  den  beiden  Schnittstellen  nur  soviel:  Ihr  Amiga  hat  mehrere 
Anschlusse  zur  Dateniibertragung.  Drucker  sind  meistens  an  der 
Parallel-Schnittstelle  angeschlossen,  kdnnen  aber  vereinzelt  auch 
an  der  seriellen  Schnittstelle  hangen.  Eine  parallele  Schnittstelle 
besitzt  mehrere  Datenleitungen,  die  Bits  eines  Zeichens  werden 
gleichzeitig  (parallel)  ubertragen.  Eine  serielle  Schnittstelle  hat 
nur  eine  Datenleitung,  die  Bits  werden  hintereinander  (seriell) 
tibertragen.  Das  ist  der  ganze  Unterschied.  Nehmen  wir  an,  Sie 
haben  Ihren  Drucker  am  parallelen  Interface  angeschlossen. 
(Computerprofis  nennen  eine  "Schnittstelle"  gern  "Interface".) 
Urn  beliebige  Steuerzeichen  ubertragen  zu  kdnnen,  6ffnen  Sie 
einfach  eine  Datei  zum  GerSt  "PAR:" 

open  "par:"  for  output  as  1 

Wenn  Sie  unsere  vorherigen  Beispiele  mitgemacht  haben,  wird 
sich  AmigaBASIC  hartnSckig  weigern,  diese  Datei  zu  offnen 
("File  already  open").  Denn  uber  die  parallele  Schnittstelle  laufen 
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ja  schon  die  Drucker  "PRT:"  und  "LPT1:".  AmigaBASIC  stellt 
sich  nun  auf  den  Standpunkt,  wenn  dort  eh'  schon  ein  Drucker 
angeschlossen  ist,  kann  kein  zweites  Gerat  an  derselben  Schnitt- 
stelle  hangen.  Also  ist  das  Gerat  "PAR:"  nicht  verfugbar.  Ende 
der  Debatte! 

Bei  soviel  Hartnackigkeit  hilft  nur,  die  Workbench  neu  zu  laden. 
(Das  geht  mit  der  Tastenkombination  <CTRL>-<geschlossene 
Amiga-Taste>-<offene  Amiga-Taste>.)  Bei  der  Arbeit  in 
AmigaBASIC  mussen  Sie  sich  zu  Beginn  entscheiden,  ob  Sie  mit 
der  gefilterten  oder  der  ungefilterten  Drucker-Anpassung  arbei- 
ten  wollen.  Wenn  die  Workbench  geladen  ist,  legen  Sie  bitte  Ihre 
"BASICDisk"  ein  und  klicken  Sie  AmigaBASIC  an.  Wiederholen 
Sie  dann  die  Eingabe  von  oben.  Danach  konnen  Sie  wie  gewohnt 
Ihre  Daten  zum  Drucker  schicken: 

print  #1,chr$<27);chr$(69);"Fettschrift!» 
close  1 

Wenn  Sie  jetzt  keine  Fettschrift  auf  dem  Druckerpapier  sehen, 
versteht  Ihr  Drucker  das  Steuerzeichen  nicht. 

Ein  Geratename  fehlt  uns  noch,  dann  haben  wir  alle  komplett. 
(Nur  zur  Erinnerung,  bisher  kennen  win  "RAM:",  "PRT:\ 
"LPT1:",  "PAR:"  ,"SER:\  "SCRN:"  und  "KYBD:\)  Dieser  letzte 
Name  heiflt  "COM1:"  Er  wird  benutzt,  urn  eine  besondere 
Schnittstellennorm  (fur  Fachleute  und  solche,  die  es  werden 
wollen:  eine  RS-232-Schnittstelle)  am  seriellen  Interface  zu  akti- 
vieren. 

Wir  nehmen  an,  dafi  nur  die  wenigsten  unter  Ihnen  diese 
Schnittstelle  zum  gegenwartigen  Zeitpunkt  brauchen,  und  durfen 
das  interessierte  Publikum  in  den  Anhang  B  verweisen.  (Beim 
OPEN-Befehl  finden  Sie  Naheres.) 

Damit  sind  wir  aber  noch  nicht  ganz  fertig.  Eine  Art  von  Peri- 
pheriegerat  (zumindest  im  weiteren  Sinne)  haben  wir  noch  nicht 
erwShnt:  Die  Joysticks.  Solche  Steuerknuppel  findet  man  ja  eher 
an  Telespielen  oder  Home-Computern.   Aber  auch   am   Amiga 
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kann  man  sie  anschlieBen  und  verwenden.  Amiga-Spiele  funk- 
tionieren  sogar  oft  ausschlieBlich  mit  Joysticks.  Da  ist  es  schon 
fast  selbstverstandlich,  daB  auch  AmigaBASIC  die  Steuerknuppel 
abfragen  kann.  Falls  Sie  einen  besitzen,  holen  Sie  ihn  doch  mal 
aus  der  Versenkung. 

So  ein  Gerat  besteht  im  wesentlichen  aus  einem  Kniippel,  den 
man  in  vier  Richtungen  bewegen  kann  und  einem  oder  mehre- 
ren  Feuerkndpfen.  Schon  diese  Ausstattung  laBt  vermuten,  daB 
Joysticks  eher  zum  Fliegen  von  Raumschiffen  als  zur  Bedienung 
von  Wirtschafts-Programmen  gedacht  sind. 

Stellt  sich  die  Frage,  wie  Sie  den  Joystick  mit  Ihrem  Amiga  ver- 
binden  konnen.  An  der  rechten  Seite  des  Gerats  befinden  sich 
zwei  Anschliisse.  Im  AnschluB  1  steckt  die  Maus.  Wir  wollen  sie 
auch  erstmal  dort  steckenlassen,  was  ware  der  Amiga  schlieBlich 
ohne  seine  Maus?  Ihren  Joystick  stecken  Sie  bitte  in  den  zweiten 
AnschluB. 

Wenn  Sie  ihn  nun  bewegen  oder  den  Feuerknopf  drucken,  pas- 
siert  zunSchst  noch  gar  nichts.  AmigaBASIC  nimmt  uberhaupt 
keine  Notiz  von  dem  neuen  Eingabegerat.  Das  kann  sich  aber 
schnell  andern.  Geben  Sie  bitte  das  folgende  Programm  ein: 

OPEN  "ExtrasDrBasicDemos/BaU"  FOR  INPUT  AS  1 

OBJECT. SHAPE  1, INPUT$(I0F(1),1) 
CLOSE  1 
x=320  :  y=100 
OBJECT. ON  1 

WHILE  1 

0BJECT.X  1,x 

OBJECT. Y  1fy 

X=x+STICK(2) 

y=y+STICK(3) 
WEND 
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Speichern  Sie  dieses  Programm  bitte  unbedingt  erst  auf  Diskette 
ab  und  probieren  Sie  es  dann  aus.  Sie  finden  eine  Version  auch 
unter  dem  Namen  "JoystickDemo"  in  der  "DatenH-Schublade  un- 
serer  Diskette  im  Buch. 

Wir  wollen  mit  dem  Joystick  ein  Grafikobjekt  iiber  den  Bild- 
schirm  steuern.  Dazu  haben  wir  uns  entschlossen,  den  "Ball"  aus 
der  MBasicDemosM-Schublade  der  Extras-Diskette  zu  laden.  Wenn 
Sie  Ihre  eigenen  Bobs  oder  Sprites  vom  Videotitel-Programm 
lieber  haben,  konnen  Sie  die  natiirlich  auch  verwenden.  Wie  das 
geht,  wissen  Sie  ja. 

Die  Variablen  V  und  y  geben  die  Position  des  Objekts  an.  Sie 
werden  zu  Beginn  des  Programms  ungef&hr  auf  die  Bildschirm- 
mitte  festgelegt.  Dann  machen  wir  mit  OBJECT.ON  das  Grafik- 
objekt sichtbar.  Die  endlose  WHILE. ..WEND-Schleife  ist  fur  die 
Bewegung  zustandig.  Und  hier  finden  wir  auch  den  neuen,  aus- 
schlaggebenden  Befehl:  STICK(x).  Mit  ihm  ist  es  moglich,  den 
Joystick  auszulesen.  Wie  funktioniert  das? 

Am  Amiga  k6nnen  zwei  Joysticks  angeschlossen  sein.  Einer  im 
AnschluB  1  und  ein  anderer  im  AnschluB  2.  Wir  sprechen  von 
Joystick  1  und  Joystick  2.  Jeder  der  Joysticks  kann  in  einer  X- 
und  in  einer  Y-Richtng  bewegt  werden.  Je  nach  der  Zahl,  die 
Sie  in  Klammern  hinter  STICK  angeben,  wird  eine  Bewegungs- 
richtung  eines  Joysticks  uberpruft: 

STICK(O)  untersucht  die  X-Bewegung  von  Joystick  1 

STICK(l)  untersucht  die  Y-Bewegung  von  Joystick  1 

STICK(2)  untersucht  die  X-Bewegung  von  Joystick  2 

STICK(3)  untersucht  die  Y-Bewegung  von  Joystick  2 

STICK(x)  ist  eine  BASIC-Funktion  und  kann  drei  mogliche  Er- 
gebnisse  liefern. 
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Ergebnis      Bedeutung 


0  keine  Bewegung  in  der  untersuchten  Richtung 

1  Bewegung  nach  oben  bzw.  nach  rechts 
-1  Bewegung  nach  unten  bzw.  nach  links 

Bewegen  wir  also  den  Joystick  2  nach  oben,  ist  das  Ergebnis  von 
STICK(3)  gleich  1.  In  unserem  Programm  addieren  wir  die 
Funktionsergebnisse  einfach  zur  X-  und  zur  Y-Variablen,  dann 
andern  sie  sich  entsprechend  der  Joystick-Bewegung.  Mit  OB- 
JECT.X  und  OBJECT.  Y  erscheint  das  Objekt  an  seiner  neuen 
Position.  Eine  diagonale  Bewegung  entsteht,  wenn  eine  X-  und 
eine  Y-Bewegung  gleichzeitig  stattfinden.  Das  kennen  Sie  schon 
in  ahnlicher  Form  von  den  OBJECT-Befehlen. 

Probieren  Sie  einfach  unser  Beispielprogramm  aus.  Dann  merken 
Sie,  wie  die  Bewegungen  des  Steuerkniippels  die  Bewegung  des 
Grafikobjekts  beeinflussen.  Dann  gibt  es  da  noch  den  Feuer- 
knopf.  ErgSnzen  Sie  Ihr  Progamm,  indem  Sie  innerhalb  der 
WHILE. ..WEND-Schleife  eine  weitere  Zeile  einfiigen: 

IF  STRIG(3)  =-1   THEN  BEEP 

Wenn  Sie  den  Feuerknopf  driicken,  gibt  der  Amiga  einen  Piep- 
ser  von  sich.  Der  Befehl  STRIG(x)  fragt  die  Feuerknflpfe  der 
angeschlossenen  Joysticks  ab.  STRIG  ist  ein  Kurzel  aus  "Stick 
Trigger"  ("Trigger"  heiBt  Abzug,  Feuerknopf).  Auch  bei 
STRIG(x)  miissen  Sie  angeben,  was  Sie  uberprufen  wollen. 
STRIG(l)  ergibt  das  Ergebnis  -I,  wenn  der  Feuerknopf  von 
Joystick  1  gedruckt  ist,  fur  STRIG(3)  gilt  dasselbe,  nur  beim 
Joystick  2.  Bleiben  noch  STRIG(O)  und  STRIG(2)  ubrig.  Sie 
funktionieren  ahnlich  wie  MOUSE(O)  bei  der  Mausabfrage:  Die 
Funktionen  lief  em  dann  das  Ergebnis  -1,  wenn  der  jeweilige 
Feuerknopf  seit  der  letzten  Abfrage  gedruckt  wurde.  So  kann 
ein  Spielprogramm  auch  feststellen,  ob  der  Knopf  betatigt 
wurde,  wahrend  das  Programm  mit  irgendetwas  anderem  be- 
schSftigt  war. 
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Wenn  Sie  Lust  haben,  kflnnen  Sie  jetzt  mit  diesen  Funktionen 
einen  neuen  Spielhallen-Renner  schreiben.  Einen  wichtigen 
Hinweis  haben  wir  aber  noch:  Alles,  was  wir  Ihnen  vorgefiihrt 
haben,  k6nnen  Sie  auch  mit  dem  Joystick  1  machen.  Aber  Ach- 
tung:  Wenn  sich  auch  nur  ein  einziger  Joystick-Befehl  auf  den 
AnschluB  1  bezieht,  erwartet  AmigaBASIC  dort  auch  wirklich 
einen  Joystick  und  erkennt  die  Maus  nicht  mehr,  die  normaler- 
weise  dort  angeschlossen  ist.  Der  Mauscursor  bleibt  an  seiner 
Position  stehen  und  kann  nur  noch  iiber  die  Tastatur  bewegt 
werden.  (Falls  Sie  diese  MOglichkeit  noch  nicht  kennen:  Eine  der 
beiden  <Amiga>-Tasten  in  Verbindung  mit  den  Cursortasten 
ermOglicht  die  Steuerung  des  Mauscursors  iiber  die  Tastatur.) 

Nur  damit  Sie  sehen,  wie  traurig  so  eine  mauslose  Zeit  ist: 
Speichern  Sie  bitte  alles  ab  und  geben  Sie  dann  den  Befehl  ein: 

?  stick(O) 

Ab  jetzt  tut  sich  nichts  mehr  mit  der  Maus.  Diese  unfreundliche 
Eigenschaft  von  AmigaBASIC  konnen  Sie  nur  durch  einen 
NEW-Befehl  abschalten.  Doch  manchmal  hilft  auch  das  nicht 
mehr.  Dann  bleibt  Ihnen  nur  noch  ubrig,  die  Workbench  neu  zu 
starten.  Wenn  man  bedenkt,  wie  wichtig  die  Maus  fiir  den 
Amiga  ist,  muB  man  sich  iiber  die  softwaremaBige  Riicksichts- 
losigkeit,  die  Microsoft  hier  an  den  Tag  legt,  schon  schwer 
wundern... 


3.6        Was  man  Schwarz  auf  WeiB  besitzt...  -  Eine  Druck- 
routine  furs  Statistikprogramm 

Ihre  neu  erworbenen  Kenntnisse  iiber  die  Arbeit  mit  dem 
Drucker  kdnnen  Sie  gleich  fiir  eine  kleine  Erweiterung  des  Sta- 
tistik-Programms  einsetzen.  Wir  wollen  eine  Routine  schreiben, 
die  die  gesamte  Statistik-Datei  ausdruckt.  Sie  k6nnen  dann  z.B. 
alte  Kurse  oder  Daten  in  schriftlicher  Form  aufheben.  Oder  die 
Daten  in  dieser  Form  einem  Geschaftspartner  vorlegen,  wenn  Sie 
keine  Mdglichkeit  haben,  die  Grafik  zu  pr^sentieren.  Und  nach- 
dem  Sie  ja  zu  solchen  AnlaBen  schlecht  den  Amiga  mitschleppen 
konnen,  ist  es  am  besten,  einen  Ausdruck  zu  machen. 
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Laden  Sie  bitte  Ihr  Statistik-Daten-Verwaltungsprogramm.  Die 
Arbeiten,  die  zur  Erweiterung  ndtig  sind,  sind  eigentlich  mini- 
mal. Das  Ausdrucken  wollen  wir  durch  eine  weitere  Pulldown- 
Option  realisieren,  deshalb  muB  der  Teil  'Vorbereitungen:'  etwas 
verandert  werden. 

In  der  Version  auf  der  beigelegten  Diskette  wurden  die  folgen- 
den  Anderungen  schon  ausgefuhrt. 

MENU  1,0,1,»Datei« 

MENU  1,1,1, "laden" 

MENU  1,2,1,"speichern" 

MENU  1,3,1,»drucken" 

MENU  1,4,1,»loschen» 

MENU  1,5,  V'Programm  beenden" 


Ebenso  der  Teil  'MenukontroIIe:': 

IF  Men=1  THEN 

IF  Menpunkt=1  THEN  GOSUB  DatenLaden 
IF  Menpunkt=2  THEN  GOSUB  DatenSpeichern 
IF  Menpunkt=3  THEN  GOSUB  DatenDrucken 
IF  Menpunkt=4  THEN  GOSUB  DatenLoeschen 
IF  Menpunkt=5  THEN  Ende 

Jetzt  fehlt  nur  noch  das  zustSndige  Unterprogramm.  Geben  Sie 
es  am  besten  unter  dem  Programmteil  'Eingabename:'  ein: 

DatenDrucken: 

MENU  1,0,0  :  MENU  2,0,0 

MENU  OFF 

OPEN  »PRT:»  FOR  OUTPUT  AS  1 

PRINT  #1,»Datei:";NamS;CHR$(10) 

PRINT  #1,,lNummer»;TAB(10);»Be2eichnung»;TAB(45);»Wert» 

FOR  x=4  TO  HoechstZeile+4 

PRINT  #1iNummer$(x);TAB<10);Bez$(x);TAB(45);Zahl$(x) 
NEXT  x 
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close  1 

MENU  1,0,1  :  MENU  2,0,1 
MENU  ON 
RETURN 

Eigentlich  durfte  dieses  Programm  fur  Sie  keine  Schwierigkeiten 
mehr  beinhalten.  Wir  unterdrucken  Menu  Trapping,  Offnen  eine 
Druckerdatei,  drucken  zuerst  den  Namen  der  geladenen  Datei 
(in  *Nam$'  steht  der  zuletzt  verwendete  Dateiname),  drucken 
dann  die  Kopfzeile  und  die  einzelnen  Datenzeilen.  Danach 
schlieflen  wir  die  Druckdatei,  reaktivieren  die  Menu-Auswahl 
und  kehren  zuruck  zu  der  Zeile,  die  gerade  bearbeitet  wurde,  als 
wir  die  Option  "drucken"  auswahlten. 

Wenn  Sie  Lust  haben  und  iiber  einen  geeigneten  Drucker  verfii- 
gen,  konnen  Sie  die  Liste  mit  verschiedenen  Schriftarten  etc. 
nach  Ihrem  persOnlichen  Geschmack  gestalten.  Immer  wenn  wir 
Programme  wie  jetzt  erweitern  und  verbessern,  kOnnen  Sie  Ubri- 
gens  die  Vorteile  des  AmigaBASIC  besonders  deutlich  merken. 
Dank  des  modulartigen  Aufbaues  der  Programme  ist  es  wirklich 
ein  leichtes,  nachtrSglich  neue  Dinge  zu  programmieren  und  in 
das  Programm  einzufugen. 

Sollte  in  Ihnen  jetzt,  nach  all  dem  Druck,  der  starke  Wunsch  er- 
wachen,  auch  die  Grafiken  auf  Papier  auszudrucken,  diirfen  wir 
Sie  nochmals  auf  das  MGraphicDump"-Programm  in  der  "Sy- 
stem"-Schublade  der  Workbench  verweisen.  In  den  nSchsten  Ka- 
piteln  werden  wir  Ihnen  noch  einige  andere  M6glichkeiten  vor- 
stellen,  wie  Sie  Bilder  und  Grafiken  der  Nachwelt  erhalten 
konnen. 
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4.     Ein  Bild  sagt  mehr  als  tausend  Daten  - 
Laden  und  Speichern  von  Grafiken 

Was  in  unserem  Malprogramm  noch  fehlt,  wissen  Sie  sicher 
selbst:  Es  macht  schlieBlich  auf  Dauer  keinen  groBen  SpaB,  die 
wunderschSnsten  Bilder  zu  entwerfen,  wenn  man  genau  weiB, 
daB  sie  das  nSchste  Ausschalten  des  Computers  nicht  Gberleben 
werden.  Wir  zeigen  Ihnen,  wie  Sie  Grafikdaten  auf  Diskette 
speichern  kftnnen,  urn  sie  spater  jederzeit  wieder  einzulesen. 


4.1        Aus  eins  mach  zwei  mach  drei  mach  vier  - 
die  Befehle  GET  und  PUT 

Zu  Beginn  wollen  wir  zwei  neue  BASIC-Befehle  vorstellen:  GET 
und  PUT.  Was  man  mit  Ihnen  anfangen  kann,  zeigt  am  besten 
ein  kurzes  Beispielprogramm.  Auf  der  beiliegenden  Diskette  hat 
es  den  Namen  "GetPutDemo". 

DIM  Feld%(563) 

CIRCLE  (50,20), 40 
CIRCLE  (35, 12), 5 
CIRCLE  (65,12),5 
CIRCLE  (50,20), 8 
CIRCLE  (50,18), 30,, 4,6 
PAINT  (50,20), 3,1 

GET  <0,0)-<99,39),Feld% 

CLS 

FOR  x=0  TO  5 

FOR  y=0  TO  4 
PUT  (x*100,y*40),Fetd% 

NEXT  y 
NEXT  x 
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Da  erscheint  plfttzlich  eine  ganze  Armee  von  kleinen  Gesichtern 
auf  dem  Bildschirm,  obwohl  wir  nur  ein  einziges  mit  CIRCLE- 
Befehlen  gemalt  haben.  Das  Geheimnis  muB  hinter  den  beiden 
neuen  Befehlen  stecken.  Mit  dem  Befehl  GET  k6nnen  Sie  einen 
Ausschnitt  aus  einer  Grafik  in  einem  Datenfeld  abspeichern.  In 
unserem  Beispiel  benutzen  wir  das  Datenfeld  Teld%\  Der  Be- 
fehl PUT  dient  dazu,  den  gespeicherten  Bildausschnitt  an  einer 
beliebigen  Stelle  des  Bildschirms  wieder  darzustellen.  GET  liest 
einfach  die  Bits  aus  den  verschiedenen  Bitebenen,  setzt  sie  zu 
Bytes  zusammen  und  speichert  die  Bytes  im  angegebenen  Da- 
tenfeld. PUT  kopiert  die  Bytes  an  der  angegebenen  Stelle  in  die 
Bitebenen  zuruck.  Das  ist  alles. 

Zuerst  mussen  Sie  ein  Datenfeld  dimensionieren.  Mit  einer  For- 
mel  kflnnen  Sie  ausrechnen,  wieviele  Elemente  fur  einen  be- 
stimmten  Bildausschnitt  benotigt  werden.  Diese  Formel  stellen 
wir  Ihnen  gleich  vor.  Beim  GET-Befehl  geben  Sie  in  der  ge- 
wohnten  Schreibweise  die  Koordinaten  der  linken  oberen  Ecke 
und  der  rechten  unteren  Ecke  des  gewunschten  Bildausschnitts 
an.  Der  Bildausschnitt  muB  rechteckig  sein.  Dahinter  schreiben 
Sie  noch  den  Namen  des  Datenfelds,  in  dem  die  Daten  abgelegt 
werden  sollen: 

GET  (xAnfang,yAnfang)-(xEnde,yEnde),  Datenfeld 

Um  die  gespeicherte  Grafik  an  einer  beliebigen  Stelle  des  Bild- 
schirms wieder  sichtbar  zu  machen,  braucht  der  PUT-Befehl  nur 
die  Koordinaten  der  linken  oberen  Ecke  und  den  Datenfeld  - 
namen: 

PUT  (xZielpunkt,yZielpunkt),  Datenfeld 

Schauen  wir  uns  jetzt  die  versprochene  Formel  an,  mit  der  Sie 
den  Speicherbedarf  eines  Grafikausschnitts  errechnen  kSnnen. 
Sie  lautet: 

6  +  Bitebenen  *  H6he  *  2  *  INT(  (Breite  +  16)  /  16  ) 
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Die  Werte  fur  H6he  und  Breite  geben  Sie  in  Pixels  an.  Der  hin- 
tere  Teil  der  Formel  errechnet  daraus  die  Anzahl  an  Bytes,  die 
ftir  einen  Grafikausschnitt  der  angebenen  AusmaBe  benOtigt 
werden.  Diese  Zahl  muB  mit  der  Anzahl  der  Bitebenen  multi- 
pliziert  werden,  denn  wie  Sie  wissen,  gehdren  zu  jedem  farbigen 
Punkt  mehrere  Bits,  die  in  verschiedenen  Bitebenen  liegen.  Zu- 
letzt  kommen  nochmal  6  Bytes  dazu,  die  besondere  Steuer- 
informationen  enthalten  werden.  Als  Ergebnis  erhalten  Sie  den 
Speicherbedarf  in  Bytes.  Diese  Zahl  ist  noch  nicht  identisch  mit 
der  Anzahl  an  Feldelementen,  denn  ein  Integerfeld  wie  unser 
'Feld%*  beinhaltet  pro  Feldelement  zwei  Bytes.  (Sie  wissen  ja 
noch:  Eine  Integerzahl  kann  einen  Wert  zwischen  -32768  und 
32767  haben.  Zur  Speicherung  braucht  der  Amiga  16  Bits,  also  2 
Bytes.) 

Wie  sieht  die  Berechnung  fur  unser  Beispiel  aus?  Die  H6he  des 
Ausschnitts  ist  40  Pixels,  die  Breite  100  Pixels.  Berechnen  wir 
alles  von  hinten  her:  (INT(100+16)/16)  ergibt  INT(1 16/16)  also 
7.  Diese  Zahl  wird  mit  2  multipliziert,  Ergebnis:  14.  Eine  Bild- 
zeile,  die  100  Pixels  breit  ist,  benotigt  zur  Speicherung  14  Bytes. 
14  multipliziert  mit  der  HShe  (40)  ergibt  560.  Wenn  wir  bloB 
eine  Bitebene  verwenden  wurden,  brSuchte  unsere  kleine  Grafik 
also  560  Bytes. 

Da  der  Workbench-Screen  standardmaBig  mit  2  Bitebenen  ar- 
beitet,  mussen  wir  die  Zahl  560  verdoppeln  und  erhalten  1120. 
Dazu  kommen  noch  die  zusatzlichen  6  Bytes,  der  Gesamt- 
speicherbedarf  betrSgt  also  1126  Bytes.  Wenn  unser  Teld%' 
1126  Bytes  aufnehmen  soil,  mussen  wir  es  auf  1126/2,  also  563 
Elemente  dimensionieren.  Sie  sehen,  der  Speicherbedarf  einer 
Grafik  ist  recht  beachtlich.  Denn  so  groB  ist  sie  ja  nun  wirklich 
nicht.  Trotzdem  benOtigt  sie  ein  Vielfaches  der  Daten,  mit  denen 
zum  Beispiel  unser  Statistikprogramm  sein  Dasein  bestreitet. 

Ubrigens:  Wenn  Sie  sich  fragen,  wozu  eigentlich  die  6  uberzahli- 
gen  Bytes  gebraucht  werden,  schauen  Sie  sich  einmal  die  erste 
drei  Elemente  von  Teld%'  an: 

?  Feld%(0);Feld%(1);Feld%(2) 
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Im  ersten  Element  des  Datenfelds  steht  die  Breite  des  Grafik- 
objekts,  im  zweiten  die  Hohe  und  im  dritten  die  Anzahl  an  Bit- 
ebenen.  An  diesen  Daten  diirfen  Sie  aber  nichts  veriindern,  sonst 
kommt  AmigaBASIC  mit  der  internen  Berechnung  der  Grafik- 
daten  durcheinander. 

Zum  PUT-Befehl  gibt  es  noch  etwas  zu  erkiaren:  Sie  kflnnen 
hinter  dem  Feldnamen  noch  eine  dritte  Angabe  machen.  NSm- 
lich  eine  logische  Verkniipfung,  die  AmigaBASIC  zwischen  der 
Grafik  aus  dem  Datenfeld  und  dem  Bildschirmhintergrund 
durchfuhren  soil.  Normalerweise  verkniipft  AmigaBASIC  die 
Grafik  und  den  Hintergrund  mit  XOR:  Wo  im  Hintergrund 
keine  Punkte  gesetzt  sind,  erscheint  ein  Grafikpunkt  in  normaler 
Darstellung.  Wo  im  Hintergrund  bereits  Punkte  waren,  wird  in- 
vertiert.  Ein  Versuch  im  Direktmodus  beweist  es: 

els 

line  <100,120)-(l99,139),1fbf 

put  (100,100>,Feld% 

Die  Teile  des  Gesichts,  die  den  gezeichneten  Block  uberlagern, 
werden  invertiert.  Ein  interessanter  Effekt  tritt  ein,  wenn  Sie 
denselben  PUT-Befehl  noch  mal  eingeben: 

put  <100,100),Feld% 

Da  staunen  Sie,  nicht  wahr?  Das  Gesicht  ist  v511ig  verschwun- 
den.  Durch  die  XOR-Verkniipfung  wird  eine  Grafik  durch 
einen  zweiten  PUT-Befehl  an  derselben  Stelle  wieder  vom  Bild- 
schirm  entfernt,  ohne  daB  der  Hintergrund  beschadigt  wird. 
Diesen  Trick  konnten  Sie  auch  fur  Animationseffekte 
verwenden.  Aber  dafiir  gibt  es  schlieBlich  die  Bobs.  Und  die 
funktionieren  im  Prinzip  ganz  genauso. 

Probieren  wir  mal,  was  es  sonst  noch  so  gibt: 

els 

put  (100,100), Feld%, preset 
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Die  Verknupfung  PRESET  bewirkt  eine  invertierte  Wiedergabe 
der  Grafik.  Werfen  wir  einen  Blick  auf  die  Farben  bei  inver- 
tierter  Darstellung.  Die  vier  Standardfarben  der  Workbench  wer- 
den  nach  einer  bestimmten  Regel  umgesetzt: 

blau  wird  orange 
weiB  wird  schwarz 
schwarz  wird  weiB 
orange  wird  blau 

Die  gleiche  Umsetzung  kflnnen  Sie  auch  sehen,  wenn  Sie  ein 
Icon  auf  der  Workbench  aktivieren.  Es  wird  ja  zur  Kennzeich- 
nung  auch  invertiert. 

color  0,1 

els 

put  (100,100),Feld%,pset 

Die  Verknupfung  PSET  ist  die  einfachste:  Sie  setzt  die  Grafik  so 
auf  den  Bildschirm,  wie  sie  abgespeichert  wurde.  Ohne  Riick- 
sicht  auf  den  Hintergrund. 

els 

line  (100,120)-(199,139),1,bf 
put  (100,100), Feld%,and 

In  diesem  Beispiel  werden  die  Punkte  mit  dem  Hintergrund 
AND-verknupft:  Nur  wo  vorher  schon  ein  Punkt  war,  erscheint 
ein  Punkt  der  Grafik. 

Und  was  mit  AND  geht,  muB  mit  OR  auch  gehen: 

els 

line  (100,120)-(199,139),1,bf 

put  (100,100), Feld*,or 

Die  OR-Verkniipfung  kopiert  die  Grafik  in  den  Bildschirm, 
ohne  die  Punkte  bei  Uberdeckung  zu  invertieren.  Schon  steckt 
unser  MSnnchen  seine  Nase  uber  die  Mauer. 
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Jetzt  kennen  Sie  alle  Verkniipfungsarten  zwischen  Grafik  und 
Hintergrund.  Je  nach  dem  gewunschten  Effekt  konnen  Sie  die 
eine  oder  die  andere  beniitzen.  Und  Sie  wissen,  wie  man  einen 
Grafikausschnitt  kopieren  und  an  beliebiger  Stelle  im  Bild 
darstellen  kann.  Doch  mit  alledem  sind  wir  noch  nicht  viel  wei- 
ter  gekommen  auf  unserer  Suche  nach  einer  Methode,  urn  Gra- 
fikdaten  auf  Diskette  abzuspeichern. 

Eine  recht  erfolgversprechende  Idee  ware  doch,  die  Elemente 
aus  dem  Datenfeld  auf  Diskette  abzuspeichern.  Schreiben  Sie 
unser  Beispielprogramm  bitte  ein  wenig  um: 

DIM  Feld%(563) 

CIRCLE  (50, 20), 40 
CIRCLE  (35, 12), 5 
CIRCLE  (65, 12), 5 
CIRCLE  (50, 20), 8 
CIRCLE  (50,18), 30, ,4,6 
PAINT  (50, 20), 3,1 

GET  (0,0>-(99,39),Feld% 

OPEN  "Mannchen"  FOR  OUTPUT  AS  1 

FOR  x=0  TO  563 
PRINT  #1,MKI$(FeLd%(x)); 

NEXT  x 
CLOSE  1 

Wenn  Sie  selbst  tippen,  speichern  Sie  diese  Version  bitte  unter 
einem  eigenen  Namen  ab.  Auf  der  beiliegenden  Diskette  finden 
Sie  das  Listing  als  "GetPutOutput"  in  der  HDatenM-Schublade. 

Das  einzige,  was  Sie  wahrscheinlich  noch  nicht  kennen,  ist  die 
Funktion  MKI$.  Diesen  Befehl  werden  Sie  in  Zukunft  sicher 
sehr  hSufig  brauchen.  Er  ist  eine  groBe  Hilfe,  um  Zahlen  platz- 
sparend  auf  Diskette  abzuspeichern.  Dahinter  steckt  eine  ein- 
leuchtende  Uberlegung:  Wenn  eine  Zahl  wie  -32768  in  gewohn- 
ter  Form  abgespeichert  wiirde,  brfcuchte  man  dazu  7  Bytes.  Ein 
Byte  geht  fur  das  Minuszeichen  verloren,   fiinf  Bytes  fiir  die 
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Ziffern  und  mindestens  ein  Byte  ware  als  Trennzeichen  zur 
n&chsten  Zahl  ndtig.  Dabei  wissen  wir,  dafl  die  Zahl  -32768  als 
16-Bit-ZahI  dargestellt  werden  kann.  Demnach  ware  sie  2  mal  8 
Bits,  also  2  Bytes  groB.  Wir  kdnnten  also  mit  weniger  als  einem 
Drittel  des  Speicherplatzes  auskommen.  Auch  der  Platz  auf  Dis- 
kette ist  kostbar,  aber  das  ist  bei  880  KByte  Speicherkapazitat 
pro  Diskette  das  geringere  Problem.  Vor  allem  die  Schreib-  und 
Lesezeiten  kGnnen  auf  diese  Weise  drastisch  verringert  werden. 

Urn  aus  einer  16  Bit  langen  Integerzahl  zwei  Bytes  zu  machen, 
gibt  es  die  Funktion  MKI$  ("Make  Integer  String"  =  Wandle  eine 
Integerzahl  in  einen  String  urn).  Es  entsteht  ein  2  Zeichen  langer 
String,  den  wir  dann  auf  Diskette  schreiben.  Ubrigens:  Fur  8- 
Bit-Zahlen  kennen  Sie  schon  eine  vergleichbare  Funktion:  Den 
Befehl  CHR$.  Mit  ihm  kdnnen  Sie  aus  den  drei  Zeichen  255  ein 
Zeichen  machen:  CHR$(255).  Beim  Einlesen  brauchen  wir  eine 
Funktion,  die  aus  den  beiden  Bytes  (bei  MKI$)  oder  dem  einen 
Byte  (bei  CHR$)  wieder  die  zugeh6rige  Zahl  macht.  Fur  CHR$ 
ist  die  Gegen-Funktion  der  Befehl  ASC.  Er  gibt  den  ASCII- 
Code  eines  Zeichens  an.  Probieren  Sie's  ruhig  einmal  aus: 

a$=chr$<10)   :  ?  asc(a$) 

Ware  'a$'  langer  als  ein  Zeichen,  wurde  ASC  nur  das  erste  Zei- 
chen des  Strings  untersuchen.  Die  Funktion  ASC  ist  auch 
hilfreich,  wenn  Sie  mal  auf  die  Schnelle  den  ASCII-Code  eines 
Zeichens  feststellen  wollen: 

?  asc("H") 

ergibt  72,  den  ASCII-Code  des  GroBbuchstabens  H.  Die  Um- 
kehr-Funktion  zu  MKI$  heiBt  CVL  ("Convert  to  Integer"  = 
Wandle  in  eine  Integerzahl  urn) 

a$=mki$(32000)   :  ?  cvi(a$) 

Der  angegebene  String  muB  mindestens  zwei  Zeichen  lang  sein. 
Langere  Strings  werden  nur  bis  zur  zweiten  Stelle  untersucht. 


380  AmigaBASIC 


Urn  gleich  Verwechslungen  vorzubeugen,  vergleichen  wir  ein 
paar  Befehle,  die  auf  den  ersten  Blick  Shnliche  Funktionen  ha- 
ben.  Sie  haben  bereits  vor  einiger  Zeit  (im  Kapitel  1.18)  die 
Funktion  CINT  kennengelernt.  Die  dient  dazu,  eine  normale 
Zahl  durch  Rundung  in  eine  Integerzahl  umzuwandeln: 

?  cint  (3.9)  ergibt  4 

Um  eine  ausgeschriebene  Zahl,  die  in  einem  String  steht,  in  eine 
Zahl  umzuwandeln,  gibt  es  den  Befehl  VAL. 

?  val  ("32768")  ergibt  32768 

CVI  hingegen  macht  aus  zwei  Bytes,  die  in  einem  String  stehen, 
eine  16-Bit-Zahl  und  gibt  deren  Wert  als  Ergebnis  aus. 

a$=CHR$(0)+CHR$(254)    :  ?  cvi(a$) 

Die  zwei  Bytes  erzeugen  wir  hier  durch  zwei  einzelne  CHR$- 
Befehle.  Das  Ergebnis  wird  254  sein,  da  die  hSherwertigen  8 
Bits  alle  den  Wert  0  haben. 

Wir  wissen,  daB  das  alles  ein  biBchen  komplizierter  wird,  aber 
Sie  stecken  ja  nun  mittlerweile  auch  schon  in  den  tiefsten 
Geheimnissen  der  BASIC-Programmierung.  Und  dazu  gehflren 
nun  mal  solche  Zahlenkunststucke.  Wenn  Sie  die  Unterschiede 
verstanden  haben,  kOnnen  wir  daran  gehen,  unsere  Grafikdaten 
wieder  von  Diskette  einzulesen.  Sie  sparen  sich  viel  Tipparbeit, 
wenn  Sie  das  ursprungliche  Beispielprogramm  laden  und  dort  die 
nStigen  Anderungen  vornehmen.  Oder  naturlich,  wie  so  immer, 
unsere  Diskette  im  Buch  benutzen  und  das  Programm  MGet- 
Putlnput"  laden. 

DIM  Feld%(563) 

OPEN  "Mannchen"  FOR  INPUT  AS  1 

FOR  x=0  TO  563 
FeLd%(x)=CVI(INPUT$(2,D) 

NEXT  x 
CLOSE  1 
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CLS 

FOR  x=0  TO  5 

FOR  y=0  TO  4 
PUT  <x*100,y*40),Feld% 

NEXT  y 
NEXT  x 

Na  also!  Wenn  Sie  das  Programm  schon  ausprobiert  haben,  haben 
Sie  gemerkt:  Es  erscheinen  wieder  unsere  MSnnchen  auf  dem 
Bildschirm,  ohne  daB  wir  einen  einzigen  CIRCLE-Befehl  im 
Programm  verwendet  hatten.  Der  Inhalt  von  Teld%'  wurde  von 
Diskette  eingelesen. 

CVI  haben  wir  Ihnen  ja  ausfuhrlich  erkl&rt,  aber  vielleicht  ha- 
ben Sie  noch  ein  paar  Zweifel  wegen  INPUTS.  Diesen  Befehl 
haben  wir  schon  hSufig  verwendet,  ohne  ihn  bisher  genauer  zu 
erkiaren.  Also  holen  wir  mal  das  Versaumte  nach. 

Sie  verwenden  INPUTS,  wenn  Sie  eine  bestimmte  Anzahl  an 
Zeichen  aus  einer  Diskettendatei  lesen  wollen.  INPUT$(2,1)  lie- 
fert  eirien  String,  der  aus  den  nachsten  beiden  Zeichen  in  der 
Datei  Nummer  1  besteht.  Die  Syntax  lautet  also: 

INPUTS  (Anzahl  Zeichen,  Dateinummer) 

Da  Sie  vorher  festlegen,  wieviele  Zeichen  Sie  einlesen  wollen, 
braucht  INPUTS  auch  keine  Trennzeichen.  Fur  CVI  bendtigen 
wir  zwei  Bytes,  also  lesen  wir  auch  zwei  Stuck  aus  der  Datei. 

Sie  mussen  nur  aufpassen,  daB  Sie  nicht  mehr  Zeichen  aus  der 
Datei  lesen  wollen,  als  Zeichen  vorhanden  sind.  Sonst  meldet 
AmigaBASIC  einen  "Input  past  end"-Error  -  "Sie  wollten  Daten 
liber  das  Dateiende  hinaus  einlesen".  Urn  das  zu  vermeiden,  gibt 
es  zwei  M6glichkeiten: 

Zum  einen  die  Funktion  LOF(x).  Sie  steht  fur  "Length  of  File", 
deutsch:  Dateilange.  Die  Zahl  in  Klammern  gibt  die  Datei- 
nummer an.  Solange  eine  Datei  ge6ffnet  ist,  ergibt 
LOF(Dateinummer)  die  LSnge  der  Datei  in  Bytes.  Sie  k6nnen 
soviele  Zeichen  lesen,  wie  LOF(x)  Ihnen  mitteilt.  Erinnern  Sie 
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sich  noch  an  das  Einlesen  von  Grafikobjekten?  Da  hieB  es: 
INPUT$(LOF(l),l).  Alle  Zeichen  aus  der  Datei  1  werden  in 
einen  String  gepackt.  Wenn  Sie  einzelne  Zeichen  lesen,  benutzen 
Sie  vielleicht  eine  Schleife:  FOR  x=l  TO  LOF(l).  Zum  anderen 
gibt  es  die  Funktion  EOF(x).  Die  kennen  Sie  schon.  Sie  liefert  - 
1,  wenn  die  Datei  zu  Ende  ist,  sonst  den  Wert  0.  Das  konnen  Sie 
auch  fur  Schleifen  nutzen:  WHILE  EOF(1)=0,  oder  noch  elegan- 
ter  und  in  fast  lupenreinem  Englisch:  WHILE  NOT  EOF(l). 

In  unserem  Fall  stellten  sich  solche  Probleme  nicht,  denn  wir 
wuBten  ja,  wieviele  Zeichen  wir  in  die  Datei  geschrieben  hatten. 

Zuletzt  noch  ein  interessanter  Nebeneffekt  von  INPUTS:  Wenn 
Sie  keine  Dateinummer  angeben,  liest  INPUTS  die  gewunschten 
Zeichen  von  der  Tastatur  ein.  Probieren  Sie: 

?  input$(10) 

Nach  dem  Drucken  von  <RETURN>  erscheint  der  BASIC-Cur- 
sor,  und  nichts  weiter  tut  sich.  Geben  Sie  ein  paar  Zeichen  ein. 
Die  Zeichen  werden  nicht  angezeigt,  aber  der  Amiga  merkt  sie 
sich.  Nach  dem  10.  Zeichen  erscheint  der  ganze  String  auf  dem 
Bildschirm. 

Auch  beim  Datenaustausch  mit  anderen  Peripheriegeraten  oder 
zur  Datenfernubertragung  ist  INPUTS  hervorragend  geeignet.  Er 
ist  in  AmigaBASIC  wohl  das  wichtigste  Hilfsmittel,  urn  Daten 
von  irgendwoher  einzulesen. 

Sie  haben  jetzt  eine  Methode  kennengelernt,  Grafikdaten  auf 
Diskette  abzuspeichern.  Fur  Bildausschnitte  ist  diese  Methode 
auch  gar  nicht  schlecht.  Wenn  es  urn  ganze  Bilder  geht,  stoBt  sie 
allerdings  an  ihre  Grenzen.  Fur  ein  Bild  aus  unserem  Mal- 
programm  mit  320  *  200  Punkten  und  5  Bit-Ebenen  briiuchten 
Sie  ein  Datenfeld  mit  21000  Elementen.  So  viel  bekommen  Sie 
nie  auf  einmal  im  Speicher  von  AmigaBASIC  unter.  Sie  muBten 
also  das  Bild  stuckchenweise  mit  GET  einlesen  und  dann  ab- 
speichern.  Das  ist  kompliziert  und  zeitaufwendig.  Aber  es  gibt 
eine  andere  MCglichkeit,  die  Bilder  auf  Diskette  zu  bekommen. 
Sie  ist  viel  eleganter  und  bietet  noch  andere,  ungeahnte  Vorteile. 
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4.2        Das  Daten-Jet-set  -  Interchange  File  Format  (IFF) 

Sofern  Sie  zwei  oder  mehrere  kommerzielle  Grafikprogramme 
besitzen,  vielleicht  sogar  Programme  wie  "Deluxe  Video"  oder 
den  "Aegis  Animator",  ist  Ihnen  sicher  eines  aufgefallen:  Die 
meisten  Amiga-Grafikprogramme  sind  datenkompatibel.  Sie 
kdnnen  mit  "Graphicraft"  ein  Bild  malen  und  dieses  Bild  von 
"DeluxePaint"  einlesen  lassen,  Sie  kflnnen  die  entstandenen  Bilder 
oder  Bildteile  sogar  als  Hintergrund  oder  Akteure  in  einem  der 
Animationsprogramme  verwenden.  Und  vieles  mehr. 

Diese  erfreuliche  Tatsache  ist  keineswegs  selbstverstandlich.  Bei 
den  meisten  Computern  haben  sich  die  Software-Firmen  nicht  so 
gut  abgesprochen.  Das  Resultat  ist  dort  eine  ausgeprSgte  Eigen- 
brfltlerei,  die  es  vflllig  unmflglich  macht,  die  Daten,  die  mit  Pro- 
gramm  A  erzeugt  wurden,  auch  nur  ansatzweise  mit  Programm 
B  zu  bearbeiten.  Besitzer  des  Commodore  64  haben  hier  zum 
Beispiel  leidvolle  Erfahrungen  machen  miissen. 

DaB  das  auf  dem  Amiga  so  schdn  klappt,  haben  wir  der  ameri- 
kanischen  Softwarefirma  Electronic  Arts  zu  verdanken.  Die 
Leute  von  Electronic  Arts  haben  sich  von  Anfang  an  sehr  stark 
fur  den  Amiga  engagiert. 

So  hat  diese  Firma  im  Jahr  1985  ein  Konzept  erarbeitet,  wie 
man  Daten  in  eine  einheitliche  Form  bringen  kann,  so  daG  sie 
von  jedem  Programm  verstanden  werden,  ohne  aber  das  einzelne 
Programm  in  seiner  Leistung  und  seiner  zukiinftigen  Entwick- 
lung  einzuengen.  Das  ganze  Ding  ist  schlichtweg  genial.  Und 
damit  das  Kind  einen  Namen  hat,  nannte  man  das  Resultat  "In- 
terchange File  Format"  (Austausch-Dateiformat)  oder  kurz  IFF. 
In  langwieriger  Uberzeugungarbeit  haben  die  Entwickler  von 
IFF  vielen  anderen  Softwarefirmen  (also  immerhin  der  Konkur- 
renz)  die  Vorteile  einer  Vereinheitlichung  nahegelegt.  Und  das 
mit  guten  Argumenten:  SchlieBlich  hat  nicht  nur  der  Kunde 
einen  groBen  Vorteil  davon,  auch  die  Softwarefirmen  verbessern 
ihre  Absatzchancen.  Der  Nutzwert  eines  Programms  steigt  be- 
trachtlich,  wenn  es  seine  Leistungen  in  ein  vorhandenes  Ge- 
samtsystem  einbinden  kann:  100  $  fur  ein  Malprogramm,  mit 
dem  man  nichts  weiter  tun  kann  als  Malen,  ist  ein  hoher  Preis. 
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100  $  fiir  ein  Programm,  mit  dem  man  malen,  Videohinter- 
griinde  erzeugen,  Animationsobjekte  bearbeiten  und  Geschafts- 
grafiken  interessanter  gestalten  kann,  sind  schon  sehr  viel  besser 
angelegt. 

Der  IFF-Standard  erm6glicht  jederzeit  zukunftige  Erweiterun- 
gen,  ohne  daB  die  alten  Dateien  deshalb  nicht  mehr  gelesen 
werden  kftnnen.  Die  Daten  sind  so  gekennzeichnet,  daB  sich  je- 
des  Programm  die  Teile  herauspicken  kann,  die  es  versteht.  Was 
es  nicht  versteht,  uberliest  es  einfach. 

IFF  ist  nicht  allein  fiir  Grafiken  gedacht.  Audi  Noten,  Musik- 
instrumente,  Texte,  Schriften  etc.  k6nnen  in  diesem  Format  ab- 
gespeichert  werden. 

Wir  wollen  uns  aber  ausschiieBlich  mit  den  Grafikdaten  be- 
schaftigen.  Wenn  man  auf  dem  Amiga  Grafikprogramme 
schreibt,  gehort  es  nicht  nur  zum  guten  Stil,  die  Datenein-  und 
-ausgabe  IFF-kompatibel  zu  halten,  es  bietet  auch  handfeste 
Vorteile:  Es  ist  jederzeit  moglich,  die  Bilder  professioneller  Mal- 
programme  in  AmigaBASIC  zu  ubernehmen.  Und  es  ist  auch 
m5glich,  die  Bilder  des  BASIC-Malprogramms  in  die  professio- 
nellen  Grafikprogramme  einzulesen  und  deren  Features  zu  nut- 
zen.  Zum  Beispiel  fur  erweiterte  Hardcopy-Moglichkeiten  oder 
fiir  das  Ausschneiden  und  Verschieben  von  Bildteilen.  Kurz,  fur 
alle  M6glichkeiten,  die  das  entsprechende  Programm  bietet. 

Und  wer  auch  nur  irgendein  IFF-kompatibles  Malprogramm  be- 
sitzt,  kann  von  diesem  Datenaustausch  Gebrauch  machen. 

Bevor  wir  ans  Programmieren  gehen,  wollen  wir  Ihnen  die 
wichtigsten  Grundlagen  und  die  Funktionsweise  von  IFF  kurz 
erkiaren. 

Daten,  die  alle  dieselbe  Funktion  haben,  werden  in  IFF  zu  einer 
Gruppe  zusammengefaBt.  Der  Fachausdruck  fur  so  eine  Gruppe 
heiBt  "Chunk".  Das  ist  eigentlich  eine  ziemlich  respektlose  Be- 
zeichnung,  die  ubersetzt  soviel  wie  "Haufen"  oder  "Klumpen" 
bedeutet.     (Es     gibt     iibrigens     auch     diese     Restaurants,     die 
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sogennantes  junk  food  verkaufen.  Das  ist  etwas  gehacktes 
Fleisch  inmitten  eines  ehemaligen  Brfltchens.  Bitte  nicht  ver- 
wechseln.) 

Zuruck  zu  IFF:  Eine  IFF-Datei  besteht  aus  mehreren  Chunks. 
Alle  Chunks,  die  zusammengehflren,  bilden  gemeinsam  eine 
"Form",  was  auf  Deutsch  auch  nichts  anderes  heiBt  als  "Form". 
Am  treffendsten  ubersetzt  man  das  englische  Wort  hier  mit  "Fi- 
gur"  oder  "Formular". 

Damit  sich  die  Programme  beim  Lesen  und  Schreiben  zurecht- 
finden,  steht  in  jedem  Chunk  und  in  jeder  Form  zu  Beginn  eine 
Kennung,  worum  es  sich  handelt  und  wie  lang  das  Gebilde  ist. 
Eine  IFF-Grafikdatei  besteht  aus  mindestens  drei  Chunks.  In  ei- 
nem  stehen  Steuerdaten,  wie  etwa  die  Breite  und  die  Hohe  des 
Bildes  und  die  Anzahl  der  Bitebenen. 

In  einem  weiteren  befinden  sich  die  RGB-Werte  der  Farben. 
Und  im  dritten  Chunk  steht  die  eigentliche  Grafik.  Oder 
genauer:  Hier  sind  die  Bits  gespeichert,  aus  denen  sich  die  Gra- 
fik zusammensetzt.  Eine  Ansammlung  von  Bits,  die  eine  Grafik 
bilden,  heifit  "Bitmap"  (Bit-Landkarte).  Diese  Bezeichnung  paBt 
ja  ganz  gut  zu  den  Bit-Ebenen,  die  Sie  schon  kehnen:  Die  Bit- 
Ebenen  sind  in  der  Bit-Landkarte  verzeichnet.  Wir  wollen  aber 
ab  jetzt  statt  Bit-Landkarte  lieber  Bitmap  sagen.  Es  kflnnen  noch 
weitere  Chunks  dazukommen,  etwa  die  Daten  uber  eine 
Farbpalettenanimation  (das  haben  Sie  sicher  schon  gesehen: 
Durch  zyklische  Farbanderungen  vermittelt  ein  Bild  die  Illusion 
einer  Bewegung)  oder  Daten  uber  bestimmte  Betriebsarten  der 
Video-Hardware  oder  die  Koordinaten,  wo  ein  einzeln  gespei- 
cherter  Bildausschnitt  auf  dem  Bildschirm  erscheinen  soil. 

Die  Kennzeichnung  eines  Chunks  oder  einer  Form  besteht  aus 
vier  Bytes.  Die  vier  Bytes  bilden  ein  Codewort,  aus  dem  eine 
IFF-Leseroutine  erkennen  kann,  worum  es  sich  bei  dem  aktuel- 
len  Gebilde  handelt.  Danach  folgen  vier  weitere  Bytes,  in  denen 
gespeichert  ist,  aus  wievielen  Daten  das  Bild  besteht. 
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Diese  Skizze  zeigt  den  Aufbau  einer  typischen  IFF-Grafikdatei: 


FORM  46156 


ILBM 


BHHD  26 


32B,  2B8,  8,  8,  3,  8,  B,  8,  B,  18,  11,  32B,  288 


CHAP  96 


32,  48,  168,  248,  246,  248,  8,  8,  8,  248,   128  ,  ■  ■ , 


BODY  48888 


124,  142,  42,  213,  148,  8,   ... 


Bild  14:  Der  Aufbau  einer  IFF-Datei 


Die  ersten  vier  Zeichen  in  der  Datei  enthalten  das  Wort  FORM. 
Die  nachsten  vier  Bytes  enthalten  als  32-Bit-Zahl  die  Lange  der 
Form,  namlich  40156  Bytes.  Das  Leseprogramm  weiB  jetzt:  Ich 
habe  den  Anfang  einer  Form  gelesen,  die  insgesamt  40156  Bytes 
lang  ist.  Danach  folgt  eine  Kennung,  welche  Art  von  Daten  die 
Form  eigentlich  beinhaltet.  Hier  lesen  wir  in  unserem  Beispiel 
die  Bezeichnung  ILBM.  Das  steht  fur  "Interleaved  Bitmap"  (Ein- 
gebundene  Bitmap  -  die  Bitmap  ist  zusammen  mit  anderen  Da- 
ten  in  eine  Form  eingebunden).  Das  Leseprogramm  weiB  jetzt: 
Die  restlichen  Daten  dieser  Form  enthalten  Chunks,  die  alle  ir- 
gendetwas  mit  einer  Grafik  zu  tun  haben. 
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Und  schon  kommt  auch  der  erste  Chunk:  Vier  Bytes  beinhalten 
die  Kennung  BMHD  ("Bitmap  Header"  -  Bitmap-Uberschrift, 
gemeint  sind  die  Steuerdaten).  Die  darauf  folgenden  vier  Bytes 
ergeben  die  Zahl  20:  Der  BMHD-Chunk  besteht  aus  20  Bytes. 
Das  Leseprogramm  kann  nun  zu  dem  Unterprogramm  verzwei- 
gen,  das  die  Steuerdaten  liest  und  interpretiert.  Danach  lesen  wir 
die  vier  Zeichen  CMAP  aus  der  Datei.  Sie  weisen  auf  eine  "Co- 
lor Map"  (eine  Farb-Tabelle)  hin,  die...  Na?  Genau,  die  96  Bytes 
lang  ist.  Dieser  Chunk  enth&lt  Daten  uber  die  RGB-Zusammen- 
setzung  der  Farben.  Fur  R,  G  und  B  jeweils  ein  Byte,  macht  fur 
32  Farben  nach  Adam  Riese  96  Bytes.  Also  konnen  jetzt  vom 
zust&ndigen  Unterprogramm  die  Farben  eingelesen  werden. 

96  Bytes  spater  lesen  wir  aus  der  Datei  BODY,  40000  Bytes  lang. 
Der  Chunk  "Body"  ("Korper,  Rumpf,  Hauptteil")  beinhaltet  nicht 
etwa  die  Ma6e  von  Raquel  Welch  oder  Bo  Derek,  sondern  die 
Bitmap  der  Grafik.  Wie  die  Daten  hier  angeordnet  sind,  ist  vom 
IFF-Standard  genormt:  Die  Bildzeilen  der  verschiedenen  Bitebe- 
nen  stehen  hintereinander  in  der  Datei.  Zuerst  kommt  die  erste 
Zeile  der  ersten  Bitebene,  dann  die  erste  Zeile  der  zweiten  Bit- 
ebene  usw.  Sind  alle  Bitebenen  durch,  folgt  die  zweite  Zeile  der 
ersten  Ebene,  die  zweite  Zeile  der  zweiten  Ebene  und  so  weiter. 

Wenn  das  Leseprogramm  das  letzte  Byte  der  letzten  Zeile  aus  der 
letzten  Bitebene  gelesen  hat,  hat  es  damit  auch  das  40156.  Byte 
gelesen:  Die  IFF-Datei  ist  zu  Ende. 

Es  gibt  iibrigens  keine  vorgeschriebene  Reihenfolge  fiir  die 
Chunks.  Theoretisch  konnte  auch  zuerst  BMHD,  dann  BODY 
und  dann  CMAP  kommen.  Die  Steuerdaten  BMHD  mussen  aller- 
dings  auf  jeden  Fall  zuerst  in  der  Datei  stehen,  damit  das  Lese- 
programm weiB,  welche  AusmaBe  und  welche  Anzahl  an  Bit- 
ebenen fur  die  Bitmap  im  BODY-Chunk  gelten.  Die  Reihenfolge 
BMHD  -  CMAP  -  BODY  ist  am  sinnvollsten.  Zuerst  braucht  das 
Programm  die  Steuerdaten,  dann  kann  es  die  Farben  lesen  und 
einstellen,  wodurch  das  Bild  beim  Einlesen  schon  in  den  richti- 
gen  Farben  auf  dem  Bildschirm  gezeigt  wird. 
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Ein  Hinweis  noch,  dann  kommen  wir  zum  praktischen  Teil:  Ein 
Chunk  muB  grundsatzlich  aus  einer  geraden  Anzahl  von  Bytes 
bestehen.  Beinhaltet  der  CMAP-Chunk  z.B.  nur  Farbwerte  fur  7 
Farbregister  (21  Bytes),  muB  er  durch  ein  Fullbyte,  meistens 
eine  0,  erganzt  werden.  Dieses  Fullbyte  wird  in  der  Langen- 
angabe  des  Chunks  nicht  mitgezahlt.  Ungerade  Werte  fur  die 
Anzahl  mussen  wir  also  urn  1  (auf  die  nachste  gerade  Zahl)  er- 
hohen.  Das  sieht  in  der  Skizze  so  aus: 


CMAP  21 


32,  48,  168,   249,   248,  248,  8,   8,   8;   248,  123  ,  , , , 


8 


v^v      y\     S\       s\    A     A    /\  /\  a.      A    A  A 

Bild  15:  Ungerade  Chunks  werden  durch  ein  Fullbyte  erganzt 

4.3        Her  mit  den  kleinen  Amerikanern  -  die  IFF-Leseroutine 

Jetzt  geht  es  nur  noch  darum,  unsere  theoretischen  Vorkennt- 
nisse  uber  IFF  so  einzusetzen,  daB  wir  IFF-Daten  -  eine  Glanz- 
leistung  amerikanischer  Programmierkunst  -  einlesen  konnen. 

Bevor  wir  daran  gehen,  noch  eine  Anmerkung:  Seit  einiger  Zeit 
liefert  Commodore  eine  Version  der  Extras-Diskette  aus,  auf  der 
sich  in  der  Schublade  "BASICDemos"  drei  Programme  befinden, 
die  Ihnen  ebenfalls  ermoglichen,  IFF-Bilder  einzulesen  und  ab- 
zuspeichern.  Diese  Routinen  wurden  unter  Verwendung  von  "Li- 
braries" (uber  die  erfahren  Sie  mehr  im  Anhang  B)  geschrieben 
und  sind  deshalb  wesentlich  schneller  als  die  Routinen,  die  wir 
Ihnen  in  den  folgenden  Kapiteln  vorstellen  werden.  Die  Pro- 
gramme auf  der  Extras-Diskette  sind  allerdings  wesentlich  kom- 
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plizierter  zu  verstehen  und  anzuwenden.  Aus  diesem  Grund 
meinen  wir,  da6  es  sich  nach  wie  vor  lohnt,  bei  der  Program- 
mierung  unserer  IFF- Programme  mitzumachen,  die  ausschlie/3- 
lich  in  AmigaBASIC  und  ohne  den  Einsatz  von  Libraries  ge- 
schrieben  wurden.  Wir  haben  ja  schon  vorher  gesagt,  daB  die 
Beispiele  in  unserem  Buch  Ihnen  einen  praktischen  Nutzen  brin- 
gen,  aber  vor  allem  die  Anwendung  von  AmigaBASIC-Befehlen 
erkiaren  sollen. 

Da  Sie  in  den  folgenden  Beispielen  nicht  nur  viel  uber  die  Pro- 
grammierung  von  Diskettenein-  und  -ausgabe  und  andere  M5g- 
Iichkeiten  von  AmigaBASIC  erfahren,  sondern  auch  den  Aufbau 
und  die  Funktionsweise  von  IFF-Dateien  verstehen  lernen  sol- 
len, raten  wir  Ihnen,  die  Programme  trotz  unserer  Commodore- 
Konkurrenz  mit  abzutippen.  Natiirlich  kdnnen  Sie  sie  auch  von 
der  beiliegenden  Diskette  laden  (Name:  "IFF.Read",  Schulade: 
"Daten").  Nur  beschaftigen  sollten  Sie  sich  in  jedem  Fall  damit. 
Was  Sie  uber  die  neuen  Beispielprogramme  MLoadACBM\ 
"LoadlLBM-SaveACBM"  und  "SavelLBM"  wissen  miissen,  er- 
fahren Sie  im  Anhang  C.  Unsere  Erkenntnisse  und  M6glichkei- 
ten  haben  das  n&chste  Programm  hervorgebracht: 


H 


INPUT  "Dateiname";Nam$ 
OPEN  Nam$  FOR  INPUT  AS  1 
Form$=INPUT$(4,1) 
Laenge=CVL(INPUT$<4,1)) 
IF  INPUT$(4,1)  <>  "ILBM"  THEN 
PRINT  "Fehter  im  Datei format!" 
END 
END  IF 

Lesen: 

IF  EOF(1)  THEN  END 

Chunk$=INPUT$<4,1) 

Laenge=CVL(INPUT$(4#1)) 

IF  INT  <Laenge/2)<>(Laenge/2)  THEN  Laenge=Laenge+1 

IF  Chunk$=»BMHD"  THEN  BMHD 

IF  Chunk$=»CMAP»  THEN  CMAP 
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IF  Chunk$=»B00Y»  THEN  BODY 
Dummy$=INPUT$(Laenge, 1 ) 
GOTO  Lesen 

BMHD: 

xd=CVI<INPUT$<2(1)) 

yd=CVI(INPUT$(2,1>> 

Dumrny$=INPUT$<4,1) 

Biteb=ASC(INPUT$<1,1)) 

Dummy$=INPUT$<11,1) 

IF  xd=320  THEN  Typ=1 

IF  xd=640  THEN  Typ=2 

IF  yd>200  THEN  Typ=Typ*2 

SCREEN  1,xd,yd,Biteb,Typ 

WINDOW  2,Nam$,,0,1 

Ad=PEEKL(WINDOW<8)+4)+8 

FOR  x=0  TO  Biteb-1 
EbAd(x)=PEEKL(Ad+4*x) 

NEXT  X 

Dummy$=INPUT$<Laenge-20,1) 
GOTO  Lesen 

CMAP: 

FOR  x=1  TO  Laenge/3 

r=(ASC<INPUT$<1,1)>  AND  240)/16 
g=(ASC(INPUT$(1,1))  AND  240)/16 
b=(ASC(INPUT$<1,1)>  AND  240)/ 16 
PALETTE  <x-1),r/16,g/16,b/16 
NEXT  x 

IF  INT(Laenge/3)<>(Laenge/3)  THEN  Dummy$=INPUT$(1,1) 
GOTO  Lesen 

BODY: 
BytesZeiLe=xd/8 
FOR  y1=0  TO  yd-1 
FOR  b=0  TO  Biteb-1 

FOR  x1=0  TO  BytesZeile/4-1 
POKEL  EbAd(b)+4*x1+BytesZeUe*y1,CVL<INPUT$(4,1>> 
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NEXT  x1 
NEXT  b 
NEXT  y1 
GOTO  Lesen 


Dieses  Programm  ist  in  der  Lage,  IFF-Bilder  in  BASIC  einzu- 
lesen.  Probieren  Sie's  ruhig  gleich  mal  aus.  Wenn  Sie  das  Pro- 
gramm selbst  eingetippt  haben,  sollten  Sie  es  aber  unbedingt 
vorher  abspeichern,  denn  es  gibt  ein  paar  kritische  Stellen,  an 
denen  ein  einziger  Tippfehler  einen  Systemabsturz  verursachen 
krjnnte.  Dann  ware  die  ganze  Tipparbeit  umsonst  gewesen. 

Starten  Sie  das  Programm,  geben  Sie  als  Dateinamen  den  Namen 
eines  Bilds  von  einer  Ihrer  Grafik-Disketten  ein,  z.B.  "Gra- 
phicraft:Skier\  legen  Sie  die  jeweilige  Diskette  ins  Laufwerk, 
und  los  geht's.  Sollten  Sie  uberhaupt  keine  Grafikdiskette  besit- 
zen,  schreiben  Sie  einfach  HExtrasD:BasicDemos/Heart.ILBMM. 

Das  Programm  legt  einen  Screen  in  der  ben6tigten  AuflSsungs- 
stufe  an,  liest  die  Farben  ein  (Sie  sehen  das  z.B.  daran,  das  sich 
die  Farben  des  Mauscursors  Sndern.)  und  baut  dann  Zeile  fur. 
Zeile  das  Bild  auf.  Beachten  Sie,  was  mit  dem  Window-Rahmen 
passiert:  Beim  Einlesen  wird  er  von  den  Bilddaten  uberschrieben. 
Erst  wenn  Sie  die  Menutaste  der  Maus  driicken,  erscheint  der 
Rahmen  wieder.  Passen  Sie  auf,  daB  Sie  keine  Pulldowns  herun- 
terziehen,  solange  die  obere  Haifte  des  Bilds  geladen  wird.  Die 
eingelesenen  Grafikdaten  uberschreiben  sonst  den  Pulldown-In- 
halt  und  auf  dem  Grafikbildschirm  fehlt  dafur  der  Teil,  der 
durch  das  Pulldown  verdeckt  wurde. 

Das  Ergebnis  ist  schon  toll:  Sie  haben  ein  BASIC-Window,  in 
dem  eine  IFF-Grafik  dargestellt  wird.  Damit  bieten  sich  jetzt 
tausend  Mflglichkeiten:  Sie  kSnnen  Text  fiber  der  Grafik  dar- 
stellen,  Teile  der  Grafik  mit  GET  und  PUT  kopieren,  Grafik- 
objekte  vor  dem  Bild  bewegen  und  vieies  mehr.  Einige  Anre- 
gungen  und  praktische  Beispiele  werden  wir  Ihnen  vorstellen. 
Aber  lassen  Sie  ruhig  ein  wenig  Ihre  Phantasie  spielen,  was  man 
sonst  noch  alles  machen  krjnnte. 
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Allerdings  noch  ein  Hinweis,  falls  Sie  bei  Ihrem  Experiment  mit 
dem  Programm  eine  Enttfcuschung  erlebt  haben  sollten: 
Schwierigkeiten  kann  es  zum  Beispiel  geben,  wenn  Sie 
versuchten,  ein  mit  "Deluxe  Paint"  erstellten  Bild  einzulesen. 
Woran  das  liegt,  und  was  man  dagegen  tun  kann,  erfahren  Sie 
im  Zwischenspiel  5. 

Es  gibt  sicher  auch  noch  ein  paar  Fragen  zum  Programm  selbst. 
INPUT  verlangt  einen  Dateinamen,  die  angegebene  Datei  wird 
zum  Lesen  geflffnet.  Der  erste  INPUT$(4,1)  liest  die  Kennung 
FORM  ein,  in  die  Variable  'Laenge'  kommt  die  Form-Lange. 
Diese  Daten  werden  wir  nicht  mehr  brauchen. 

Der  Befehl  CVL  in  der  vierten  Zeile  muB  wirklich  CVL  heiBen, 
wir  haben  uns  nicht  vertippt.  So  wie  CVI  2  Bytes  in  eine  16- 
Bit-Zahl  umwandelt,  wandelt  CVL  ("Convert  Long")  4  Bytes  in 
eine  32-Bit-Zahl.  Der  zugehSrige  Befehl  beim  Schreiben  heiBt 
ubigens  MKL$.  Warum  es  nun  nfltig  war,  gleich  32  Bits  fur  die 
Lange  einer  Form  zu  veranschlagen,  konnen  wir  Ihnen  auch 
nicht  sagen.  Auf  jeden  Fall  ermoglicht  der  IFF-Standard  auf 
diese  Weise  Dateilangen  bis  zu  4.294.967.295  Bytes  Lange.  Bis 
wir  Zeiten  erleben  durfen,  in  denen  irgendjemand  4  GigaByte 
mit  Grafikdaten  fullt,  wird  es  aber  wohl  noch  etwas  dauern. 

Die  nachsten  vier  Bytes  der  Datei  sollten  die  Kennung  ILBM 
enthalten.  1st  das  nicht  der  Fall,  lesen  wir  keine  ILBM-Datei, 
das  Programm  bricht  ab. 

In  die  Variable  'ChunkS'  wird  die  Chunk-Kennung  gelesen,  in 
'Laenge'  die  Chunk-Lange. 

Mit  der  Zeile  IF  INT(Laenge/2)o(Laenge/2)...  konnen  wir 
uberprufen,  ob  'Laenge'  eine  gerade  Zahl  beinhaltet:  Wir  teilen 
'Laenge1  durch  2  und  schneiden  bei  einem  der  Ergebnisse  den 
Nachkommateil  ab.  Sind  die  beide  Werte  gleich,  gibt  es  keinen 
Nachkommateil,  die  Zahl  ist  also  durch  2  teilbar.  Die  Zeichen 
<>  bedeuten  "ungleich".  Bei  einer  ungeraden  Zahl  wird  die  Zahl 
urn  1  erhOht,  dann  ist  sie  gerade. 
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Je  nach  dem  Inhalt  von  'Chunk$'  verzweigen  wir  zu  dem  zu- 
stSndigen  Programmteil.  Wurde  der  Chunk  nicht  erkannt,  lesen 
wir  in  'DummyS'  seinen  gesamten  Inhalt  ein.  "Dummy"  ist  ein 
beliebter  Name  fur  einen  Platzhalter,  eine  Attrappe.  'DummyS' 
beinhaltet  sozusagen  unseren  Datenabfall,  n&mlich  die  Daten,  die 
das  Programm  nicht  interpretieren  kann. 

Die  Schleife  'Lesen:'  wiederholen  wir,  bis  keine  Daten  mehr  in 
der  Datei  sind. 

Im  Programmteil  'BMHD:'  lesen  wir  den  gleichnamigen  Chunk. 
Er  hat  standardmSOig  20  Bytes.  Die  ersten  beiden  Bytes  bein- 
halten  als  1 6-Bit- Zahl  die  Breite  der  Grafik,  die  nSchsten  bei- 
den ihre  H6he.  Wir  weisen  die  Werte  den  Variablen  *xd'  und  'yd' 
zu. 

Die  niichsten  vier  Bytes  wandern  in  unseren  'DummyS'.  Nach 
dem  IFF-Standard  stehen  hier  fiir  Bilder,  die  nicht  den  ganzen 
Bildschirm  einnehmen,  die  X-  und  die  Y-Koordinate  der  linken 
oberen  Ecke.  Wir  wollen  nur  vollstandige  Bilder  einlesen,  des- 
halb  interessieren  uns  die  beiden  Bytes  nicht. 

Das  nachste  Byte  beinhaltet  die  Anzahl  der  Bitebenen,  wir  wei- 
sen den  Wert  der  Variablen  'Biteb*  zu. 

Nun  folgen  noch  11  Bytes,  die  wir  alle  nicht  brauchen.  Was  hier 
im  einzelnen  an  Daten  steht,  werden  Sie  erfahren,  wenn  wir  eine 
Routine  zum  Speichern  im  IFF-Format  vorstellen. 

'xd'  kann  den  Wert  320  Oder  640  haben.  Und  'yd'  beinhaltet 
entweder  die  Zahl  200  Oder  bei  Interlace- Bildern  die  Zahl  400. 
Je  nach  Auflflsungsstufe  errechnen  wir  einen  Wert  fiir  Typ',  die 
Variable,  die  beim  folgenden  SCREEN-Befehl  eine  von  vier 
Aufl6sungen  angibt. 

Auf  dem  erzeugten  SCREEN  legen  wir  ein  Window  an,  das  den 
Namen  der  eingelesenen  Datei  trSgt. 
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Jetzt  folgt  der  trickreichste  Teil,  fur  den  wir  wieder  etwas  aus- 
holen  miissen:  Der  Amiga  muB,  wie  jeder  Computer,  standig 
Ubersicht  fiber  seine  Speicherverwaltung  behalten.  Wo  im  Spei- 
cher  wichtige  Programme  stehen  (z.B.  die  Workbench-Routinen 
oder  AmigaBASIC),  durfen  natiirlich  keine  Daten  oder  Bitmaps 
abgelegt  werden.  Durch  das  Multitasking  des  Amiga  gibt  es 
keine  einheitliche  Speicheraufteilung.  Man  kann  nicht  sagen, 
"Hier  geht  grundsatzlich  AmigaBASIC  los.M  -  es  kann  bei  ande- 
ren  Vorbedingungen  auch  an  einer  ganz  anderen  Stelle  im  Spei- 
cher  stehen. 

Jede  Speicherzelle  kann  genau  1  Byte  speichern.  Je  nach  Spei- 
cherausbau  hat  der  Amiga  fur  seinen  Schreib-/Lesespeicher  un- 
gefahr  262000  oder  524000  solcher  Speicherzellen  zur  Verfii- 
gung.  AuBer  dem  Schreib-/Lesespeicher  (RAM)  hat  der  Amiga 
auch  noch  256  KByte  Festwertspeicher  (ROM),  in  dem  sich  der 
Inhalt  der  ehemaligen  Kickstart-Diskette  befindet.  So  ist  es  zu- 
mindest  beim  Amiga  500  und  2000.  Der  Amiga  1000  hat  256K 
RAM,  in  die  beim  Starten  der  Inhalt  der  Kickstart-Diskette  ge- 
laden  wird.  Nach  dem  Laden  wird  das  RAM  elektronisch  verrie- 
gelt,  so  daB  es  sich  nach  auBen  wie  ROM  verhalt.  Damit  man 
eine  Speicherzelle  konkret  ansprechen  kann,  hat  jede  Zelle  eine 
Nummer.  Diese  Nummer  nennt  man  auch  Adresse.  Die  allererste 
Speicherzelle  im  Amiga  hat  die  Nummer  0,  die  nachste  die 
Nummer  1  und  so  weiter. 

Es  gibt  im  Amxgz-Betriebssystem  ein  Programm,  das  standig 
uberwacht,  welche  Speicherbereiche  von  welchem  Programm 
belegt  sind.  Dieses  Programm  weiB  zum  Beispiel:  "Die  Adressen 
von  Nummer  0  bis  Nummer  40000  werden  von  der  Workbench 
benStigt.  Die  Adressen  40001  bis  72000  werden  fur  die  Bild- 
schirmdarstellung  benutzt.  Von  72001  bis  160000  hat  sich 
AmigaBASIC  breitgemacht."  Und  so  weiter.  Die  Zahlen  stimmen 
ubrigens  nicht,  sie  sind  nur  als  Bespiel  gedacht.  Das  Speicher- 
verwaltungs-Programm  ist  Teil  von  "Exec".  Und  "Exec"  wie- 
derum  ist  seinerseits  ein  Teil  des  Betriebssystems  und  fur  Auf- 
gaben  wie  Speicherverwaltung  und  Multitasking  zustandig. 
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Normalerweise  sollten  Sie  die  Inhalte  von  Speicherstellen  nicht 
direkt  verandern,  da  dabei  meistens  eher  Schaden  als  Nutzen 
entsteht.  Trotzdem  bietet  AmigaBASIC  eine  Reihe  von  Befehlen, 
urn  genau  das  zu  ermttglichen:  Mit  PEEK  kannen  Sie  den  Inhalt 
einer  Speicherzelle  auslesen,  mit  POKE  einen  Wert  in  eine 
Speicherzelle  schreiben.  Fur  manche  Computer  sind  diese  Be- 
fehle  sehr  wichtig,  weil  sie  dort  die  einzige  M5glichkeit  dar- 
stellen,  nicht  vorhandene  BASIC-Befehle  zu  ersetzen.  Beim 
Commodore  64  z.B.  gibt  es  so  viele  nutzliche  PEEKs  und 
POKEs,  daB  zwei  Leute,  die  ein  Buch  daruber  geschrieben  ha- 
ben,  ziemlich  viel  Geld  verdienen  konnten.  Beim  Amiga  brau- 
chen  Sie  PEEK  und  POKE  viel,  viel  seltener,  weil  es  fur  fast 
alle  Funktionen  eigene  BASIC-Befehle  gibt.  Aber  zum  Abspei- 
chern  und  Laden  von  Grafiken  bietet  AmigaBASIC  keine  Be- 
fehle,  also  greifen  wir  zu  PEEKs  und  POKEs.  Alles  klar? 

Geben  Sie  im  BASIC-Window  ein: 

?  PEEK  (30000) 

Sie  erhalten  eine  Zahl  zwischen  0  und  255.  Das  ist  der  Wert  des 
Bytes,  das  in  der  Speicherzelle  mit  der  Adresse  30000  abgespei- 
chert  ist.  Bildlich  gesprochen:  Sie  erhalten  einen  Brief  mit  dem 
Absender  H30000H,  dessen  Inhalt  eine  8-Bit-Zahl  ist.  Der  Bewoh- 
ner  der  Adresse  30000  hat  Ihnen  geschrieben,  welche  Zahl  er 
sich  gerade  merkt.  (Natiirlich  konnen  wir  verstehen,  daB  Ihnen 
ein  Brief,  sagen  wir  mal  iiber  eine  hohe  Steuerruckerstattung 
lieber  ist.  Aber  bei  Computern  ist  halt  alles  etwas  trockener...) 

POKE  30000,  (Wert) 

schreibt  einen  Wert  in  die  Speicherzelle  mit  der  Adresse  30000. 
Setzen  Sie  am  besten  den  Wert  ein,  den  Sie  oben  mit  PEEK  aus- 
gelesen  haben.  Sie  schicken  einen  Brief  an  die  Adresse  "30000", 
in  dem  Sie  dem  Bewohner  der  Speicherzelle  die  8-Bit-Zahl  mit- 
teilen,  die  er  sich  ab  jetzt  merken  soil. 

Wollen  Sie  nicht  8,  sondern  16  Bits  lesen  bzw.  schreiben,  ver- 
wenden  Sie  dazu  die  Befehle  PEEKW  und  POKEW.  (W  fur 
"Wort",  den  Ausdruck,  den  wir  eigentlich  nicht  mehr  fur  eine 
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16-Bit-Zahl  verwenden  wollten.  Aber  die  Wege  des  Schicksals 
sind  unergrundlich.)  Diese  Befehle  arbeiten  mit  zwei  Bytes,  die 
ab  der  angegebenen  Adresse  hintereinander  im  Speicher  stehen. 
Die  Bewohner  der  beiden  Speicherzellen  teilen  sich  die  16  Bits: 
Jeder  merkt  sich  8  Bits.  Ihr  Ansprechpartner  ist  in  jedem  Fall 
der  Bewohner  der  Speicherzelle  mit  der  geraden  Nummer.  Wenn 
Sie 

POKEW  30001,  (Wert) 

eingeben,  erhalten  Sie  die  Fehlermeldung  "Illegal  function  call". 

Das  ganze  Spiel  gibt  es  noch  fur  32-Bit-Zahlen.  Die  Befehle 
heiBen  hier  PEEKL  und  POKEL  (L  wie  "Langwort",  Sie  wissen 
ja,  noch  so  ein  Begriff...).  Auch  bei  diesem  Befehl  muB  die 
angegebene  Adresse  eine  gerade  Zahl  sein.  Bearbeitet  werden  die 
vier  Speicherzellen,  die  ab  der  Adresse  hintereinander  im 
Amiga-Speicher  liegen.  Diesmal  sind  es  vier  kleine  Speicher- 
bewohner,  jeder  hat  wieder  nichts  anderes  als  8  Bits  im  Kopf  - 
von  insgesamt  32. 

Dieses  war  der  erste  Streich.  Doch  der  zweite  folgt  sogleich.  Da 
gibt  es  die  Funktion  WINDOW(8). 

WINDOW(O)  kennen  Sie  schon.  Es  teilt  Ihnen  die  Nummer  des 
zur  Zeit  aktivierten  Ausgabe-Windows  mit.  Doch  es  gibt  noch 
viele  andere  WINDOW-Funktionen,  mit  den  verschiedensten 
Aufgaben.  WINDOW(8)  gibt  Ihnen  die  Adresse  einer  Liste 
("Struktur"  sagen  die  Fachleute  und  die  C-Programmierer)  an,  in 
der  sich  Intuition  die  Daten  des  aktuellen  Windows  merkt.  Das 
heiBt,  ganz  so  einfach  ist's  leider  nicht.  Der  Weg  zum  Erfolg 
fiihrt  uber  einige  Umwege:  Die  zweiten  vier  Bytes  der  Liste,  auf 
die  WINDOW(8)  zeigt,  beinhalten  die  Adresse,  an  der  eine  an- 
dere Liste  beginnt.  In  dieser  anderen  Liste  stehen  ab  dem  8. 
Byte  mehrere  32-Bit-Werte:  Das  sind  die  Startadressen  der  ein- 
zelnen  Bitebenen.  Wenn  Sie  diese  Schnitzeljagd  im  Amiga-Spei- 
cher nicht  ganz,  nur  teilweise  oder  gar  nicht  verstanden  haben, 
ist's  auch  nicht  schlimm.  Hauptsache,  Sie  verstehen,  daB  wir  in 
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unserem  Programm  in  dem  Feld  'EbAd(x)*  die  Adressen  abgelegt 
haben,  an  denen  die  einzelnen  Bit-Ebenen  unseres  Grafik-Win- 
dows  im  Speicher  liegen.  Die  brauchen  wir  nSmlich  spSter. 

Zu  guter  Letzt  liest  unser  Mullmann  'DummyS'  eventuell  uber- 
zShlige  Bytes. 

Das  Lesen  des  CMAP-Chunks  ist  mit  weniger  Schwierigkeiten 
verbunden.  Fur  jede  Farbe  werden  drei  Bytes  gelesen:  Eines  fur 
R,  eines  fur  G  und  eines  fur  B.  DaB  der  IFF-Standard  auf  die 
Zukunft  ausgelegt  ist,  haben  wir  schon  gemerkt.  Dasselbe  gilt 
auch  fur  Farbabstufungen.  Der  Amiga  kann  fur  R,  G  und  B  je- 
weils  16  Stufen  darstellen.  IFF  bietet  die  MOglichkeit,  256  Ab- 
stufungen  pro  Grundfarbe  anzugeben.  Urn  Bilder,  die  heute 
entstehen,  auch  auf  zukiinftigen,  vielleicht  leistungsfahigeren 
Computern  verwenden  zu  kdnnen,  haben  sich  die  IFF-Entwick- 
ler  einen  schlauen  Trick  ausgedacht:  Zum  Abspeichern  der 
Farbabstufungen  von  0  bis  15  werden  die  obersten  4  Bits  eines 
Bytes  verwendet.  Das  bedeutet,  zwischen  jeder  Farbabstufung 
des  Amiga  bleiben  15  Zahlen  frei,  die  spater  fur  noch  feinere 
Zwischenstufen  genutzt  werden  kflnnen.  Die  prozentualen  An- 
teile  von  Rot,  Grun  und  Blau  bleiben  auch  in  Zukunft  in  der 
richtigen  Gr6Benordnung. 

Beim  Einlesen  der  Bytes  isolieren  wir  die  oberen  vier  Bits  durch 
AND  240  und  teilen  das  Ergebnis  durch  16.  So  erhalten  wir  die 
richtigen  Werte  fur  den  nachfolgenden  PALETTE-Befehl.  Bleibt 
am  SchluB  ein  iiberzahliges  Fullbyte  iibrig,  nimmt  sich 
'Dummy?'  seiner  an. 

Der  letzte  Programmteil  liest  den  BODY-Chunk,  also  die 
Bitmap.  Die  Variable  'BytesZeile'  errechnet  aus  *xd*  die  Anzahl 
an  Bytes  pro  Bildzeile.  Die  verschachtelten  Schleifen  lesen  Bild- 
zeile  fur  Bildzeile.  Im  letzten  Kapitel  haben  Sie  gelernt,  in  wel- 
cher  Reihenfolge  die  Zeilen  abgespeichert  werden:  pro  Bitebene 
eine  Bildzeile.  Genauso  lesen  wir  sie  wieder  ein.  Jetzt  tritt  unser 
mflhsam  erworbenes  Datenfeld  *EbAd'  in  Aktion:  Wir  kennen 
die  Startadressen  der  einzelnen  Bitebenen  und  bringen  Byte  fur 
Byte  an  die  richtige  Position  im  Speicher.  Wir  verwenden  dazu 
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den  Befehl  POKEL,  weil  wir  mit  ihm  die  schnellsten  Ergebnisse 
erzielen:  Pro  Schleifendurchlauf  werden  32  Bits  in  den  Speicher 
geschrieben. 

Die  Variable  'yl'  z5hlt  die  Bildzeilen  hoch,  'b'  die  Bitebenen 
und  'xl'  die  Nummer  der  einzelnen  32-Bit-Zahlen  innerhalb  der 
Zeile.  Sind  alle  Daten  der  Bitmap  in  den  Speicher  ubertragen, 
erfolgt  der  Rucksprung  zur  'Leseni'-Routine. 

Sollten  noch  weitere  Chunks  in  der  Datei  stehen,  werden  sie  alle 
uberlesen,  da  unser  Programm  sie  nicht  braucht  oder  die  ent- 
haltenen  Daten  sowieso  nicht  verstehen  wurde. 

Es  bleibt  noch  ein  Problem  zu  besprechen,  von  dem  Sie  bei  den 
Experimenten  im  letzten  Kapitel  vielleicht  auch  schon  betroffen 
waren  -  besonders  dann,  wenn  Sie  das  Programm  "DeluxePaint" 
besitzen.  Um  dieses  Problem  und  seine  Losung  geht  es  im  nach- 
sten  Zwischenspiel. 

Zwischenspiel  5:  Das  deutsch-amerikanische  Freundschafts- 
Projekt  -  Entzerren  von  komprimierten  IFF-Dateien 

Wenn  Sie  unser  IFF-Leseprogramm  eingetippt  oder  auch  von  der 
beigelegten  Diskette  geladen  haben,  haben  Sie  es  sicher  sofort 
ausprobiert.  Sollten  Sie  dabei  jedoch  versucht  haben,  eine  IFF- 
Datei  einzulesen,  die  z.B.  mit  dem  Programm  "Deluxe  Paint  11" 
oder  einem  anderen  professionellen  Grafikprogramm  erstellt 
wurde,  muBten  Sie  wahrscheinlich  eine  Entt&uschung  erleben. 

Vielleicht  erschienen  da  sehr  wirre  farbige  Muster  auf  dem 
Bildschirm,  die  Ahnlichkeit  mit  so  manchem  haben  kGnnten, 
aber  sicher  nicht  mit  dem  Bild,  das  Sie  laden  wollten. 

Woran  liegt  das?  Nun,  "Deluxe  Paint",  "Deluxe  Paint  II"  und  ei- 
nige  andere  Grafikprogramme  haben  eine  fur  unsere  Zwecke 
ungunstige  Eigenschaft:  Sie  speichern  die  Bitmap  im  BODY- 
Chunk  in  einem  komprimierten  Speicherformat  ab.  Der  Grund 
dafur  ist  einfach,  daB  Grafiken  meistens  aus  mehr  oder  weniger 
groflen   gleichfarbigen   Flachen   bestehen.   Oft  sind   groBe  Teile 
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des  Bildschirms  einfach  mit  der  Hintergrundfarbe  gefiillt,  dort 
befinden  sich  keine  weiteren  Bilddetails.  Einige  Programmierer 
haben  sich  iiberlegt,  daB  es  doch  unsinnig  ist,  2000mal  denselben 
Wert  hintereinander  auf  Diskette  zu  schreiben.  Urn  Disketten- 
Speicherplatz  zu  sparen,  haben  sie  eine  Verschlusselung  ent- 
wickelt,  durch  die  Folgen  gleichwertiger  Bytes  gekennzeichnet 
werden.  Ein  Bild,  das  im  Speicher  40  KByte  braucht,  nimmt 
dann  auf  Diskette  vielleicht  nur  noch  25  KByte  in  Anspruch. 

Fur  das  Einlesen  von  Bildern  in  BASIC  stellt  die  komprimierte 
Speicherung  aber  einen  Nachteil  dar.  Eine  Entzerr-Routine  ist 
namlich  extrem  aufwendig  und  beim  Einlesen  zeitraubend.  Das 
bedeutet,  daB  Sie  die  Bilder,  die  von  "Deluxe  Paint"  abge- 
speichert  wurden,  nicht  direkt  mit  unserem  "IFF.Read"  einlesen 
kdnnen.  Versuchen  Sie's  ruhig  mal,  falls  Sie  die  Moglichkeit  ha- 
ben. Von  dem  urspriinglichen  Bild  ist  jedenfalls  nicht  mehr  viel 
zu  erkennen.  AuBerdem  bricht  das  Programm  schlieBlich  mit  ei- 
nem  "Input  past  end"-Error  ab,  weil  es  in  der  Datei  mehr  Daten 
erwartet  als  in  Wirklichkeit  vorhanden  sind. 

Bei  Bildern  der  AuflSsungsstufe  320  *  200  ist  die  Sache  nicht 
ganz  so  tragisch,  wenn  Sie  z.B.  das  Grafikprogramm  Graphicraft 
haben.  Graphicraft  entzerrt  die  Bilder  beim  Einlesen  und  spei- 
chert  sie  in  jedem  Fall  unkomprimiert  ab.  Sie  brauchen  ein 
komprimiertes  Bild  also  nur  in  Graphicraft  einzulesen  und  wie- 
der  auf  Diskette  zuruckzuspeichern,  das  war  alles.  Das  Bild  kann 
dann  von  BASIC  aus  problemlos  eingelesen  werden.  Aber  Gra- 
phicraft kann  nicht  in  hoheren  Auflosungsstufen  arbeiten.  Bilder 
im  640  *  200-Modus  oder  sogar  im  640  *  400-Modus  werden 
von  alien  uns  bekannten  Grafikprogrammen  komprimiert  ge- 
speichert.  Diese  Bilder  ktfnnten  also  von  Ihnen  trotz  Graphicraft 
in  BASIC  nicht  verwendet  werden. 

Und  mit  dem  Programm  "Graphicraft"  hat  es  auch  so  seine  Be- 
wandtnis.  Es  wurde  in  der  Anfangszeit  des  Amiga  1000  jedem 
Computer  kostenlos  beigelegt.  So  konnte  man  dann  davon  ausge- 
hen,  daB  jeder  Amiga-Besitzer  das  Programm  besitzt.  Heute  ist 
das  aber  leider  nicht  mehr  so.  SpStestens  seit  der  Einfuhrung  der 
Amigas   500   und  2000   ist  Graphicraft  so  gut  wie   vdllig   vom 
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Markt  verschwunden.  Das  ist  auch  nicht  sehr  verwunderlich, 
denn  leistungsmaBig  steht  "Graphicraft"  deutlich  hinter  Pro- 
grammen  wie  "Deluxe  Paint  IP  oder  "Aegis  Images"  zuriick. 

Was  also  tun,  wenn  Sie  nicht  zufallig  "Graphicraft"  besitzen, 
Oder  wenn  Sie  Bilder  im  Format  640*200  oder  640*400  in  BASIC 
einlesen  wollen?  In  diesem  Zwischenspiel  werden  wir  Ihnen  da- 
fur  eine  Losung  vorstellen,  die  wirklich  jedem  zur  Verfugung 
steht. 

Sie  alle  besitzen  namlich  ein  anderes  Programm,  das  in  der  Lage 
ist,  komprimierte  IFF-Dateien  zu  entschliisseln.  Die  Rede  ist  von 
dem  Programm  "LoadlLBM-SaveACBM"  in  der  "BasicDemos"- 
Schublade  auf  Ihrer  "ExtrasD"-Diskette. 

Sie  erinnern  sich  vielleicht,  wir  haben  namlich  schon  einmal 
dariiber  gesprochen:  Mit  diesem  und  zwei  anderen  Programmen, 
die  allesamt  von  der  amerikanischen  Commodore-Mitarbeiterin 
Carolyn  Scheppner  geschrieben  wurden,  macht  Commodore  den 
Nachteil  von  AmigaBASIC  wett,  keine  IFF-Dateien  laden  zu 
konnen.  Lesen  Sie  dazu  bitte  auch  die  Anmerkungen  zu  diesen 
Programmen  im  Anhang  C. 

Die  Programme  sind  wesentlich  schneller  als  unser  IFF-Ladepro- 
gramm,  weil  sie  mit  Library-Routinen  geschrieben  sind,  also 
Aufrufen  von  Teilen  des  Betriebssystems  aus  BASIC.  Respekt 
vor  der  Leistung  von  Carolyn  Scheppner.  Das  Prinzip,  das  in 
diesen  Programmen  verwendet  wird,  hat  in  unseren  Augen  je- 
doch  einen  gravierenden  Nachteil.  Vielleicht  hat  Sie  der  Pro- 
grammname  "LoadlLBM-SaveACBM"  schon  ein  wenig  stutzig 
gemacht.  Was  eine  ILBM  ist,  wissen  Sie  ja.  Aber  "ACBM"? 

Im  ILBM-Format  liegen  samtliche  IFF-Grafik-Dateien  vor,  die 
von  irgendwelchen  Amiga-Zeichenprogrammen  erzeugt  wurden. 
Dabei  werden  die  Bilder  zeilenweise  gespeichert.  Erst  die  Zeile  1 
aller  betroffenen  Bitebenen,  dann  die  Zeile  2  und  so  weiter.  Der 
Vorteil  dabei  ist,  daB  Sie  bereits  beim  Laden  das  Bild  in  den 
richtigen  Farben  sehen  konnen.  Und  da(3  beim  Einlesen  in  ver- 
schiedenen  Auflosungsstufen  dieses  Format  weniger  Probleme 
macht.  Wenn  der  Screen  zu  Ende  ist,  bevor  das  Bild  komplett  zu 
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sehen  ist,  dann  fehlt  eben  ein  Teil  des  Bildes.  Aber  der  Rest 
wird  immerhin  richtig  dargestellt.  Und  wenn  der  Screen  zu  groB 
ist,  na  dann  bleibt  eben  ein  Teil  davon  frei. 

Beim  Laden  von  ILBM-Dateien  mussen  jedoch  eine  ganze 
Menge  Berechnungen  durchgefuhrt  werden,  was  die  Ladezeit 
deutlkh  verlangert.  Das  merken  Sie  ja  auch  bei  unserem  Pro- 
gramm  "IFF.Read". 

Commodore  hat  aus  diesem  Grund  einen  neuen  IFF-Dateityp 
eingefuhrt.  Die  sogenannten  ACBMs.  ACBM  bedeutet  "Amiga 
Continuous  Bitmaps",  auf  deutsch:  "Fortlaufende  Amiga- 
Bitmaps".  In  dieser  Speicherungsform  werden  die  einzelnen  Bit- 
Ebenen  hintereinander  abgespeichert,  so  wie  sie  auch  im  Amiga- 
Speicher  stehen.  Das  Einlesen  geht  dann  sehr  schnell,  da  fast 
keine  Rechenarbeit  mehr  anfallt.  Der  Geschwindigkeitsgewinn 
wird  jedoch  zu  einem  hohen  Preis  erkauft:  ACBMs  kdnnen  mit 
vertretbarem  Aufwand  nur  und  ausschlieBlich  auf  dem  Amiga  in 
seiner  gegenwartigen  Form  geladen  werden,  und  zwar  nur  in  der 
Aufiasungsstufe,  in  der  sie  abgespeichert  wurden.  Versucht  man, 
diese  Einschrankungen  zu  umgehen,  wird  der  Rechenaufwand 
wesenthch  grOBer,  als  wenn  von  vorneherein  ILBMs  eingesetzt 
worden  waren. 

Deshalb  haben  wir  uns  entschlossen,  in  unseren  Beispielpro- 
grammen  weiterhin  ausschlieBlich  mit  ILBMs  zu  arbeiten 
Nichtsdestotrotz  ist  "LoadlLBM-SaveACBM"  ein  tolles  Pro- 
gramm,  das  unter  anderem  auch  die  Entzerrung  der  kompri- 
mierten  Daten  durchfuhren  kann. 

Was  wir  nun  im  Idealfall  brauchten,  ware  ein  Programm,  das 
komprimierte  ILBMs  einliest  und  unkomprimierte  ILBMs'  ab- 
speichert.  So  ein  Programm  existiert  (bisher)  weder  im  Reper- 
toire unserer  Beispielprogramme  aus  diesem  Buch  noch  auf  der 
"ExtrasD"  von  Commodore.  Aber  die  notwendigen  Bestandteile 
existieren  bereits:  die  schnelle,  entzerrungsfahige  ILBM-Lade- 
routine  aus  dem  Programm  "LoadlLBM-SaveACBM"  und  ein 
IFF-Speicherprogramm  auf  unserer  Diskette  im  Buch  ("PicSave") 
Unser  Programm  zum  ILBM-Entzerren  ist  also  sozusagen  ein 
deutsch-amerikanisches  Freundschaftsprojekt.  Der  amerikanische 
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Teil  (LoadlLBM-SaveACBM)  wird  von  Mrs.  Scheppner  beige- 
steuert,  und  der  deutsche  Teil  (die  Ticsave"-Routine)  stammt 
von  uns. 

Die  "Picsave"-Routine  zum  Speichern  von  IFF-Daten  haben  wir 
zwar  bisher  noch  nicht  besprochen,  wir  wollen  sie  aber  an  dieser 
Stelle  schon  einsetzen,  damit  Sie  so  schnell  wie  moglich  Ihre 
IFF-Grafiken  entzerren  kdnnen  und  dann  die  M&glichkeit  ha- 
ben, wirklich  jedes  Bild  in  BASIC  einzulesen.  Das  Programm 
"Pic'save"  lernen  Sie  ausfuhrlich  in  Kapitel  4.8  kennen.  Die  Ar- 
beiten,  die  ndtig  sind,  um  die  Programme  "LoadlLBM-Save- 
ACBM" und  "Picsave"  zu  unserem  neuen  Programm 
"ILBMEntzerren"  zusammenzufugen,  wollen  wir  Ihnen  ersparen. 
Sie  finden  das  fertige  Programm  in  der  "Daten"-Schublade  auf 
der  beiliegenden  Diskette. 

Dieses  Programm  ist  dazu  da,  Ihnen  zu  helfen  und  das  Problem 
mit  den  komprimierten  IFF-Dateien  zu  15sen.  Sie  brauchen  die- 
ses Programm  nicht  unbedingt  zu  verstehen.  Da  dort  unter  an- 
derem  auch  Libraries  (Routinen  aus  dem  Betriebssystem)  zum 
Einsatz  kommen,  muB  man  schon  ziemlich  fortgeschritten  in 
AmigaBASIC  sein,  um  restlos  durchzublicken. 

Fur  alle  Interessierten  haben  wir  einen  Uberblick  daruber  zu- 
sammengestellt,  was  wir  alles  gemacht  haben,  um  "ILBMEnt- 
zerren" zu  erzeugen.  Wer  sich  also  naher  mit  dem  Programm 
beschaftigen  mSchte,  sieht  hier,  wie  das  Programm  entstanden 
ist.  Wenn  Sie  dieses  Programm  aber  nur  anwenden  und  sich  mit 
den  Details  gar  nicht  oder  erst  spater  (z.B.  wenn  Sie  die  "Pic- 
save"-Routine  in  Kapitel  4.8  kennengelernt  haben)  beschaftigen 
wollen,  ist  das  auch  in  Ordnung. 

Die  folgenden  Schritte  zeigen  Ihnen  jedenfalls,  wie  wir  bei  der 
Erstellung  des  neuen  Programms  "ILBMEntzerren"  vorgegangen 
sind. 

-  Wir  haben  den  kompletten  Programmteil  "SaveACBM:" 
(bis  einschlieBlich  "Scleanup:")  in  "LoadlLBM-Save- 
ACBM" gelfischt  und  dann  ans  Programmende  mit 
MERGE  unsere  "Picsave"-Routine  angehangt. 
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-  Die  Kommentare  und  Texte  im  Programm  haben  wir, 
soweit  nfltig,  geandert. 

■  Bevor  in  "BmapSuchen:"  mit  LIBRARY-Befehlen  die 
drei  Libraries  "dos.library",  "exec.Iibrary"  und  "gra- 
phics.library"  aufgerufen  werden,  wechselt  das  Pro- 
gramm das  aktuelle  Verzeichnis  mit  CHDIR  nach  "Ex- 
trasDrBasicDemos".  Dort  stehen  die  .bmap-Dateien,  die 
der  LIBRARY-Befehl  bendtigt  Nach  dem  Einlesen  der 
Libraries  kehren  wir  ins  HBASICDisk:DatenM- Verzeichnis 
zuriick. 

Was  es  mit  .bmap-Dateien  und  Libraries  auf  sich  hat, 
konnen  Sie  bei  Interesse  im  Anhang  B  unter  LIBRARY 
nachlesen.  Da  es  dabei  urn  so  komplizierte  Dinge  wie 
die  Einbindung  von  Betriebssystem-Routinen  in  BASIC 
geht,  behandeln  wir  dieses  Thema  in  diesem  Buch 
nicht. 

Wenn  Sie  bei  der  Anwendung  unseres  Programms  nicht 
jedesmal  die  MExtrasD"-Datei  einlegen  wollen,  kdnnen 
Sie  auch  die  drei  Dateien  "dos.bmap",  "exec.bmap"  und 
"graphics.bmap"  in  die  "DatenM-Schublade  unserer  "BA- 
SICDisk"  kopieren.  Entfernen  Sie  dann  die  beiden 
CHDIR-Befehle  aus  dem  Programmteil  "BmapSuchen:". 

Der  Programmteil  "GetNames:"  fragt  nicht  mehr  nach 
einem  Namen  fur  die  ACBM-Datei  ('ACBMnameS'), 
sondern  nach  'EntzILBMNameS',  dem  Namen  der  ent- 
zerrten  ILBM-Datei. 

Im  Programmteil  "EntzILBMSpeichern:"  rufen  wir  die 
MPicsaveM-Routine  auf: 

picsave  EntzILBMName$f2,1 

Der  Name  der  abzuspeichernden  Datei  ist  'EntzILBM- 
Name$\  Abgespeichert  wird  der  Inhalt  von  Window  2, 
das  "LoadlLBM-SaveACBNT  zur  Darstellung  der  Grafik 
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erzeugt  hat.  Der  Parameter  1  besagt,  daO  die  Farbtabelle 
des  aktuellen  Bilds  abgespeichert  werden  soil.  (Naheres 
dazu  finden  Sie  im  Kapitel  4.8.) 

-  Beim  Einlesen  des  CMAP-Chunks  in  "LoadlLBM:" 
schreiben  wir  die  gelesenen  Farbwerte  zusatzlich  ins 
Feld  Tarben%\  Dort  erwartet  die  "Picsave"-Routine 
namlich  die  Farbtabelle. 

Farben%(kk,0)=<<red%  AND  240)/16) 
usw. 

Das  Feld  Tarben%'  haben  wir  im  Programmteil  "Main:" 
am  Programmanfang  mit  DIM  Farben%(31,2)  dimensio- 
niert. 

-  Im  SUB-Programm  "Picsave"  ubernehmen  wir  mit 
SHARED  die  Variablen  'ccrtDirO/o',  'ccrtStart%\ 
'ccrtEnd%\  'ccrtSecs&'  und  'ccrtMics&\ 

In  diesen  Variablen  stehen  die  Daten  uber  eine  eventu- 
elle  Farbzyklen-Animation,  die  wir  in  unserer  entzerr- 
ten  Datei  in  einem  zusatzlichen  Chunk  (CCRT)  ab- 
speichern. 

In  der  Zusammenfassung  wurden  einige  Dinge  erwahnt  (z.B. 
SUB-Programme  oder  Variablen,  die  auf  %  oder  &  enden),  die 
Sie  bisher  noch  nicht  kennen.  Sie  werden  alle  diese  Dinge  aber 
im  Verlauf  der  nachsten  Kapitel  kennenlernen.  Vielleicht  kehren 
Sie  dann  nochmal  zu  diesem  Zwischenspiel  zuruck  und  lesen  es 
ein  zweites  Mai  durch.  Danach  durften  die  meisten  Dinge  klar 
sein. 

Aber  wir  haben  es  ja  schon  gesagt:  In  erster  Linie  ist  das 
"ILBMEntzerren"-Programm  dazu  da,  Ihnen  zu  helfen.  Sie  miis- 
sen  es  dazu  nicht  unbedingt  verstehen. 
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4.4        Die  groBe  Tauschb5rse  -  Laden  und  Speichem  von 
Bildern  im  Malprogramro 

Jetzt  ist  eigentlich  alles  vorbereitet  zur  groCen  Tauschaktion: 
"Deluxe  Paint"  tauscht  Bilder  mit  unserem  Malprogramm,  unser 
Malprogramm  mit  Graphicraft... 

Nach  den  Vorarbeiten,  die  wir  in  den  letzten  beiden  Kapiteln 
und  im  Zwischenspiel  5  geleistet  haben,  ist  es  auch  nicht  mehr 
schwer,  die  Programmteile  fur  Laden  und  Speichem  von  IFF- 
Dateien  in  unser  Malprogramm  aufzunehmen.  Speichem  Sie  also 
bitte  das  Programm  aus  dem  letzten  Kapitel,  falls  Sie's  noch 
nicht  getan  haben,  und  laden  Sie  das  Malprogramm. 

In  der  Version  des  Malprogramms,  die  Sie  auf  unserer  Diskette 
im  Buch  finden,  sind  die  folgenden  Teile  schon  eingebaut.  Wenn 
Sie  nicht  selbst  tippen,  konnen  Sie  sich  die  Anderungen  also 
sparen.  Es  ist  aber  sehr  wichtig,  dafl  Sie  trotzdem  die  Erklarun- 
gen  lesen. 

Fur  alle  andferen  fiihren  wir  Schritt  fur  Schritt  die  notwendigen 
Erganzungen  durch.  Zuerst  nehmen  Sie  bitte  die  folgenden  bei- 
den Zeilen  im  'Projekt;'-Teil  auf: 

IF  Menpunkt=4  THEN  GOSUB  Farbaus  :  GOSUB  Musteraus  :  GOSUB  Laden 
IF  Menpunkt=5  THEN  GOSUB  Farbaus  :  GOSUB  Musteraus  :  GOSUB 
Speichem 

Gehen  Sie  dann  mit  dem  Cursor  durchs  Listing,  bis  Sie  hinter 
dem  Programmteil  'Musteraus:'  angelangt  sind.  Dahinter  geben 
Sie  bitte  ein: 

Laden: 
MENU  2,0,0  :  MENU  1,0,0 
MENU  OFF  :  MOUSE  OFF 
GOSUB  Eingabename 
WINDOW  CLOSE  5 
WINDOW  2 

IF  Nam$=»»  THEN  EndeLaden 
OPEN  Nan*  FOR  INPUT  AS  1 
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Form$=INPUT$(4,1> 

Laenge=CVL(INPUT$<4,1>) 

IF  INPUT$(4,1)<>,,ILBM"  THEN  BEEP  :  GOTO  EndeLaden 

Einlesen: 

IF  EOF(1)  THEN  EndeLaden 
Chunk$=INPUT$(4,1> 
Laenge=CVL(INPUT$<4,1)> 

IF  INT(Laenge/2)<><Laenge/2)  THEN  Laenge=Laenge-1 
IF  Chunk$="BMHD"  THEN  BMHeader 
IF  Chunk$="CMAP"  THEN  ColorMap 
IF  Chunk$="BO0Y1'  THEN  BodyMap 
Dunmy$=INPUT$<Laenge,1) 
GOTO  Einlesen 

BMHeader: 

xd=CVI<INPUT$(2,1)) 

IF  xd>320  THEN  BEEP  :  GOTO  EndeLaden 

yd=CVI(INPUT$(2,1)) 

IF  yd>200  THEN  BEEP  :  GOTO  EndeLaden 

Dunmy$=INPUT$(4,1> 

Bitebn=ASC(INPUT$(1,D) 

0ummy$=INPUT$(11,1) 

Adr=PEEKL(WINDOW(8>+4)+8 

FOR  x=0  TO  Bitebn-1 

Ebnadr(x)=PEEKL(Adr+4*x) 
NEXT  x 
GOTO  Einlesen 

ColorMap: 

FOR  x=0  TO  (Laenge/3)-1 

r=(ASC(INPUT$(1fD)  AND  240)/16 

g=(ASC(INPUT$(1,D)  AND  240)/16 

b=(ASC(INPUT$(1,D)  AND  240)/16 

PALETTE  x,r/16,g/16,b/16 

Farben%(x,0)=r  :  Farben%<xi1)=g  :  Farben%(x,2)=b 

NEXT  X 

IF  INT(Laenge/3)<>(Laenge/3)  THEN  Dumny$=INPUT$(1,1) 

GOTO  Einlesen 
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BodyMap: 

FOR  y1=0  TO  199 
FOR  b=0  TO  Bitebn-1 
IF  b<Farben  THEN 
FOR  x1=0  TO  9 

POKEL  Ebnadr(b)+4*x1+40*y1,CVL(INPUT$(4,1)) 
NEXT  x1 

ELSE 

Dunmy$=INPUT$(40,1) 
END  IF 
NEXT  b 
NEXT  y1 
GOTO  Einlesen 

Ende Laden: 

CLOSE  1 

MENU  ON  :  MOUSE  ON 

MENU  1,0,1  :  MENU  2,0,1 
RETURN 

Speichern: 
MENU  2,0,0  :  MENU  1,0,0 
MENU  OFF  :  MOUSE  OFF 
GOSUB  Eingabename 
WINDOW  CLOSE  5 
WINDOW  2 

IF  Nam$=»"  THEN  EndeSpeichern 
OPEN  Nan*  FOR  OUTPUT  AS  1  LEN=FRE(0)-500 

PRINT  #1,»FORM»; 

PRINT  #1,MKL$<156+8000*Farben); 

PRINT  #1,»ILBM»; 

PRINT  #1,"BMHD»;MKL$(20); 

PRINT  #1,MKI$(320);MKI$(200); 

PRINT  #1,MKL$<0); 

PRINT  #1,CHR$(Farben>; 

PRINT  #1,CHR$<0);MKt$(0>;MICI$(0); 

PRINT  #1,CHR$(10);CHR$(11); 

PRINT  #1,MKI$(320);MKI$(200); 


4Qg  . AmigaBASIC 


PRINT  #1,«CMAP";MKL$<96); 

FOR  x=0  TO  31 
PRINT  #1,CHR$(Farben%(x,0)*16) 
PRINT  #1,CHR$(Farben%(x,1)*16) 
PRINT  #1,CHR$(Farben%<x,2)*16) 

NEXT  x 


PRINT  #1,»BODY";MKL$(8000*Farben); 
Adr=PEEKL(UINDOU<8>+4)+8 
FOR  x=0  TO  Farben-1 
Ebnadr(x)=PEEKL(Adr+4*x) 

NEXT  x 

FOR  y1=0  TO  199 
FOR  b=0  TO  Farben-1 
FOR  x1=0  TO  9 

PRINT  #1,MKL$<PEEKL<Ebnadr(b)+4*x1+40*y1)); 

NEXT  x1 
NEXT  b 

PAdr=Ebnadr(0)+40*y1 
POKE  PAdr,PEEK(PAdr)  AND  63 
POKE  PAdr+39,PEEK(PAdr+39>  AND  252 
NEXT  yl 

PRINT  #1,''CAMG";MKL$<4); 
PRINT  #1,MKL$<16384>; 
CLOSE  1 

EndeSpeichern: 

MENU  ON  :  MOUSE  ON 

MENU  1,0,1  :  MENU  2,0,1 
RETURN 


Den  Teil  'Laden:'  kennen  Sie  schon  grofltenteils.  Es  ergaben  sich 
nur  ein  paar  kleine  Anderungen,  urn  die  Leseroutine  an  das 
Malprogramm  anzupassen.  Im  Teil  'BMHeader:\  der  den 
BMHD-Chunk  liest,  werden  die  AusmaBe  der  Grafik  uberprutt: 
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1st  das  geladene  Bild  breiter  als  320  oder  hflher  als  200  Pixel, 
bricht  die  Laderoutine  ab,  da  das  Bild  nicht  auf  den  Bildschirm 
passen  wurde. 

Von  'ColorMap:'  werden  die  eingelesenen  RGB-Werte  ins  Feld 
Tarben%'  gebracht,  damit  das  Malprogramm  die  Farben  in  nor- 
maler  Weise  benutzen  kann. 

Die  Schleifen  im  Programmteil  'BodyMap:'  sind  fest  auf  die 
Werte  eines  320  *  200-Bilds  abgestimmt,  Bilder  anderer  Formate 
liest  das  Programm  ja  sowieso  nicht. 

AuOerdem  miissen  wir  auf  die  Anzahl  der  Bitebenen  aufpassen. 
Wenn  das  eingelesene  Bild  mehr  Bitplanes  hat  als  der  Screen, 
den  das  Malprogramm  benutzt,  werden  die  Daten  aus  den  uber- 
zahligen  Bitebenen  in  den  'DummyS'  gepackt  und  weggeworfen. 
Das  Programfn  ladt  nur  soviele  Bitebenen,  wie  in  der  Variablen 
'Farben'  festgelegt  ist.  Das  hat  die  Folge,  daO  ehemals  unter- 
schiedliche  Farben  zwar  auf  dem  Bildschirm  gleich  sein  kflnnen, 
aber  das  BHd  in  jedem  Fall  geladen  wird. 

Mehr  Neues  gibt  es  im  'Speichernr'-Unterprogramm.  Dieser  Pro- 
grammteil schreibt  das  Bild  im  IFF-Format  auf  Diskette.  Der 
Anfang  lauft  nach  gewohntem  Muster  ab:  Die  Pulldowns  werden 
abgeschaltet,  und  ein  Dateiname  wird  gelesen.  Dann  Off  net  das 
Programm  eine  Datei  zum  Schreiben.  Aber  was  soil  denn 
LEN=FRE(0)-500  bedeuten?  Wie  Sie  wissen,  legt  AmigaBASIC 
fur  jede  Datei  einen  Pufferspeicher  an,  wo  die  Bytes  erst  ge- 
sammelt  werden,  bevor  sie  auf  die  Diskette  kommen.  Dadurch 
laBt  sich  viel  Zeit  sparen,  denn  am  langsten  dauert  der  Schreib- 
vorgang  im  Diskettenlaufwerk.  Normalerweise  ist  der  Puffer  128 
Bytes  lang.  Je  mehr  Platz  im  Puffer  ist,  umso  schneller  wird  der 
Datenaustausch.  Deshalb  kdnnen  Sie  beim  OPEN-Befehl  die  ge- 
wunschte  Pufferiange  angeben.  Das  geschieht  durch  das  AnhSn- 
gen  von  LEN=(Puffergr6Be)  hinter  dem  OPEN-Befehl.  Ein 
Beispiel: 

OPEN  Nam*  FOR  OUTPUT  AS  1  LEN=1000 

weist  der  Datei  1  einen  Puffer  von  1000  Bytes  zu. 
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Der  Haken  bei  der  Sache  ist,  dafl  Sie  nicht  unbegrenzt  Speicher- 
platz  zur  Verfugung  haben.  Der  Speicherbereich,  in  dem  das 
BASIC-Programm,  seine  Variablen  und  Felder  sowie  die  Datei- 
puffer  liegen,  ist  beim  512K-Amiga  nur  25  KBytes  groB.  Erin- 
nern  Sie  sich  noch  an  die  Einschaltmeldung  beim  Start  von 
AmigaBASIC?  Da  teilt  Ihnen  der  Amiga  mit,  wieviele  Bytes  fur 
den  BASIC-Speicherbereich  zur  Verfugung  stehen. 

Es  gibt  auch  eine  BASIC-Funktion,  mit  der  Sie  die  Anzahl  der 
freien  Bytes  feststellen  kflnnen.  Sie  heiBt  FRE(x).  Geben  Sie  im 
BASIC-Window  ein: 

?  fre(0) 

Die  Zahl,  die  Sie  als  Ergebnis  erhalten,  sagt  Ihnen  die  Anzahl 
der  freien  (engl.:  free,  daher  der  Funktionsname)  Bytes  im  BA- 
SIC-Speicherbereich. Bei  geladenem  Malprogramm  und  5 1 2 
KByte  RAM  wird  diese  Zahl  in  der  Gegend  von  9000  liegen. 
Steht  hinter  FRE  in  Klammern  die  Zahl  0,  gibt  AmigaBASIC 
die  freien  Bytes  im  BASIC-Speicher  an.  Folgt  dagegen  in  den 
Klammern  hinter  FRE  die  Zahl  -1,  erhalten  Sie  die  freien  Bytes 
im  ganzen  System: 

?  fre(-1) 

Diese  Zahl  wird  grGBer  sein  als  das  Ergebnis  von  FRE(0).  Wie 
groB,  kdnnen  wir  schlecht  vorhersagen.  Das  hangt  davon  ab,  was 
sich  im  Hintergrund  tut,  wieviele  Windows  geSffnet  sind  und 
was  sich  alles  im  Speicher  befindet.  Bedenken  Sie,  daB  im 
Systemspeicher  auch  alle  Grafik-Bitmaps  Platz  finden  miissen. 
Wenn  Sie  BASIC  trotzdem  etwas  mehr  Speicher  gflnnen  wollen: 
Wir  werden  Ihnen  spater  zeigen,  wie's  geht. 

Jetzt  ist  der  Ausdruck  LEN=FRE(0)-500  nicht  mehr  so  geheim- 
nisvoll:  Als  Pufferspeicher  wird  der  verfiigbare  Rest  des  BASIC- 
Speichers  verwendet.  500  Bytes  behalten  wir  sicherheitshalber  als 
Reserve  fur  Variablen,  die  noch  auftreten  kflnnten,  und  ahnli- 
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ches.  Wenn  Sie  den  BASIC-Speicher  restlos  verbrauchen  und 
dann  auch  nur  noch  1  Byte  bendtigen,  meldet  AmigaBASIC 
einen  "Out  of  memory"-Error. 

Von  dem  kleinen  Sicherheitsabschlag  abgesehen,  speichern  wir 
so  immer  in  der  hdchstmdglichen  Geschwindigkeit.  Nach  dem 
SchlieBen  der  Datei  wird  der  Pufferspeicher  wieder  freigegeben. 

Die  Datei  ist  gedffnet,  wir  kdnnen  unsere  Daten  auf  den  Weg 
schicken. 

Zuerst  schreiben  wir  die  Typ-Bezeichnung  FORM  in  die  Datei, 
gefolgt  von  der  Lange  der  Form.  Die  h§ngt  ja  wiederum  von  der 
Anzahl  der  Bitebenen  ab.  Fur  jede  Bitebene  brauchen  wir  8000 
Bytes.  156  Bytes  nehmen  die  Farb-  und  Steuerdaten  in  An- 
spruch.  Der  Gesamtspeicherbedarf  ist  also  156+8000*( Anzahl  der 
Bitebenen). 

Es  folgt  die  Kennung  ILBM  (^"Interleaved  Bitmap",  die  Ken- 
nung  fur  Bilder). 

Und  dann  geht  schon  der  BMHD-Chunk  los.  Er  ist  (wie  ublich) 
20  Bytes  lang.  Dort  hinein  kommen  zuerst  die  Zahl  320  (Breite) 
und  die  Zahl  200  (Hohe),  jeweils  als  16-Bit-Zahl.  Daran 
schlieBen  sich  vier  0-Bytes  an  (die  Anfangskoordinaten  der 
Grafik).  Das  nachste  Byte  beinhaltet  die  Anzahl  der  Bit-Ebenen. 
Und  dann  kommt  wieder  ein  0-Byte. 

Die  folgenden  zwei  Bytes  kennzeichnen,  ob  die  Grafikdaten  im 
BODY-Chunk  komprimiert  gespeichert  sind  oder  nicht.  Der 
Wert  0  bedeutet,  daB  keine  Kompression  vorliegt.  Programme, 
die  eine  Entzerr-Routine  beinhalten,  brauchen  diese  Informa- 
tion. Und  nochmal  zwei  0-Bytes.  Diese  Stellen  werden  in  der 
gegenwartigen  Version  von  IFF  noch  nicht  genutzt,  sie  sind  fur 
zukiinftige  Erweiterungen  vorgesehen.  Nun  kommen  zwei  Werte: 
10  und  11.  Da  IFF-Bilder  in  Zukunft  einmal  auf  verschiedenen 
Computern  laufen  sollen,  geben  diese  beiden  Werte  Auskunft 
daruber,  in  welchem  VerhSltnis  die  Breite  eines  Pixels  zu  seiner 
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H6he  steht.  Das  Seitenverhaitnis  kann  ja  bei  verschiedenen 
Computern  sehr  unterschiedlich  sein.  Beim  Amiga  betragt  es 
10:11,  deshalb:  MKI$(10);MKI$(11). 

Nochmal  die  Zahlen  320  und  200.  Diesmal  geben  sie  nicht  die 
AusmaBe  des  Bilds  an,  sondern  die  gewahlte  Auflflsungsstufe. 
Das  waren  20  Bytes,  der  BMHD-Chunk  ist  voll. 

FCommen  wir  zu  den  Farben.  Das  einfachste  ist,  grundsatzlich  32 
Farbwerte  abzuspeichern,  egal  wieviele  Farben  davon  im  Bild 
wirklich  verwendet  werden.  Wir  schreiben  also  insgesamt  96  (32 
mal  3)  RGB-Werte  aus  dem  Tarben%'-Feld  in  den  CMAP- 
Chunk.  Sie  erinnern  sich:  Mit  Rucksicht  auf  zukunftige  Hard- 
ware-Entwicklungen  ermoglicht  IFF  die  Angabe  feinerer 
Farbabstufungen,  als  sie  der  Amiga  bietet.  Deshalb  muB  jeder 
Farbwert  mit  16  multipliziert  werden. 

Jetzt  kommt  der  Hauptteil,  der  BODY-Chunk:  Seine  LSnge 
richtet  sich  nach  der  Anzahl  der  Bitebenen,  pro  Bitebene  werden 
8000  Bytes  benfitigt.  Wir  errechnen  in  beiden  Programmteilen 
('Laden:'  und  'Speichern:')  die  Adressen  der  Bitebenen.  Es  ist  ja 
nicht  vorherzusagen,  welche  der  beiden  Routinen  zuerst  benutzt 
wird,  aber  wir  brauchen  in  jedem  Fall  die  aktuellen  Daten  fUr 
das  Feld  'Ebnadr'. 

Dieselben  Schleifen,  die  beim  Einlesen  die  Werte  in  den  Spei- 
cher  geschrieben  haben,  lesen  sie  jetzt  mit  PEEKL  aus  dem 
Speicher  und  schreiben  sie  in  die  Datei.  Urn  wahrend  des  Spei- 
cherns  eine  optische  Kontrolle  zu  bieten,  wie  weit  das  Bild  be- 
reits  gespeichert  ist,  haben  wir  die  nfcchsten  drei  Programmzeilen 
aufgenommen. 

Die  Variable  TAdr'  errechnet  fur  jeden  Durchlauf  die  Adresse 
des  ersten  Bytes  in  der  aktuellen  Bildzeile  aus  der  ersten  Bit- 
ebene. In  diesem  Byte  loschen  wir  die  hochstwertigen  beiden 
Bits  (mit  AND  63)  und  POKEn  den  neuen  Wert  zuruck  in  die 
Adresse.  Dasselbe  machen  wir  mit  dem  (39  Bytes  entfernten) 
letzten  Byte  der  Bildzeile,  dort  werden  die  beiden  nieder- 
wertigen  Bits  geloscht  (AND  252).  Das  Resultat:  Der  Window- 
rahmen  verschwindet  von  oben  nach  unten  und  zwar  immer  auf 
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H6he  der  Zeile,  die  gerade  abgespeichert  wurde.  So  erkennen 
Sie,  wann  das  Programm  mit  dem  Abspeichern  fertig  ist.  Nach 
dem  Speichern  wird  der  Rahmen  beim  ersten  Klick  mit  der 
Menutaste  der  Maus  wieder  aufgebaut. 

Zu  guter  Letzt  speichern  wir  noch  einen  Chunk,  den  unser  eige- 
nes  Programm  zwar  gar  nicht  liest,  der  aber  von  Graphicraft 
und  manchen  anderen  Profis  benfltigt  wird:  Der  CAMG-Chunk 
(steht  schlicht  und  einfach  fur:  Commodore  AMiGa)  ist  nur  vier 
Bytes  groB  und  beinhaltet  eine  32-Bit-Zahl,  die  fur  Intuition 
Informationen  uber  die  Grafik-Betriebsart  liefert. 

Ist  auch  der  letzte  Chunk  gut  auf  den  Weg  zur  Diskette  ge- 
bracht,  kdnnen  wir  die  Datei  schlieBen. 

Das  war's.  Nun  ist  das  Malprogramm  IFF-kompatibel.  Sie  kdn- 
nen Bilder  laden  und  abspeichern  und  so  die  Vorteile  anderer 
Grafikprogramme  fur  Ihre  BASIC-Bilder  nutzen.  Professionelle 
Malprogramme  bieten  Ihnen  die  MGglichkeit,  Bildausschnitte  zu 
kopieren,  zu  vergrSBern  oder  Hardcopies  von  Ihren  Bildern  zu 
drucken.  Und  noch  manches  mehr.  Dafur  hat  unser  BASIC-Mal- 
programm  den  Fullmuster-Editor,  der  Ihnen  auch  fur  Gra- 
phicraft- oder  Deluxe  Paint-Bilder  gute  Dienste  leisten  wird. 

Sie  sehen:  Amiga  halt  mehr  von  Miteinander  als  Gegeneinander. 
Getreu  diesem  Motto  wollen  wir  jetzt  auch  das  Videotitel-Pro- 
gramm  in  den  illustren  Kreis  IFF-kompatibler  Programme  auf- 
nehmen. 


Zwischenspiel  6:  Ein  Programm  speckt  ab  -  die  Anderungen  am 
Videotitel-Programm 

Wie  finden  Sie  das:  Sie  nehmen  ein  Bild,  das  mit  Graphicraft 
erstellt  wurde,  fugen  im  Malprogramm  ein  paar  Muster  ein  und 
laden  dieses  Bild  als  Hintergrund  in  das  Videotitel-Programm. 
Davor  lauft  der  Text  ab,  und  das  bewegte  Grafikobjekt  schwebt 
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durch  die  Gegend.  Das  wire  doch  ganz  reizvoll,  oder?  Um  das 
zu  erreichen,  muBten  Sie  lediglich  das  Videotitel-Programm  um 
eine  IFF-Leseroutine  erweitern. 

Es  gibt  nur  ein  Problem,  an  das  Sie  jetzt  vielleicht  nicht  denken: 
die  Aufldsungsstufen.  Wie  Sie  wissen,  sind  alle  Graphicraft-Bil- 
der  und  die  weitaus  iiberwiegende  Anzahl  an  IFF-Bildern  ande- 
rer  Malprogramme  320  *  200  Pixels  groJJ.  Unser  Malprogramm 
arbeitet  ebenfalls  nur  in  dieser  Darstellung.  Sie  erinnern  sich 
aber  vielleicht,  daB  das  Videotitel-Programm  in  der  BASIC- 
Standardaufl6sung  (640  *  200  Pixels)  lauft.  Die  IFF-Bilder  wii- 
ren  als  Hintergrund  einfach  zu  klein.  Und  sie  hatten  moglicher- 
weise  zuviele  Farben  (32  statt  16).  Was  tun? 

Die  einfachste  und  sinnvollste  L6sung  ist,  das  Videotitel-Pro- 
gramm an  die  niedrige  Aufldsung  anzupassen.  Viel  muB  da  so- 
wieso  nicht  ge^ndert  werden,  in  erster  Linie  geht  es  um  die 
Textdarstellung  auf  dem  Bildschirm.  Die  Folgen  solcher  Ande- 
rungen,  namlich  die  grfiBeren  Buchstaben,  sind  eigentlich  eher 
von  Vorteil:  Breitere  Schrift  ist  auf  einer  Videoaufzeichnung 
einfacher  zu  lesen  als  die  80  Zeichen  pro  Zeile  der  Workbench. 

In  diesem  Zwischenspiel  wollen  wir  die  notwendigen  Umstellun- 
gen  am  Videotitel-Programm  gemeinsam  durchfuhren.  Den 
Eintipp-Abstinenzlern  sei  gleich  verraten,  daB  Sie  die  dabei 
entstehende  Version  auch  wieder  auf  unserer  Diskette  im  Buch 
finden.  Sie  heiBt  "Videotitel.IFF  und  befindet  sich  sowohl  in 
der  "Daten"-  als  auch  in  der  MVideotitelH-Schublade. 


Wenn  Sie  jedoch  selbst  tippen  wollen,  dann  laden  Sie  bitte  Ihr 
"Videotiter-Programm,  das  sich  in  der  gleichnamigen  Schublade 
auf  der  "BASICDisk"  befinden  muBte. 

Wenn  Sie  wihrend  der  folgenden  Arbeiten  das  Programm  ab- 
speichern,  verwenden  Sie  bitte  einen  neuen  Namen  (wie  z.B. 
"Videotitel.IFF),  damit  Ihnen  beide  Versionen  des  Videotitel- 
Programms  erhalten  bleiben. 
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Wir  zeigen  Ihnen  alle  Stellen,  an  denen  etwas  geSndert  werden 
muB.  Beginnen  wir  am  Programmanfang.  Im  Teil  'Vorbereitun- 
gen:'  lflschen  Sie  bitte  die  IF...THEN-Bedingung  vor  der 
SCREEN-Anweisung.  Wahrend  wir  in  der  alten  Version  nur 
dann  einen  neuen  Screen  erSffneten,  wenn  mehr  als  2  Bitebenen 
gefragt  waren,  brauchen  wir  in  der  neuen  Version  in  jedem  Fall 
einen.  Die  Angaben  beim  SCREEN-Befehl  werden  auf 
320  *  200  Pixels  umgeschrieben.  Nach  alien  Anderungen  sieht 
die  funfte  Zeile  in  'Vorbereitungen:*  dann  so  aus: 

Vorher: 

IF  Farben>2  THEN  SCREEN  2,640,200, Farben,2  :  WINDOW  2,"Videotitel«,,28,2 
Nachher: 

SCREEN  2,320,200, Farben,1   :  WINDOW  2,MVideotitel»,,28,2 

Eine  Zeile  darunter  stehen  eine  Reihe  DIM-Anweisungen.  Das 
TarbfekT  sollte  auf  die  hGchstmflgliche  Farbenzahl  vorbereitet 
werden.  Andern  Sie  bitte  die  Angabe  Farbfeld(d,3)  in  Farb- 
feld(31,3): 

Vorher: 

DIM  Text$(d),Farbfeld(d,3),Beweg(d),Geschw(d) 

Nachher: 

DIN  Text$(d),Farbfetd(31,3)fBeweg(d),Geschw<d) 

Nach  dieser  unscheinbaren  Anderung  sind  wir  im  Teil  'Vorbe- 
reitungen:* auch  schon  fertig  mit  unseren  Bauarbeiten.  Kommen 
wir  zum  'Anfang:' 

Vorher: 

PRINT  "Videotitet-Prograron  "; 
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Nachher: 

PRINT  "Videotitel-Programm  " 

Der  Strichpunkt  hintendran  ist  weg,  das  ist  alles.  So  erzeugen 
wir  einen  Zeilenvorschub  zwischen  "Videotitel-Programm"  und 
Ihrem  Namen.  Anderenfalls  verschwindet  ein  Teil  der  Uber- 
schrift  n^mlich  hinter  dem  rechten  Bildschirmrand. 

Jetzt  kommt  ein  langeres,  fcnderungsfreies  Stuck.  Erst  wieder  zu 
Beginn  der  Teils  'ObjEinlesen:'  gibt  es  eine  Kleinigkeit  zu  tun: 

Vorher: 

PRINT  "Bitte  geben  Sie  den  Namen  des  Objekts  ein." 
Nachher: 

PRINT  "Bitte  geben  Sie"  :  PRINT  "den  Namen  des  Objekts  ein." 

Auch  hier  ist  unser  einziges  Bestreben,  aus  dem  zu  langen  Ein- 
zeiler  einen  passenden  Zweizeiler  zu  machen.  Dasselbe  failt  auch 
am  Beginn  von  'Bewegen:1  an,  sogar  gleich  doppelt: 


Vorher: 


PRINT  "Legen  Sie  bitte  die  Ausgangsposition  fest." 
PRINT  "Bewegen  Sie  das  Objekt  mit  den  Cursortasten." 

Nachher: 

PRINT  "Legen  Sie  bitte  die"  :  PRINT  "Ausgangsposition  fest." 
PRINT  "Bewegen  Sie  das  Objekt"  :  PRINT  "mit  den  Cursortasten." 

Auch  ein  Stuck  weiter  unten,  im  Programmteil  'Zieldef:'  gilt  es 
wieder,  eine  Zeile  zu  verhackstiicken: 
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Vorher: 

PRINT  "Bitte  bewegen  Sie  das  Objekt  zum"Ziel".  Zielpunkt." 

Nachher: 

PRINT    "Bitte   bewegen   Sie   das   Objekt"    :    PRINT    "zum"Ziet".    Ziel- 
punkt," 

Bevor  Sie  das  Gefuhl  haben,  wir  wurden  Sie  vOIlig  unterfordern, 
kommt  jetzt  mal  ein  etwas  gr5Berer  Teil.  Die  Bildschirm- 
darstellung  in  'Farben:1  muB  auf  den  verringerten  Platz  und  die 
erhdhte  Farbanzahl  vorbereitet  werden: 


Vorher: 


Farben: 
FOR  x=0  TO  Maxfarbe 
COLOR  -<x=0),x 
LOCATE  5,<x*4>  +  1 
PRINT  x;CHR$(32);CHR$(32) 
NEXT  x 

Nachher: 

Farben: 
FOR  x=0  TO  Maxfarbe 

IF  (x/8)=INT<8)  THEN  PRINT 
COLOR  -<x=0),x 
PRINT  x; 

IF  x<10  THEN  PRINT  CHR$(32); 
NEXT  X 

Die  Sache  ist  eigentlich  ganz  einfach.  IF  (x/8)=INT(8)...  bedeu- 
tet:  Wenn  x  ein  ganzes  Vielfaches  von  8  ist  (also:  8,  16  oder  24), 
soil  ein  Zeilenvorschub  erfolgen,  ansonsten  werden  die  Farbfel- 
der  nebeneinander  gedruckt.  Und  IF  x<10  THEN  ...  bewirkt, 
daB  die  Felder  der  Zahlen  0  bis  9  urn  eine  Leerstelle  erweitert 
werden,  weil  die  gedruckten  Zahlen  ja  nur  einstellig  sind.  Ab  10 
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sind  die  Zahlen  zweistellig.  (Logisch!  Wer's  nichts  glaubt,  darf 
alle  Zahlen  von  0  bis  99  auf  einen  Zettel  schreiben  und  dann  die 
Stellen  nachzShlen...) 

Im  nfcchsten  Teil  Tarbaenderung:'  gibt  es  wieder  einen  Satz,  der 
sich  auseinandergelebt  hat: 

Vorher: 

PRINT  "Welche  Farbe  soil  geandert  werden?" 

Nachher: 

PRINT  "Welche  Farbe"  :  ?"soll  geandert  werden?" 

Die  Anderungen,  die  wir  im  Teil  'RGBRegler:'  durchzufuhren 
haben,  dienen  alle  wieder  der  Anpassung  auf  den  kleineren 
Textbildschirm.  Die  Regler  fur  R,  G  und  B  und  die  zugehorigen 
Erklarungen  mussen  auf  zwei  Zeilen  verteilt  werden: 


Vorher: 


LOCATE  10,1  :  PRINT  "Rot:   <7>=-  <8>=+  ";Fuell$ 

LOCATE  10,20+r  :  PRINT  CHR$(124); 

LOCATE  11,1  :  PRINT  "Grun:  <4>=-  <5>=+  ";Fuell$ 

LOCATE  11,20+r  :  PRINT  CHR$<124); 

LOCATE  12,1  :  PRINT  "Blau:  <1>=-  <2>=+  ";Fuell$ 

LOCATE  12,20+r  :  PRINT  CHR$<124>; 

LOCATE  13,1  :  PRINT  »      <0>=Farbe  o.k." 


Nachher: 


LOCATE  11,1  :  PRINT  "Rot:   <7>=-  <8>=+  »  :  PRINT  FueUS 

LOCATE  12, Hr  :  PRINT  CHR$(124); 

LOCATE  13,1  :  PRINT  "GrCin:  <4>=-  <5>=+  "  :  PRINT  Fuell$ 

LOCATE  14,1+r  :  PRINT  CHR$(124); 

LOCATE  15,1  :  PRINT  "Blau:  <1>=-  <2>=+  "  :  PRINT  Fuell$ 

LOCATE  16,1+r  :  PRINT  CHR$(124); 

LOCATE  17,1  :  PRINT  »      <0>=Farbe  o.k." 
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Na,  haben  Sie  die  13  kleinen  Unterschiede  gefunden?  Es  liegt 
wirklich  nicht  in  unserer  Absicht,  Ihnen  irgendwelche  R&tsel 
aufzugeben,  aber  in  diesem  Fall  sollten  Sie  wirklich  genau  ver- 
gleichen: 

Erstens  rutschen  die  Werte  in  den  LOCATE-Zeilen  urn  1  nach 
unten  und  werden  nun  durchgehend  numeriert.  Zweitens  werden 
die  LOCATE-Spalten  von  20+r  auf  1+r  ge&ndert.  Drittens  und 
letztens  wird  der  'FuellS'  am  Ende  der  Zeilen  mit  einem  eigenen 
PRINT-Befehl  versehen. 

Die  n&chste  Etappe  ist  wieder  ein  Stiick  entfernt.  In  den  Teilen 
Tarbeingabe:'  und  'Schleife3:'  mussen  wir  mit  der  LOCATE- 
Zeile  nach  unten  ausweichen. 

Vorher: 

LOCATE   14,1 

Nachher: 

LOCATE   19,1 

Achtung:  Die  letzte  Korrektur  muB  an  zwei  kurz  hintereinander 
folgenden  Stellen  ausgefuhrt  werden! 

Beim  'Countdown:'  gibt  es  wieder  eine  kleine  Verschiebung, 
diesmal  innerhalb  der  Zeile  auf  eine  kleinere  Spaltennummer. 

Vorher: 

LOCATE  10,38  :  PRINT  c 

Nachher: 

LOCATE  10,18  :  PRINT  c 

Die  Zeilenbreite,  die  vom  WIDTH-Befehl  festgelegt  wird,  muB 
im  Teil  'WiedergStart:'  verringert  werden:  Von  60  auf  32. 
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Vorher: 

uitdh  80 
Nachher: 

WIDTH  40 

Auch  die  Berechungsformeln  fur  die  Textzentrierung  mussen  wir 
auf  die  neue  Zeilenbreite  anpassen.  Andern  Sie  auch  hier  den 
Wert  78  in  39  und  den  Wert  80  in  40: 


Vorher: 


Text$=LEFT$<Text$(x),78) 
h=INT((80-LEN(Text$))-2)+2 

Nachher: 

Text$=LEFT$(Text$(x),39) 
h=INT((40-LEN(Text$>)-2)+2 

Tja.  Das  war  unsere  kleine  Anleitung:  "Wie  bastle  ich  mir  ein 
IFF-kompatibles  Videoprogramm".  Durch  unsere  Arbeiten  lSuft 
das  Programm  jetzt  im  320  *  200-Pixel-Modus.  Probieren  Sie 
die  einzelnen  Funktionen  bitte  aus,  damit  Sie  den  neuen  Bild- 
schirmaufbau  kennenlernen  und  eventuelle  Eintippfehler  finden. 

Vergessen  Sie  nicht,  das  Programm  unter  neuem  Namen  abzu- 
speichern,  falls  Sie  die  Anderungen  selbst  vorgenommen  haben. 
Wenn  alles  erledigt  ist,  durfen  wir  Sie  ins  nachste  Kapitel  bitten, 
wo  der  IFF-Teil  dazukommt. 


4.5        Action!  -  Einlesen  von  Bildern  im  Videotitel-Programm 

Auch  das  Videotitel-Programm  braucht  also  eine  IFF-Lese- 
routine.  Wir  wollen  Ihnen  ersparen,  das  weitgehend  gleiche  Pro- 
gramm zum  dritten  Mai  abzutippen.  Deshalb  benutzen  wir  ein 
paar  Tricks,  die  wir  bei  der  Arbeit  mit  Peripheriegeraten  ken- 
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nengelernt  haben.  Das  Videotitel-Programm  haben  Sie  ja  sicher 
schon  langst  abgespeichert,  bitte  laden  Sie  jetzt  das  Malpro- 
gramm.  Bedenken  Sie,  daB  Sie  dafOr  vorher  wahrscheinlich  mit 
CHDIR  das  aktuelle  Inhaltsverzeichnis  wechseln  mussen. 

Das  alles  betrifft  naturlich  wieder  nur  diejenigen,  die  selbst  an 
dem  Programm  arbeiten  wollen.  Wer  sich  lieber  der  beigelegten 
Diskette  im  Buch  bedient,  findet  wie  schon  im  letzten  Zwi- 
schenspiel  erw&hnt,  die  IFF-fahige  Version  des  Videotitel-Pro- 
gramms  in  der  "Daten"  oder  in  der  "VideotitelH-Schublade  unter 
dem  Namen  "Videotitel.IFF".  Nach  wie  vor  gilt  auch,  daB  trotz- 
dem  alle  die  Erkl&rungen  lesen  sollten,  urn  zu  verstehen,  was  in 
den  neuen  Programmteilen  passiert. 

Im  Malprogramm  haben  wir  eine  Routine,  die  Bilder  mit 
320  *  200  Pixels  einliest.  Mit  wenigen  kleinen  Anderungen  k6n- 
nen  alle  Selbst-Tipper  die  Routine  ins  Videotitel-Programm 
ubernehmen.  Die  folgende  Zeile,  im  BASIC-Window  eingegeben, 
speichert  den  Einleseteil  auf  der  RAM-Disk  als  ASCII-Datei  ab: 

list  Laden- EndeLaden, "ram: iff. lesen" 

Alle  Zeilen  zwischen  den  Labels  'Laden:'  und  'EndeLaden:*  wer- 
den  als  Datei  "iff.lesen"  abgespeichert.  L6schen  Sie  danach  das 
Malprogramm  mit  NEW  und  laden  Sie  wieder  die  neue  Version 
des  Videotitel-Programms. 

Die  IFF-Leseroutine  hSngen  wir  jetzt  einfach  hinten  an: 

merge  "ram: iff. lesen" 

Und  schon  haben  wir  das  Rohmaterial  komplett.  Jetzt  gibt  es 
nur  noch  Feinarbeiten:  Die  neue  Routine  muB  in  das  Programm 
eingebunden  werden.  Zuerst  gflnnen  wir  dem  Bilder-Einlesen 
einen  eigenen  Menupunkt.  Nehmen  Sie  ihn  im  Teil  'Auswahl:* 
unterhalb  von  Punkt  5  auf: 

PRINT  "6  Hintergrundbild  festlegen" 
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Was  wir  so  groBartig  auf  dem  Bildschirm  ankundigen,  muB  der 
Benutzer  natiirlich  auch  auswahlen  kflnnen.  Deshalb  fuhren  Sie 
bitte  im  Programmteil  'Abfrage:*  folgende  Anderungen  durch: 

Vorher: 

IF  a$<"1"  OR  a$>"5"  THEN  BEEP  :  GOTO  Abfrage 

Nachher: 

IF  a$<,,1"  OR  a$>"6"  THEN  BEEP  :  GOTO  Abfrage 

Die  Nummer  der  h6chsten  erlaubten  Eingabe  ist  6,  nicht  mehr  5. 
Wenige  Zeilen  spSter,  in  die  Serie  von  IF...THEN-Abfragen,  fii- 
gen  wir  den  Aufruf  fiir  den  neuen  Programmteil  ein: 

IF  a$=,,6"  THEN  BildVorbereiten 

Da  eine  neue  Zeile  dazugekommen  ist,  miissen  Sie  die  Eingabe- 
zeile  urn  1  nach  unten  versetzen:  Andern  Sie  im  Teil  'Abfrage:' 
die  Zeilenangabe  der  LOCATE-Anweisung: 

Vorher: 

LOCATE   10,1 

Nachher: 

LOCATE   11,1 

Den  neuen  Teil  'BildVorbereiten:'  schreiben  wir  zwischen  den 
Teilen  'GeschwBerechnen:'  und  'Laden:'  ins  Programm: 

Bi IdVorbereiten: 
CLS 

PRINT  "Soil  als  Hintergrund  eine" 
PRINT  "Grafik  geladen  werden?  <J/N)" 
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SchleifeS: 

LOCATE  2,29  :  INPUT  Antw$ 

IF  UCASE$(Antw$)=»N"  THEN  IFF=0  :  CLS  :  GOTO  Anfang 

IF  UCASE$(Antw$>="J"  THEN  IFF=1  :  GOTO  EingabeName 

GOTO  SchleifeS 

EingabeName: 

PRINT 

PRINT  "Bitte  geben  Sie  den  Namen  ein:11 

INPUT  Nam$ 

PRINT 

PRINT  "Soil  die  FarbtabelLe  von" 

PRINT  NamS 

PRINT  "verwendet  werden?  (J/N)"; 
Schleife6: 

LOCATE  9,24  :  INPUT  Antw$ 

IF  UCASE$(Antw$)="N"  THEN  IFFTab=0  :  CLS  :  GOTO  Anfang 

IF  UCASE$(Antw$)=»J»  THEN  IFFTab=1  :  CLS  :  GOTO  Anfang 
GOTO  Schleife6 

Im  Programmteil  'BildVorbereiten:'  fragt  der  Amiga  zuerst,  ob 
bei  der  Titelwiedergabe  eine  Hintergrundgrafik  geladen  werden 
soil  oder  nicht.  So  kOnnen  Sie  ausprobieren,  wie  sich  die  Grafik 
macht,  und  sie  bei  Nichtgefallen  auch  wieder  abschalten.  Wir 
vermuten  aber  stark,  daB  Sie  auf  die  tollen  Mdglichkeiten  der 
Hintergrundgestaltung  gar  nicht  mehr  verzichten  wollen,  wenn 
Sie  die  ersten  Ergebnisse  gesehen  haben.  Sie  kSnnen  die  Frage 
mit  "J"  Oder  "N"  beantworten.  Alle  anderen  Eingaben  fuhren 
zuruck  zur  Eingabeschleife.  Die  Variable  'IFF'  gibt  spater  im 
Programm  Auskunft  daniber,  ob  eine  IFF-Grafik  geladen  wer- 
den soil  (IFF=1)  Oder  nicht  (IFF=0). 

Der  Programmteil  'EingabeName:'  fragt  nach  dem  Namen  der 
Grafik,  der  in  *Nam$'  gespeichert  wird,  und  stellt  die  Frage,  ob 
die  Farbtabelle  der  gewiinschten  Grafik  (die  Farben  aus  dem 
CMAP-Chunk)  verwendet  werden  soil  oder  nicht. 

Dahinter  steckt  folgendes:  Der  Text  und  die  Grafik  mussen  mit 
denselben  Farben  auskommen.  Vielleicht  legen  Sie  ja  mehr  Wert 
auf  die  Text-  und  Hintergrundfarben  als  auf  die  farblich  rich- 
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tige  Darstellung  der  Grafik.  In  diesem  Fall  kGnnen  Sie  auf  die 
letzte  Frage  mit  "NH  antworten.  Dann  verwendet  das  Programm 
bei  der  Wiedergabe  die  Farbtabelle,  die  Sie  im  Videotitel- 
progrmm  selbst  festgelegt  haben.  Dadurch  wird  die  Hinter- 
grundgrafik  naturlich  in  vollig  falschen  Farben  dargestellt.  In 
der  Praxis  mussen  Sie  sich  wohl  fur  Kompromisse  entscheiden. 
Die  Variable  'IFFTab'  hilft  dem  Programm,  sich  Ihre  Entschei- 
dung  zu  merken. 

Jetzt  mussen  wir  uns  noch  um  das  'Ladenf-Unterprogramm 
kummern.  Wir  wollen  Ihnen  bei  dieser  Gelegenheit  eine  neue 
Moglichkeit  zeigen,  Unterprogramme  an  bestehende  Programme 
anzuhangen.  Bei  der  bisherigen  Methode,  wo  wir  die  neuen  Pro- 
grammteile  einfach  mit  GOTO  oder  GOSUB  ausfuhren  lassen, 
kann  n&mlich  ein  Problem  auftreten: 

In  unserem  IFF-Ladeprogramm  verwenden  wir  ziemlich  viele 
Variablen.  Dieselben  Variablen  konnten  aber  auch  im  Haupt- 
programm  benotigt  werden.  Zwar  ist  die  Wahrscheinlichkeit  ge- 
ring,  daB  in  einem  Ihrer  Programme  Variablennamen  wie 
'Form$\  'Laenge'  oder  'ChunkS1  vorkommen,  aber  wie  steht's 
mit  V  und  'y'?  Wo  doch  V  und  'y'  sowieso  so  eine  Art  Dick 
und  Doof  der  Mathematik  sind.  (Das  ist  ubrigens  unser  einziger, 
aber  sehr  beliebter  Standardwitz  in  jedem  Buch...)  Stellen  Sie 
sich  vor,  in  Ihrem  Programm  hat  V  den  Wert  3000.  Es  handelt 
sich  beispielsweise  um  ein  Spielprogramm,  und  V  ist  die  Anzahl 
der  Punkte,  die  Sie  schon  erreicht  haben.  Jetzt  laden  Sie  eine 
neue  Hintergrundgrafik,  und  das  Programm  kehrt  aus  dem 
Lade-Teil  zuriick.  Die  Variable  V  wird  als  Zahlvariable  im 
'ColorMap^-Teil  benutzt  und  hat  nach  der  Riickkehr  den  Wert 
31.  Sehr  schnell  hatten  Sie  eine  ganze  Menge  Punkte  verloren. 
Das  mag  noch  kein  Beinbruch  sein,  aber  was  passiert,  wenn  V 
Teil  einer  wichtigen  Berechnung  ist?  Sie  sehen:  Die  Verwendung 
gleicher  Variablen  in  Haupt-  und  Unterprogramm  kann  sehr 
unangenehme  Folgen  haben.  Eine  Losung  ware,  in  Ihren  Unter- 
programmen  nur  exotische  Variablennamen  zu  verwenden,  aber 
eine  absolute  Sicherheit  bietet  selbst  das  nicht. 
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Abhilfe  schafft  der  Befehl  SUB.. .STATIC.  Mit  ihm  wird  ein 
spezieller  Typ  von  Unterprogrammen  eingeleitet.  Wir  wollen 
diesen  Typ  ab  jetzt  SUB-Programme  nennen.  (Obwohl  "SUB- 
Programm"  und  "Unterprogramm"  streng  genommen  dasselbe  be- 
deutet.)  SUB-Programme  unterscheiden  sich  von  den  gewohnten 
Unterprogrammen  durch  ihre  Variablenverwaltung:  In  SUB-Pro- 
grammen  werden  sogenannte  lokale  Variablen  verwendet.  Das 
heiBt,  alle  Variablen  innerhalb  dieses  Programmteils  haben  ei- 
gene  Werte,  die  mit  den  Variablen  des  Hauptprogramms  nichts 
zu  tun  haben.  Wenn  es  im  SUB-Programm  eine  Variable  V  gibt 
und  im  Hauptprogramm  eine  gleichnamige  Variable,  beeinflus- 
sen  sich  die  Werte  uberhaupt  nicht. 

Sie  kdnnen  im  Hauptprogramm  den  Wert  von  V  ftndern,  der 
Wert  V  im  SUB-Programm  bleibt  unverSndert  und  umgekehrt. 
Mdglich  wird  das  dadurch,  daB  das  SUB-Programm  einen  eige- 
nen  Speicherbereich  fur  seine  Variablen  anlegt.  Wenn  Amiga- 
BASIC  aus  dem  SUB-Teil  ins  Hauptprogramm  springt  und  spa- 
ter  wieder  ins  SUB-Programm  zuriickkehrt,  wird  es  dort  diesel- 
ben  Variableninhalte  wie  beim  letzten  Mai  vorfinden.  Auf  diese 
Eigenschaft  weist  das  Wort  STATIC  hin,  das  zum  Befehl  SUB 
dazugehflrt  ("Static"  heiBt  "statisch,  unverandert"). 

Nun  ein  paar  Worte  zur  Programmierung  von  SUB-Programmen. 
Zwischen  SUB  und  STATIC  steht  der  Name  der  Routine.  Zum 
Beispiel: 

SUB  Umrechnen  STATIC 

Diese  Zeile  geh6rt  nicht  zum  Videotitel-Programm,  sie  ist  nur 
als  Beispiel  gedacht.  Am  Ende  der  Routine  muB  der  Befehl 
END  SUB  stehen.  SUB-Programme  kfinnen  an  jeder  beliebigen 
Stelie  im  Programm  stehen.  Durch  die  Umklammerung  mit 
SUB...STATIC  und  END  SUB  erkennt  AmigaBASIC,  daB  der 
Teil  nicht  zum  Hauptprogramm  gehdrt.  Die  Routine  wird  selbst 
dann  nicht  abgearbeitet,  wenn  sie  mitten  im  Programm  steht.  Im 
folgenden  Beispiel  werden  nur  die  erste  und  die  letzte 
Programmzeile  ausgefuhrt: 
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x=100 

SUB  Umrechnen  STATIC 

x=40 

x=x* 100+3 

PRINT  "Hallo!" 
END  SUB 

PRINT  X 

Auch  diese  Zeilen  sollten  Sie  nicht  abtippen,  wenn  Sie  gerade 
am  Videotitel-Programm  arbeiten.  Die  gehOren  namlich  noch 
nicht  dazu. 

Bei  der  Programmierung  von  SUB-Programmen  gibt  es  einige 
Regeln  zu  beachten:  Sie  durfen  zum  Beispiel  innerhalb  einer 
SUB/END  SUB-Klammer  keine  weitere  SUB-Routine  defi- 
nieren.  Das  Folgende  ist  also  verboten: 

SUB  Test  STATIC 

SUB  Test2  STATIC 
PRINT  "Test?" 

END  SUB 

PRINT  "Test" 
END  SUB 

Die  Zeilen  oben  erzeugen  einen  "Tried  to  declare  SUB  within  a 
SUB"-Error.  Also  auf  Deutsch:  "Sie  haben  versucht,  ein  SUB- 
Programm  innerhalb  eines  SUB-Programms  zu  definieren.  Das 
geht  aber  nicht.  Mit  freundlichen  GruBen,  Amiga  Fehler- 
abteilung." 

Wenn  zwei  gleichnamige  SUB-Programme  vorkommen,  gibt  es 
einen  "SUB  already  definedH-Error  ("SUB-Programm  bereits  de- 
finiert."). 

Wenn  Sie  STATIC  hinter  SUB  vergessen,  meldet  der  Amiga: 
"Missing  STATIC  in  SUB  statement".  Also:  "STATIC  fehlt  im 
SUB-Befehl." 
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Und  auch  das  END  SUB  ist  unbedingt  notig.  Wenn  Sie's  ver- 
gessen,  erinnert  Sie  AmigaBASIC  mit:  "SUB  without  END  SUB" 
-  SUB  ohne  END  SUB. 

Wenn  aber  alles  stimmt  mit  so  einer  SUB-Routine,  wie  ruft  man 
sie  dann  auf?  Dazu  gibt  es  den  Befehl  CALL.  Zum  Beispiel: 

CALL  Umrechnen 

Wenn  es  keine  Verwechslungen  geben  kann,  durfen  Sie  das 
CALL  sogar  weglassen  und  einfach  den  Namen  der  SUB-Rou- 
tine angeben: 

Umrechnen 

Sie  werden  sicher  fragen:  "Wann  konnen  denn  Verwechslungen 
auftreten?"  Wir  wollen  Ihnen  ein  paar  Beispiele  zeigen,  die  alle 
wieder  nicht  zum  Videotitel-Programm  gehoren.  Aber  keine 
Sorge,  lange  dauert's  nicht  mehr,  dann  wenden  wir  unsere  neuen 
Kenntnisse  zum  Bilder-Einlesen  an. 

FOR  x=1  TO  10  :  Umrechnen  :  NEXT  x 

Diese  Zeile  ist  eindeutig.  Innerhalb  der  FOR...NEXT-Schleife 
wird  das  SUB-Programm  'Umrechnen'  aufgerufen.  Nicht  ein- 
deutig ist  der  nSchste  Fall: 

Umrechnen:  PRINT  x 

1st  'Umrechnen:'  ein  SUB-Aufruf,  gefolgt  von  einem  einem 
Doppelpunkt,  Oder  ein  Label,  das  zum  PRINT-Befehl  gehSrt?  In 
diesem  Fall  entscheidet  sich  AmigaBASIC  fur  das  Label.  Zur 
Klarstellung  ist  ein  CALL  nfitig.  Also: 

CALL  Umrechnen:  PRINT  x 

Gleich  ein  ahnlicher  Fall: 

IF  x=10  THEN  Umrechnen 
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1st  'Umrechnen'  ein  Label,  zu  dem  verzweigt  werden  soil,  oder 
ein  SUB-Programm?  Auch  hier  ist  CALL  zwingend,  also: 

IF  x=10  THEM  CALL  Umrechnen 

Jetzt  sind  die  wichtigsten  Fragen  gek&rt,  also  machen  wir  nun 
endlich  am  Videotitel-Programm  weiter:  Aus  der  'Laden:'-Rou- 
tine  wollen  wir  ein  SUB-Programm  machen.  Bei  dieser  Gelegen- 
heit  fiihren  wir  auch  gleich  die  anderen  notigen  Anderungen  an 
der  IFF-Leseroutine  aus. 

Machen  Sie  zun&chst  aus  dem  Label  'Laden:1  die  Zeile: 

SUB  Laden  STATIC 

Und  das  gehflrt  jetzt  endlich  mal  wieder  zum  Videotitel-Pro- 
gramm! Also  vergessen  Sie  nicht,  es  einzugeben.  Wenn  Sie  uber- 
haupt  mittippen.  Loschen  Sie  dann  bitte  den  Programmteil  bis 
zur  Zeile 

IF  Namt=""  THEN  EndeLaden 

Also  die  ersten  4  Zeilen  der  SUB-Routine  'Laden'.  An  ihre 
Stelle  muB  etwas  Neues.  Vielleicht  haben  Sie  sich  daruber  auch 
schon  Gedanken  gemacht:  Wenn  die  SUB-Routine  ihre  eigenen 
Variablen  verwendet  und  die  Variablen  des  Hauptprogramms 
iiberhaupt  nicht  zur  Kenntnis  nimmt,  was  soil  man  dann  tun, 
wenn  man  einzelne  Werte  aus  dem  Hauptprogramm  unbedingt 
braucht? 

Wir  brauchen  zum  Beispiel  zum  Laden  von  IFF-Bildern  drin- 
gend  die  Anzahl  der  Bitebenen  aus  der  Variablen  Tarben', 
auBerdem  das  Feld  'Farbfeld',  urn  dort  die  Farbwerte  abzuspei- 
chern,  die  Variable  'IFFTab',  damit  wir  wissen,  wie  es  die  Lese- 
routine  mit  der  Farbtabelle  halten  soil,  und,  last  but  not  least, 
den  Dateinamen  'Nam$\  Was  tun? 
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Gliicklicherweise  haben  die  Entwickler  von  AmigaBASIC  ge- 
nausoweit  gedacht  und  fur  uns  einen  Befehl  vorgesehen: 
SHARED.  Fugen  Sie  bitte  direkt  unter  der  SUB...STATIC-An- 
weisung  die  nachste  Zeile  ein: 

SHARED  Farben, Farbf eld( ) , I FFTab, Nan* 

Das  englische  Wort  "to  share"  heiBt  "aufteilen,  sich  beteiligen". 
Das  Hauptprogramm  und  das  SUB-Programm  teilen  sich  die  an- 
gegebenen  Variablen.  Das  heiBt,  sie  benutzen  sie  gemeinsam.  Sie 
kflnnen  beim  SHARED-Befehl  die  Variablen  und  Felder  ange- 
ben,  die  in  beiden  Programmteilen  denselben  Wert  haben.  Wie 
Sie  oben  sehen,  mussen  Sie  hinter  dem  Namen  eines  Datenfelds 
ein  leeres  Klammernpaar  angeben.  Damit  unterscheiden  Sie 
Feldnamen  von  Variablennamen.  Und  schon  sind  alle  Probleme 
gel6st. 

Die  nSchsten  Anderungen  gibt  es  erst  wieder  im  *ColorMap:'- 
Teil.  So  sieht  der  Teil  vorher  aus: 

ColorMap: 

FOR  x=0  TO  (Laenge/3)»1 

r=(ASC(INPUT$(1,1)>  AND  240)/16 
g=(ASC(INPUT$(1#1))  AND  240)/16 
b=(ASC(INPUT$(1,1))  AND  240)/16 
PALETTE  x,r/16#g/16#b/16 

Farben%(xfO)=r  :  Farben%(x#1)=g  :  Farben%(x#2)=b 
NEXT  x 

IF  INT(Laenge/3)<>(Laenge/3)  THEN  Duimy$=INPUT$(1,1) 
GOTO  Einlesen 

Und  so  nachher: 

ColorMap: 

FOR  x=0  TO  (Laenge/3)-1 

r=(ASC(INPUT$(1f1))  AND  240)/16 
g=<ASC(INPUT$(1,1))  AND  240)/16 
b=(ASC(INPUT$(1,1))  AND  240)/16 
IF  IFFTab=1  THEN 
PALETTE  x.r/16.a/16-b/16 
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Farbfeld(x,1)=r  :  Farbfeld<x,2)=g  :  Farbfeld(x,3)=b 
END  IF 
NEXT  x 

IF  INT(Laenge/3)<>(Laenge/3)  THEN  Dummy$=INPUT$<1,1> 
GOTO  Einlesen 

Es  dreht  sich  also  nur  urn  zwei  Dinge:  Eine  IF...THEN-Bedin- 
gung  muB  eingefiigt  werden:  Nur  wenn  'IFFTab*  den  Wert  1  hat, 
sollen  die  gelesenen  Farben  wirklich  iibernommen  werden.  Und 
das  Feld  Tarben%*  aus  dem  Malprogramm  machen  wir  im  Vi- 
deotitel-Programm  zum  Feld  Tarbfeld*.  Die  zweite  Dimension 
des  Felds  wird  auBerdem  urn  eins  nach  oben  verschoben.  Der 
Rot-Wert  der  Farbe  V  steht  in  Tarben%(x,0)\  aber  in  Tarb- 
feld(x,l)\  Dasselbe  gilt  fur  Grun  (von  1  auf  2)  und  fur  Blau 
(von  2  auf  3).  Das  war  hier  auch  schon  alles. 

Die  letzte  Anderung:  Der  Teil  'EndeLaden:*  wird  deutlich  ver- 
kurzt,  er  besteht  jetzt  nur  noch  aus  zwei  Zeilen: 

EndeLaden: 
CLOSE  1 
END  SUB 

Wir  haben  es  fast  geschafft.  Die  IFF-Leseroutine  ist  an  das 
Videotitel-Programm  angepaBt  und  umgekehrt.  Wir  miissen  bloB 
noch  einen  Aufruf  im  Hauptprogramm  unterbringen.  Bewegen 
Sie  dazu  den  Cursor  zum  Programmteil  'WiedergStart:'  und  fugen 
Sie  den  CALL-Befehl  ein: 

UiedergStart: 
WIDTH  32 

COLOR  Textfa,Hintgr  :  CLS 
COLOR  Textfajexthi 
IF  IFF=1  THEN  CALL  Laden 
FOR  x=1  TO  Zeilen 
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Damit  haben  Sie  das  Einlesen  von  Hintergrundbildern  fest  ein- 
gebaut.  Vergessen  Sie  bitte  nicht,  das  Programm  gleich  auf  Dis- 
kette abzuspeichern. 

Die  Bedienung  des  neuen  Programmteils  ist  nicht  schwer:  Wahlen 
Sie  den  Menupunkt  6  in  der  Auswahl,  wenn  Sie  ein  Hinter- 
grundbild  verwenden  oder  das  Laden  wieder  abschalten  wollen. 
Dort  kflnnen  Sie  den  Dateinamen  eingeben  und  festlegen,  ob  die 
gerade  eingestellten  Farben  oder  die  Farben  aus  der  IFF-Datei 
verwendet  werden  sollen.  Nach  dem  Countdown  und  vor  der 
Darstellung  von  Text  und  Bewegung  wird  dann  bei  der  Wieder- 
gabe  das  Biid  geladen.  Noch  ein  Hinweis:  Beim  Laden  wird  ja 
wieder  der  Windowrahmen  geloscht.  Fur  Videotitel  ist  das  gar 
nicht  so  schlecht.  Sollten  Sie  aber  doch  lieber  im  vertrauten 
Rahmen  bleiben  wollen,  genugt  ein  Klick  mit  der  Meniitaste  der 
Maus. 

Ubrigens,  zur  Maus  noch  ein  Tip:  Wissen  Sie,  wie  Sie  ein  zwei- 
tes,  voll  bewegliches  Grafikobjekt  fur  Ihren  Videotitel  ver- 
wenden konnen?  Definieren  Sie  einfach  mit  Preferences  den 
Mauscursor  urn  und  steuern  Sie  das  zweite  Objekt  wahrend  der 
Aufnahme  mit  der  Maus. 

Jetzt  wiinschen  wir  Ihnen  viel  SpaB  und  hoffentlich  gelungene 
Videotitel.  Ein  letztes  Bonbon  fur  die  Freunde  des  Videotitel- 
Programms  haben  wir  noch.  Was  das  ist,  sehen  Sie  im  nachsten 
Kapitel.  Wenn  Sie  jetzt  ein  biBchen  neugierig  sind:  Genau  das 
haben  wir  beabsichtigt. 


4.6        Und  noch  'ne  Idee  -  Laden  und  Speichern  von  Titel- 
sequenzen 

Wenn  Ihnen  ein  Titel,  den  Sie  mit  unserem  Programm  erzeugt 
haben,  besonders  gut  gefailt,  finden  Sie  es  wahrscheinlich  fcrger- 
lich,  daB  Sie  die  einzelnen  Parameter  immer  wieder  eingeben 
miissen.  Warum  nicht  einfach  alle  Daten  auf  Diskette  abspei- 
chern  und  bei  Bedarf  wieder  laden? 
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Genau  dafur  stellen  wir  Ihnen  jetzt  die  notigen  Erweiterungen 
vor.  Sie  sehen:  Auch  aus  dem  Videotitel-Programm  wird  mehr 
und  mehr  ein  komfortables  und  leistungsf&higes  Programm. 

Die  folgenden  Teile  geben  Sie  bitte  am  bisherigen  Ende  des  Vi- 
deotitel-Programms  ein.  Oder  sie  halten  sich  einfach  wieder  an 
die  Version  MVideotitel.IFFH  auf  der  beiliegenden  Diskette,  wo 
auch  diese  Erg&nzungen  bereits  berucksichtigt  sind. 

TitetSpeichern: 
CLS  :  PRINT  "Bitte  Dateinamen  eingeben:" 
INPUT  DatNameS 
OPEN  DatNameS  FOR  OUTPUT  AS  1 

PRINT  #1#Zeilen       :  REM  Anzahl  Textzeilen 
FOR  x=1  TO  Zeilen 

WRITE  #1,Text$(x) 
NEXT  x 


PRINT  #1,Einget 
WRITE  #1,Objname$ 


Objekt  eingelesen? 
Dateiname 


PRINT  #1,8eweg(0) 
FOR  x=1  TO  Beweg(O) 
PRINT  #1rBeweg(x) 
NEXT  x 


1  Anzahl  Bewegungsdaten 


PRINT  #1#Farben       ■  Anzahl  Bitebenen 

FOR  x=0  TO  31        •  32  Farben  in  IFF-Speicherung 

PRINT  #1#CHR$(Farbfeld(x,1)*16); 

PRINT  #1fCHR$(Farbfeld(x#2)*16); 

PRINT  #1,CHR$(Ferbfeld(xf3)*16); 
NEXT  x 

PRINT  #1,Hintgr       •  Schriftfarben  etc. 
PRINT  #1,Textfa 
PRINT  #1fTexthi 


PRINT  #1,IFF 
PRINT  #1,IFFTab 
WRITE  #1fNanft 


1  Hintergrundbild? 
1  Farben  (ibernehmen? 
1  Dateiname 
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CLOSE  i 
CLS 
GOTO  Anfang 

Titellesen: 
CLS  :  PRINT  "Bitte  Dateinamen  eingeben:" 
INPUT  DatName$ 

OPEN  DatName$  FOR  INPUT  AS  1 
INPUT  #1,Zeilen 
FOR  x=1  TO  Zeilen 

INPUT  #1,Text$(x) 
NEXT  x 

INPUT  #1,Eingel 
INPUT  #1 , Ob j name$ 

IF  Eingel=1  THEN 

OPEN  ObjnameS  FOR  INPUT  AS  2 
OBJECT. SHAPE  1 , INPUT$(LOF(2),2) 

CLOSE  2 
END  IF 

INPUT  #1,Beweg<0) 
FOR  x=1  TO  Beweg(O) 
INPUT  #1,Beweg(x) 
NEXT  x 

INPUT  #1,Farben1 

IF  Farben1<=Farben  THEN  Farben=Farben1 

CCMaxfarbe=(2AFarben)-1 

FOR  x=0  TO  31 

r=(ASC(INPUT$<1,1)  AND  240)/16 

g=(ASC(INPUT$(1/1)  AND  240)/16 

b=(ASC(INPUT$(1,1)  AND  240)/16 

PALETTE  x,r/16,g/16,b/16 

Farbfeld(x,1)=r  :  Farbfeld(x,2)=g  :  Farbfeld(xf3)=b 
NEXT  x 
INPUT  #1,Hintgr 


434 AmigaBASIC 


INPUT  #1,Textfa 
INPUT  #1,Texthi 

INPUT  #1,IFF 
INPUT  #1,IFFTab 
INPUT  #1,Nam$ 

CLOSE  1 

CLS 
GOTO  Anfang 


Die  einzelnen  Funktionen  beim  Schreiben  und  Lesen  kennen  Sie 
mittlerweile  so  gut,  daB  wir  uns  groBe  Erkiarungen  sicher  sparen 
konnen.  Einige  Hinweise  auf  Punkte,  wo  vielleicht  doch  Un- 
klarheiten  auftreten: 

Wir  verwenden  fur  die  Speicherung  der  Farben  dieselbe 
Schreibweise  wie  beim  IFF-Format,  weil  sie  die  platzsparendste 
ist.  Die  erzeugte  Datei  ist  naturlich  trotzdem  nicht  IFF-kompa- 
tibel. 

Der  WRITE-Befehl  verhindert  Probleme,  die  durch  Kommas  in 
Strings  entstehen  kOnnten. 

Wahrend  des  Einlesens  der  Titeldatei  werden  die  Daten  des 
Grafikobjekts  direkt  gelesen,  sobaid  der  Dateiname  bekannt  ist. 
OBJECT.SHAPE  weist  die  Definition  dem  Objekt  Nummer  1  zu. 

Stehen  in  der  Titeldatei  mehr  Bitebenen  als  vom  Programm  er- 
laubt,  verwendet  das  Videotitel-Programm  nur  die  erlaubte  An- 
zahl.  Die  Variable  'Farben  1*  liest  den  Wert  aus  der  Datei.  Ist 
'Farbenl'  kleiner  oder  gleich  dem  Wert  von  'Farben1,  ubernimmt 
die  Leseroutine  die  neue  Anzahl  in  die  Variable  'Farben'. 

Soweit  alles  klar?  Wie  bitte?  Ach  so,  stimmt  ja:  Den  REM-Be- 
fehl  kennen  Sie  ja  auch  noch  nicht.  Ihn  haben  wir  in  'Titel- 
Speichern:'  eingesetzt,  urn  Ihnen  eine  weitere  Verstandnishilfe  zu 
bieten.  REM  hat  in  AmigaBASIC  ausnahmsweise  nichts  mit 
Strahlenbelastung  und  Tschernobyl  zu  tun.  Es  kommt  vielmehr 
vom  englischen  Wort  "Remark"  und  bedeutet  "Anmerkung".  Sie 
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konnen  an  jede  Programmzeile  eine  Anmerkung  anhangen.  Wie 
wir  es  zum  Beispiel  in  der  ersten  Zeile  nach  OPEN  DatName$... 
gemacht  haben.  Dort  steht: 

REM  Anzahl  Textzeilen 

Wir  machen  die  Anmerkung,  daG  in  der  Variablen  'Zeilen*  die 
Anzahl  der  Textzeilen  steht.  Wann  immer  AmigaBASIC  auf  den 
Befehl  REM  trifft,  kummert  es  sich  nicht  mehr  urn  den  Text, 
der  dahinter  steht.  Sie  kflnnen  dort  hinschreiben,  was  Sie  wollen. 
Aber  Vorsicht:  Auch  Befehle,  die  hinter  REM  folgen,  werden 
nicht  mehr  erkannt.  Probieren  Sie  im  BASIC-Window: 

FOR  x=1   TO  10  :  REM  Armerkung   :  NEXT  x 

Diese  Schleife  wird  nicht  korrekt  ausgefiihrt,  weil  AmigaBASIC 
das  NEXT  x  wegen  dem  vorangestellten  REM-Befehl  schlicht 
ubersieht.  Ein  HFOR  without  NEXT"-Error  ist  die  Folge.  Urn 
den  gleichen  Effekt  wie  durch  REM  zu  erreichen,  kflnnen  Sie 
auch  ein  Hochkomma  verwenden.  Verwechseln  Sie  dieses  Zei- 
chen  aber  bitte  nicht  mit  dem  Apostroph.  Sie  erreichen  das 
Hochkomma  auf  den  Tastaturen  der  Amigas  500  und  2000  durch 
die  Tastenkombination  <ALT>  <a>.  Wenn  Sie  neben  ein  Hoch- 
komma mal  versuchsweise  einen  Apostroph  schreiben  (Taste  <'> 
und  danach  die  Leertaste),  erkennen  Sie  sicher  den  kleinen  aber 
feinen  Unterschied. 

Vor  dem  '  muB  nicht  einmal  ein  Doppelpunkt  stehen.  Sehen  wir 
uns  eine  Zeile  aus  der  TitelSpeichern:*-Routine  an: 

PRINT  #1,Eingel      •  Objekt  eingelesen? 

Hinter  '  steht  eine  Anmerkung.  Sie  erkiart,  daB  die  Variable 
'Eingel'  daruber  Auskunft  gibt,  ob  ein  Objekt  eingelesen  wurde 
Oder  nicht.  Urn  bestimmte  Programmroutinen  zu  erkiaren  oder 
auf  Besonderheiten  hinzuweisen,  sind  REM  und  '  hervorragend 
geeignet.  Wir  haben  diese  Mdglichkeit  in  TitelSchreiben:'  be- 
nutzt,  urn  Ihnen  zu  erklfcren,  welche  Bedeutung  die  einzelnen 
Variablen  haben. 
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Die  Anmerkungstexte  werden  von  AmigaBASIC  nicht  aus- 
gefuhrt,  miissen  aber  trotzdem  gelesen  und  bearbeitet  werden. 
Dafur  wird  Zeit  benOtigt.  In  zeitkritischen  Programmteilen  ha- 
ben  die  Anmerkungen  deshalb  nichts  verloren.  Zwar  dauert  die 
Bearbeitung  einer  REM-Anweisung  nur  Sekundenbruchteile,  je- 
doch  in  einer  FOR...NEXT-Schleife,  die  vielleicht  8000mal 
durchlaufen  wird,  lappert  sich  diese  Zeit  schnell  zu  einer  halben 
Minute  und  langer  zusammen. 

Die  Unterprogramme  sind  eingegeben.  Was  jetzt  noch  fehlt, 
wissen  Sie  sicher  schon  selbst:  Die  neuen  Programmpunkte  miis- 
sen in  die  'Auswahl:'  aufgenommen  werden.  Fugen  Sie  die 
nachsten  beiden  Zeilen  unterhalb  von  Punkt  6  ein: 

PRINT  "7  Titelsequenz  laden" 
PRINT  "8  Titelsequenz  speichern" 

Das  'Abfrage^-Programm  muB  an  die  beiden  neuen  Optionen 
angepaBt  werden.  Nach  alien  erforderlichen  Arbeiten  sieht  dieser 
Programmteil  so  aus: 

Abfrage: 
LOCATE  13,1 
PRINT  "Ihre  Wahl":; 
INPUT  a$ 
a$=LEFT$(a$,1) 

IF  a$<"1'1  OR  a$>"8"  THEN  BEEP  :  GOTO  Abfrage 
IF  a$="1"  THEN  Texteingabe 
IF  a$=H2"  THEN  ObjEinlesen 
IF  a$="3"  THEN  ObjBewegung 
IF  at^'A1'  THEN  Farbdef inition 
IF  a$="5"  THEN  Wiedergabe 
IF  a$=,,6H  THEN  BildVorbereiten 
IF  aS="7"  THEN  TitelLaden 
IF  a$=,,8"  THEN  TitelSpeichern 
PRINT  "Punkt  "a$"  nicht  vorhanden" 
GOTO  Abfrage 
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Die  Bedienung  ist  auch  ganz  einfach:  Wenn  Sie  einen  Titel  zu- 
sammengestellt  haben  und  ihn  nach  der  Wiedergabe  (Punkt  5) 
fur  gut  befinden,  kSnnen  Sie  ihn  mit  Punkt  8  abspeichern.  Das 
Unterprogramm  fragt  Sie  nach  dem  gewiinschten  Dateinamen.  In 
die  angegebene  Datei  werden  alle  wichtigen  Daten  des  Video- 
titels  geschrieben.  Wenn  Sie  sp&ter  den  Titel  wieder  einlesen 
wollen,  wahlen  Sie  Option  7  und  geben  den  Dateinamen  ein. 
Nach  dem  Lesen  der  Datei  sind  dem  Programm  alle  Daten  ge- 
nauso  bekannt,  als  ob  Sie  sie  vorher  von  Hand  festgelegt  hatten, 
und  Sie  kdnnen  "Wiedergabe"  wihlen. 

Zu  den  Titelsequenzen  noch  eine  Anregung:  Wenn  Sie  die  Pro- 
grammteile  'Vorbereitungen:',  'Wiedergabe:'  bis  einschlieBlich 
'GeschwBerechnen:'  und  TitelLaden:'  auBerdem  die  SUB-Rou- 
tine  'Laden*  zu  einem  kleinen  Programm  zusammensetzen,  indem 
Sie  den  Rest  des  Videotitel-Programms  rauswerfen,  kommt  ein 
Wiedergabe-Programm  heraus,  das  Sie  zum  Beispiel  fur  Titel  vor 
eigenen  Programmen  einsetzen  k6nnen.  Speichern  Sie  dieses  Pro- 
gramm aber  bitte  unbedingt  unter  neuem  Namen  ab,  damit  Sie 
das  Videotitel-Programm  nicht  laschen.  Wie  Sie  erreichen,  daB 
ein  Programm  (wie  das  Wiedergabe-Programm)  ein  anderes  Pro- 
gramm (z.B.  Ihr  Hauptprogramm)  nachiadt  und  ausfuhrt,  erfah- 
ren  Sie  beim  CHAIN-Befehl  im  Anhang  B.  Sie  kdnnen  dann 
einen  Tilel  mit  dem  Videotitel-Programm  erzeugen  und  ihn 
vielleicht  vor  einem  selbstgeschriebenen  Spiel  laufen  lassen.  Na- 
turlich  auch  vor  Ihrer  Finanz-Daten-Verwaltung,  ganz  wie  Sie 
wollen. 
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4.7        BASICS  kleine  Bastelstunde  -  wir  bauen  unsere  Befehlc 
selbst 

Wir  haben  jetzt  einige  M6gliehkeiten  kennengelernt,  die  IFF- 
Lade-Routine  in  vorhandene  Programme  einzubauen.  Trotzdem 
ware  naturlich  fur  Sie  und  auch  fur  uns  alles  viel  einfacher  ge- 
wesen,  wenn  Microsoft  von  vornherein  Befehle  zum  Laden  und 
Speichern  von  Bildern  in  AmigaBASIC  eingebaut  hatte.  Obwohl 
AmigaBASIC  eine  sehr  leistungsfahige  Programmiersprache  ist, 
werden  Sie  wahrscheinlich  beim  Entwickeln  eigener  Programme 
after  an  den  Punkt  kommen,  wo  Sie  eine  bestimmte  Funktion 
Oder  einen  bestimmten  Befehl  vermissen,  der  zwar  unheimlich 
n&tzlich  ware,  aber  eben  leider  nicht  existiert.  Man  muB  aller- 
dings  fairerweise  zugeben,  daB  die  Wunsche  von  Programmierern 
sehr  breit  gestreut  sein  konnen.  Wahrend  wir  als  Grafik-Fans 
gem  Befehle  zum  Laden  und  Speichern  von  IFF-Dateien  hatten, 
sagt  sich  ein  begeisterter  Finanzmathematiker  vielleicht:  "Auf 
diese  Spielereien  kann  ich  gut  verzichten,  aber  ein  Befehl,  der 
den  Korrelationskoeffizienten  einer  Reihe  statistischer  Daten 
ermittelt,  der  ware  wirklich  wichtig..." 

Uber  Geschmack  laBt  sich  ja  bekanntlich  streiten.  Das  wuBten 
auch  die  Entwickler  von  AmigaBASIC  und  haben  einige 
Mflglichkeiten  vorgesehen,  wie  man  beim  Programmieren  eigene 
Routinen  nachriisten  kann,  die  sich  fast  wie  BASIC-Befehle 
verhalten. 

Eine  Methode,  urn  das  zu  erreichen,  haben  Sie  vor  kurzem 
kennengelernt:  Die  SUB-Routinen.  Vielleicht  k6nnen  Sie  sich 
noch  nicht  so  ganz  vorstellen,  wie  wir  mit  dem  SUB-Befehl 
neue  Befehle  programmieren  wollen.  Am  besten,  wir  zeigen  Ih- 
nen  mal  ein  Beispiel:  Erinnern  Sie  sich  noch  an  die  Funktion 
DATES?  Wir  haben  ihre  Bekanntschaft  im  Kapitel  1.17  bei  der 
Entwicklung  unseres  Videotitel-Programms  gemacht. 

?  dates 

liefert  das  Datum,  das  AmigaDOS  fOr  das  Tagesdatum  halt. 
Wenn  dieses  Datum  nicht  stimmt,  geben  Sie  bitte  nicht  Ihrem 
Amiga  die  Schuld.  SchlieBlich  sind  Sie  dafar  verantwortlich,  daB 
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in  Preferences  bzw.  in  die  batteriegepufferte  Echtzeituhr  das 
richtige  Datum  angegeben  wird.  Auf  jeden  Fall  bleibt  bei 
DATES  ein  kleines  Problem:  Die  amerikanische  Schreibweise. 
AmigaBASIC  zeigt  namlich  zuerst  den  Monat  an,  dann  den  Tag 
und  dann  das  Jahr.  Vielleicht  brauchen  Sie  aber  in  einem  Pro- 
gramm  hiufig  das  Datum  in  deutscher  Schreibweise  (Tag,  Mo- 
nat, Jahr).  Dann  empfehlen  wir  Ihnen,  folgende  SUB-Routine 
hinter  Ihr  Programm  zu  hangen: 

SUB  Datum  STATIC 

PRINT  MID$(DATE$>,2)'\»LEFT$(DATE$,2)''.''RIGHT$<DATE$,4) 
END  SUB 

Dank  diesem  SUB-Programm  kdnnen  Sie  ab  jetzt  in  Ihrem  Pro- 
gramm anstelle  von  PRINT  DATES  einfach 

Datum 

schreiben.  Oder  CALL  Datum,  wenn's  MiBverstandnisse  gibt. 
Und  schon  wird  das  Datum  an  die  aktuelle  Cursorposition  ge- 
druckt.  Wahrend  DATES  als  Ergebnis  zum  Beispiel  "02-28-1988" 
lieferte,  erhalten  Sie  durch  unsere  SUB-Routine  "28.02.1988". 
Gut,  nicht? 

Auch  im  Direktmodus  kOnnen  Sie  die  SUB-Programme  verwen- 
den.  Geben  Sie  doch  einfach  mal 

Datum 

im  BASIC-Window  ein.  Wenn  irgendwo  im  aktuellen  Programm 
eine  SUB-Routine  steht,  kann  sie  auch  aus  dem  Direktmodus 
aufgerufen  werden. 

Jetzt  verstehen  Sie  sicher  auch,  warum  AmigaBASIC  so  oft  die 
Fehlermeldung  "Undefined  subprogram"  bringt  (sie  bedeutet: 
"Das  SUB-Programm  wurde  nicht  definiert"),  wenn  es  eine  Ein- 
gabe  nicht  versteht.  Meist  ist  ein  Tippfehler  die  Ursache  dafur. 
Haben  Sie  zum  Beispiel 

pint  aS 
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anstelle  von 

print  a$ 

getippt,  sucht  AmigaBASIC  verzweifelt  nach  einem  SUB-Pro- 
gramm  namens  'pint'.  Und  weil  es  keines  findet,  kommt  die  ge- 
nannte  Fehlermeldung.  Probieren  Sie  das  ruhig  mal  aus. 

Jetzt  nochmal  zuriick  zu  unserer  'Datum'-Routine:  Kennen  Sie 
uberhaupt  schon  den  MID$-Befehl?  Im  Gegensatz  zu  LEFTS 
und  RIGHTS  ermflglicht  er,  Zeichen  aus  der  Mitte  eines  Strings 
zu  isolieren.  Sie  geben  dazu  den  Stringnamen  an,  die  Position 
innerhalb  des  Strings  und  die  Lange  des  Teils,  den  Sie  isolieren 
wollen: 

PRINT  MID$(Stringname,Position,Lange) 

Wenn  Sie  aus  dem  String  'a$'  ab  dem  4.  Zeichen  einen  2  Zeichen 
langen  String  isolieren  wollen,  erreichen  Sie  das  mit 
MID$(a$,4,2).  In  unserer  SUB-Routine  brauchen  wir  MID$,  urn 
an  die  beiden  Zeichen  zu  kommen,  in  denen  der  Tag  steht  (z.B. 
28).  Der  zwei  Zeichen  lange  LEFTS  liefert  dann  den  Monat  (10) 
und  der  vier  Zeichen  lange  RIGHTS  das  Jahr  (1986). 

Wer  bisher  gut  aufgepaBt  hat,  wird  jetzt  fragen:  MBei  vielen  Be- 
fehlen  gibt  es  doch  noch  eine  ganze  Latte  Parameter  hinten 
dran.  Kann  ich  denn  sowas  auch  in  einer  SUB-Routine  errei- 
chen?" Sie  kflnnen.  AmigaBASIC  hat  n&mlich  auch  dafur  vorge- 
sorgt. 

Zuerst  wieder  ein  einfaches  Beispiel:  Sie  stehen  kurz  vor  Ihrem 
Amerika-Urlaub  und  brauchen  deshalb  in  einem  Programm  eine 
Routine,  die  Dollar-Betrage  in  DM  umrechnet.  Oder  Sie  kom- 
men gerade  aus  Amerika  und  fragen  sich,  wo  nur  Ihr  ganzes 
Geld  geblieben  ist.  Zunfcchst  zum  SUB-Programm.  Wir  gehen 
von  einem  Dollarkurs  von  1.70  DM  aus.  Zum  Zeitpunkt,  als 
dieses  Buch  geschrieben  wurde,  war  dieser  Wert  ziemlich  op- 
timistisch.  Aber  so  etwas  kann  sich  ja  schnell  andern. 
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SUB  Dollar  (Wert)  STATIC 

PRINT  Wert  "$  sind"  Wert*1.70  "DM" 
END  SUB 


Die  Parameter,  die  einer  SUB-Routine  ubergeben  werden  sollen 
stehen   in   der   SUB...STATIC-Zeile   in   Klammern    hinter   dem 
Namen  der  Routine.  In  unserem  Fall  hat  der  Paramter  den  Na- 
men  'Wert'.   Beim  Aufruf  kOnnen  Sie  die  Klammern  urn  den 
Wert  weglassen.  Probieren  Sie  also  jetzt  im  BASIC-Window: 


Dollar  34.00 

Geben  Sie  die  Zeile  bitte  genauso  ein,  wie  wir  sie  abgedruckt 
haben.  Ihr  Amiga  wird  Ihnen  antworten: 

34  $  sind  57.8  DM 

Hinter  'Dollar'  haben  Sie  in  unserem  Beispiel  den  Dollar-Betrag 
34.00  angegeben.  Das  SUB-Programm  weist  den  ubergebenen 
Wert  der  Variablen  'Wert'  zu  und  errechnet  daraus  den  DM- 
Wert.  Die  Variable  'Wert'  ist  eine  lokale  Variable  des  SUB-Pro- 
gramms.  Im  Hauptprogramm  und  im  Direktmodus  kdnnen  Sie 
ihren  Inhalt  nicht  feststellen.  Das  war  in  unserem  Fall  auch 
nicht  ndtig,  denn  das  SUB-Programm  druckt  den  umgerechneten 
Wert  ja  gleich  aus. 

Was  aber  tun,  wenn  Sie  mit  dem  SUB-Programm  einen  Wert  nur 
umrechnen  und  nicht  sofort  ausdrucken  wollen?  Auch  das  ist 
nicht  allzu  schwer:  Diesmal  rechnen  wir  zur  Abwechslung  von 
DM  in  Dollar  urn.  Das  Unterprogamm  sieht  dann  so  aus: 

SUB  Dollar  (Wert)  STATIC 

Wert  =  Wert  *  1/1.70 
END  SUB 

Und  der  Aufruf  im  BASIC-Window  so: 
Wert=10.20  :  Dollar  Wert  :  ?  Wert 
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Als  Ergebnis  erhalten  Sie  6.  Denn  10.20  DM  sind  6.00  $.  Wie  hat 
das  nun  genau  funktioniert?  Der  Variablen  'Wert'  haben  Sie  im 
Direktmodus  den  Wert  10.20  zugewiesen.  Das  ist  der  DM-Betrag. 
Dann  haben  Sie  das  SUB-Programm  'Dollar'  mit  dem  Parameter 
'Wert'  aufgerufen.  Bitte  auch  diesmal  ''Wert1  unbedingt  ohne 
Klammern  schreiben!  Als  Sie  schlieBIich  die  Variable  'Wert'  mit 
PRINT  drucken  lieBen,  hatte  sie  den  neuen  Inhalt  6.  Wichtig  ist, 
daB  die  Variable  'Wert1  im  Direktmodus  und  die  Variable  'Wert' 
im  SUB-Programm  nichts  miteinander  zu  tun  haben.  Sie  hatten 
die  Umrechnung  auch  mit  jeder  anderen  Variablen  aufrufen 
kfinnen.  Wir  treten  sofort  den  Beweis  an: 

DM=10.20  :  Dollar  DM  :  ?  DM 

Das  hat  nichts  mit  Zauberei  zu  tun,  sondern  hangt  mit  der 
Arbeitsweise  von  SUB-Programmen  zusammen:  Die  lokale  Va- 
riable 'Wert'  in  der  SUB-Routine  'Dollar'  hat  nur  die  Funktion, 
sich  den  Wert  zu  merken,  der  als  Parameter  mitgeschickt  wurde, 
und  ihn  innerhalb  der  Routine  fur  Berechnungen  bereitzustellen. 
Wenn  Sie  hinter  'Dollar'  direkt  eine  Zahl  (wie  34.00  in  unserem 
Beispiel  von  vorhin)  angeben,  war  das  auch  schon  alles.  Geben 
Sie  aber  eine  Variable  (wie  'DM'  in  unserem  Beispiel  von  gerade 
eben)  an,  die  umgerechnet  werden  soil,  wird  dieser  Variablen 
nach  der  Riickkehr  aus  der  SUB-Routine  der  neue,  errechnete 
Wert  zugewiesen.  Und  das  ist  ja  die  Zahl,  die  in  der  lokalen 
Variablen  'Wert'  gespeichert  war. 

Fur  den  Fall,  daB  Sie  nicht  ganz  sicher  sind,  ob  Sie  das  eben 
wirklich  verstanden  haben,  noch  ein  Beispiel.  Wir  schreiben  ein 
ganz  einfaches  SUB-Programm,  das  die  iibergebene  Zahl  ver- 
doppelt: 

SUB  Verdopple  (Zahl)  STATIC 

Zahl=Zahl*2 
END  SUB 

Rufen  Sie  diese  Routine  bitte  im  BASIC-Window  folgender- 
maBen  auf: 

a=2  :  Verdopple  a  :  print  a 
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Toll,  nicht  wahr?  Jetzt  sind  wir  schon  soweit,  daB  wir  mit  un- 
serem  Amiga  Deutsch  reden  kflnnen.  Naja  -  nicht  ganz,  dahinter 
steckt  ein  kleiner  Trick:  Unser  SUB-Programm  hat  den  Namen 
'Verdopple*.  Der  Befehl 

Verdopple  a 

ruft  das  SUB-Programm  'Verdopple'  auf  und  ubergibt  als  Para- 
meter den  Wert  der  Variablen  'a'.  Diesen  Wert  ubergibt  die 
'Verdopple'-Routine  ihrer  Variablen  'Zahl*.  Mit  'Zahl*  wird  nun 
innerhalb  der  Routine  gerechnet.  Bei  der  RQckkehr  Obergibt  das 
SUB-Programm  den  Inhalt  seiner  Variablen  'Zahl*  dann  wieder 
an  die  Parameter- Variable  'a'.  So  kann  das  Hauptprogramm  das 
Ergebnis  der  Berechnung  erfahren.  Von  der  lokalen  SUB-Vari- 
ablen  'Zahl'  hat  es  ja  nie  etwas  gewuBt. 

Naturlich  gibt  es  auch  Situationen,  wo  Sie  das  alles  gar  nicht 
wollen:  "Da  verleiht  man  nun  seine  schfine  runde  Variable  an  die 
SUB-Routine,  und  was  bekommt  man  zuriick?  Einen  vflllig  an- 
deren  Wert.H  Das  ist  ja  immerhin  fast  so,  als  ob  Sie  einem  Be- 
kannten  Ihre  Ausgabe  unseres  AmigaBASIC-Buchs  leihen  und 
dann  nach  einiger  Zeit  Grunbert  Grfrsleins  "Okologie  im  Vor- 
garten"  zuruckbekommen.  "Aber  was  hast  Du  denn?  Du  hast  mir 
ein  Buch  geliehen,  und  Du  bekommst  ein  Buch  zuriick..." 

Was  also  tun,  wenn  Sie  dem  SUB-Programm  zwar  den  Wert  ei- 
ner  Variablen  mitteilen,  ihn  aber  nicht  verSndern  lassen  wollen? 
Ganz  einfach:  Nun  kommt  die  groBe  Stunde  der  Klammern.  Die 
Klammern  um  einen  Parameter  wirken  wie  ein  Schutz,  sie  ver- 
hindern  VerSnderungen  des  Inhalts. 

Wenn  Sie  die  'Verdopple'-Routine  folgendermaBen  aufrufen, 
verindert  sich  der  Wert  von  'a*  nicht: 

a=2  :  Verdopple  (a)  :  print  a 

Die  Variable  'a'  hat  vor  und  nach  dem  SUB-Aufruf  den  Wert  2. 
Zwar  lauft  das  SUB-Programm  'Verdopple'  ganz  normal  durch, 
aber  es  kann  sein  Ergebnis  nicht  an  'a*  weitergeben,  weil  V 
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durch  die  Ktammern  geschutzt  ist.  Das  Verdoppeln  wird  da- 
durch  naturlich  ziemlich  sinnlos.  Aber  wenn  wir  zuriick  zu  un- 
seren  Wahrungsumrechnungen  gehen,  sehen  Sie  den  Vorteil: 

SUB  Dollar  (Wert)  STATIC 

PRINT  Wert  "DM  sind"; 

Wert=Wert  *  1/1.70 

PRINT  Wert  "$" 
END  SUB 

Wenn  Sie  dieses  SUB-Programm  wie  gewohnt  aufrufen, 

DM=21.60  :  Dollar  DM 

erfahren  Sie,  daB  21.60  DM  umgerechnet  run  12.70  $  sind.  Aber 
schauen  Sie  sich  jetzt  mal  den  Wert  von  DM  an: 

?  DM 

Hat  doch  tatsachlich  der  Dollar  die  Deutsche  Mark  verdrangt. 
Der  Inhalt  von  'DM*  wurde  'Wert'  iibergeben,  'Wert'  Snderte  sich 
und  wurde  zurOck  an  'DM'  tibergeben.  Resultat:  'DM'  hat  sich 
auch  geandert.  Innerhalb  eines  Programms  stunde  der  alte  Wert 
von  'DM'  jetzt  nicht  mehr  zur  Verfugung. 

So  hatten  Sie  das  vermeiden  k6nnen: 

DM=21.60  :  Dollar  (DM) 

Das  Ergebnis  ist  dasselbe,  aber  die  'DM1  behalt  ihren  Wert. 
M6glicherweise  beginnen  Sie,  langsam  Ihr  Interesse  am  inter- 
nationalen  Kursgefiige  zu  verlieren.  Das  ist  auch  nicht  schlimm, 
selbst  Finanzgenies  soil  es  ihanchmal  so  ergehen. 

Damit  Sie  gleich  wieder  mehr  SpaB  haben,  verraten  wir  Ihnen 
jetzt,  warum  wir  uns  in  diesem  Kapitel  so  lang  und  breit  uber 
SUB-Aufrufe  ausgelassen  haben:  Wir  wollen  namlich  eine  SUB- 
Routine  entwickeln,  die  IFF-Bilder  speichern  kann.  Wenn  Sie 


Laden  und  Speichern  von  Grafiken 445 


die  hinter  Ihre  Programme  hangen,  dann  kOnnen  Sie  mit  einem 
einfachen  Befehl  jedes  beliebige  Bild  auf  Diskette  speichern. 
Das  ist  doch  was,  oder? 

Ein  kleines  Stolpersteinchen  auf  dem  Weg  zum  Erfolg  miissen 
wir  aber  noch  aus  dem  Weg  raumen,  und  zwar  im  nachsten 
Zwischenspiel. 


Zwischenspiel  7:  AmigaBASICs  Gmselkabinett  -  Zahlensysteme 

Vielleicht  vorab  ein  paar  Worte  zum  Team  RUgheimer/Spanik. 
Wir  erlauben  Ihnen  hiermit  aus  besonderem  AnlaB  einen  Blick 
hinter  die  Kulissen.  Unsere  Arbeitsteilung  beim  Schreiben  eines 
Buches  sieht  ganz  einfach  so  aus:  Hannes  ROgheimer  legt  sein 
gesammeltes  Programmiererwissen  in  die  Waage,  Christian  Spa- 
nik  seine  Erfahrung  von  mehreren  Jahren  Dasein  als  Werbe- 
texter.  Die  Ideen  entwicklen  wir  meistens  zusammen,  in  einer 
Art  geistigem  Ping  Pong.  So  einfach  ist  das.  Nachdem  Hannes 
aber,  just  als  wir  an  diesem  BASIC-Buch  gearbeitet  haben,  sei- 
nen  Pflichten  gegenuber  Vater  Staat  nachzukommen  hatte  (Sie 
kennen  das  ja:  "Geeeefreiter  Riiuugheimerr...")  und  er  auBerdem 
in  Wtirzburg  wohnt,  war  es  zum  Teil  nOtig,  daB  Hannes  gewisse 
Teile  des  Buches  im  stillen  Kammerlein  schrieb  und  Christian 
sie  erst  spater  iiberarbeiten  konnte.  So  fanden  sich  innerhalb  des 
Textes  immer  wieder  MKommunikationsteileM,  die  demjenigen, 
der  gerade  an  dem  Text  arbeitete,  bestimmte  Gedanken,  Ideen 
oder  auch  Probleme  bei  einzelnen  Textabschnitten  schilderten. 

wWarum  urn  alles  in  der  Welt  erzahlen  die  mir  das  jetzt  bloB?\ 
werden  Sie  sich  wahrscheinlich  fragen.  Der  Grund  ist  dieses 
Zwischenspiel:  Es  gehflrt  sicherlich  zu  den  schwierigsten  im 
Buch.  Und  es  entstand  in  Wurzburg.  Als  es  dann  schlieBlich  in 
Dusseldorf  ankam,  fand  Christian  just  an  der  Stelle,  an  der  Sie, 
lieber  Leser,  jetzt  sind,  folgende  Anmerkung: 
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"((!!!  Lieber  Chris!  Dieses  Kapitel  ist  wirklich  ein 
biBchen  gruselig.  Zahlensysteme  und  viel  Mathe!  Das 
Zeug  ist  aber  leider  wichtig  fur  die  SUB-Pro- 
gramme.  Versuch's  bitte  so  nett  wie  mSglich  zu  ma- 
chen...))" 

Um  es  gleich  zu  sagen:  Wir  versuchten  beide,  es  so  nett  wie 
moglich  zu  machen.  Ob  uns  das  gelungen  ist,  mussen  wir  Ihrem 
Urteil  iiberlassen.  Auf  jeden  Fall  haben  wir  versucht,  Ihnen 
auch  hier  ein  komplexes  Thema  moglichst  einfach  zu  erkliiren. 
Wenn  Sie  also  nicht  bis  in  die  letzten  Tiefen  dieses  Kapitels  vor- 
dringen,  ist  es  nicht  so  schlimm.  Der  Rest  kommt  noch  im  Lauf 
der  Erfahrung.  Wirklich  wichtig  sind  solche  Zahlenspielereien 
fur  die  Leute,  die  spfcter  SUB-Routinen  programmieren  mussen. 
Soweit  alles  klar?  Dann  lassen  Sie  also  den  Mut  nicht  sinken, 
und  los  geht's: 

Manchmal  kann  AmigaBASIC  ganz  sch6n  pingelig  sein.  Und 
zwar  besonders  dann,  wenn  es  um  so  ernste  Dinge  geht  wie  die 
Programmierung  eigener  Befehle.  Immerhin  gehen  wir  damit  ja 
schon  ziemlich  nah  an  seine  innersten  Funktionen...  Wovon  wir 
sprechen?  Nun,  bei  den  verschiedenen  Beispielen  mit  Dollars, 
Daten,  Deutschen  Mark  und  doppelten  Zahlen  haben  wir  Sie 
immer  gebeten,  auch  ganze  BetrSge  (wie  34  $)  als  Kommazahl 
anzugeben.  Also  etwa  so: 

Dollar  34.00 

Warum  eigentlich?  SchlieBlich  miiBte  doch  die  Zahl  34  genau 
dasselbe  bewirken  wie  34.00.  Oder  etwa  nicht? 

Schreiben  Sie  bitte  noch  einmal  die  Ur- Version  des  SUB-Pro- 
gramms  'Dollar'  ins  LIST-Window: 

SUB  Dollar  (Uert)  STATIC 

PRINT  Wert  "$  sind"  Uert*2.25  "DM" 
END  SUB 
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Rufen  Sie  es  dann  im  BASIC-Window  auf: 

Dollar  34 

Was  Ihr  Amiga  dazu  meint,  haben  Sie  wahrscheinlich  gerade 
selbst  erlebt:  "Type  mismatchH-Error  meint  er.  Typ  stimmt  nicht 
uberein."  Wie  bitte?  Wer  oder  was  stimmt  da  nicht  uberein?  Der 
Typ?  Na,  und  er  soil  die  34  Dollar  ja  nicht  heiraten,  sondern 
umrechnen  -  um  ehrlich  zu  sein,  wir  muBten  auch  ganz  schon 
lange  suchen,  bis  wir  herausfanden,  was  Amiga  jetzt  schon  wie- 
der  hatte.  Wie  gesagt:  Er  kann  ganz  schfin  pingelig  sein,  wenn's 
um  seine  innersten  Funktionen  geht. 

Das  Problem:  Die  Zahl  34  ist  fur  den  Amiga  eine  ganze  Zahl. 
"Logisch,  fur  uns  doch  auch?!"  -  Stimmt  schon,  aber  die  Va- 
riable 'Wert'  ist  nicht  fur  ganze  Zahlen  gedacht.  'Wert'  ist  viel- 
mehr  eine  FlieBkommavariable.  Vom  "springenden  Punkt"  hat  ja 
jeder  schon  mal  gehdrt.  Vom  "hiipfenden  Komma"  wahrschein- 
lich auch.  Aber  TlieBendes  Komma"? 

Nur  die  Ruhe!  Der  Bildschirm  Ihres  Amiga  wird  nicht  langsam 
dahinschmelzen.  Das  ist  alles  ganz,  ganz  anders  gemeint.  Das, 
womit  wir  uns  jetzt  beschaftigen  mussen,  ist  die  interne  Ver- 
waltung  von  Zahlen  bei  AmigaBASIC.  Vereinzelt  haben  wir  ja 
schon  verschiedene  Zahlentypen  kennengelernt,  wie  zum  Beispiel 
die  Integer-Zahlen,  die  16-Bit-Zahlen  oder  die  32-Bit-Zahlen. 
Jetzt  wird  es  Zeit,  in  das  Ganze  ein  wenig  System  zu  bringen. 
Kummern  wir  uns  am  besten  erst  mal  urn's  rutschende  Komma 
oder  wie  das  Ding  heiBt. 

FlieBkommavariablen  sind  die  Variablen,  mit  denen  Sie  wahr- 
scheinlich am  haufigsten  zu  tun  haben.  Alle  Variablennamen,  die 
keine  besondere  Kennzeichnung  am  Ende  haben,  sind  FlieB- 
kommavariablen. Also  zum  Beispiel  'Hallo',  V,  'Farben'  usw. 
Der  Ausdruck  ,,FlieBkomma,,  bedeutet,  daB  das  Komma  nicht  an 
einem  festen  Platz  steht.  Ein  paar  Beispiele  fur  FlieBkomma- 
werte  machen  das  deutlich: 
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100.23 
3.141593 
1.4 
.143 

4.1165 

Das  Komma  steht  an  den  verschiedensten  Stellen  innerhalb  der 
Zahl,  es  ist  nicht  an  seinen  Platz  gebunden.  Alle  gezeigten  Zah- 
len  konnen  Sie  in  FlieBkommavariablen  ('Hallo1,  'a1,  'Farben' 
usw,)  speichern.  Diese  Werte  haben  bis  zu  sieben  Stellen.  Mehr 
ist  nicht  drin.  Probieren  Sie's  aus: 

a=0.2435475776443   :  ?  a 

Als  Ergebnis  erhalten  Sie  die  Zahl  .2435476 

Nach  sieben  Stellen  wurde  die  Kommazahl  abgeschnitten  und 
gerundet.  Das  Komma  zahlt  bei  den  sieben  Stellen  ubrigens 
nicht  mit. 

Das  war  eine  ziemlich  kleine  Zahl.  Und  wie  verhSlt  sich  Amiga- 
BASIC bei  sehr  groBen  Zahlen? 

a=3426478236487367489  :  ?a 

Sie  miissen  ubrigens  nicht  jedesmal  genau  dieselben  Zahlen  ein- 
tippen  wie  wir.  Das  ware  doch  ein  biBchen  viel  verlangt.  Geben 
Sie  einfach  eine  Zahl  ein,  die  ungefahr  gleich  lang  ist.  Als  Er- 
gebnis unserer  letzten  Eingabe  erhielten  wir: 

3.426478E+18 

Diese  Schreibweise  fur  Zahlen  kennen  Sie  vielleicht  von  Ihrem 
Taschenrechner.  Man  nennt  sie  "wissenschaftliche  Darstellung" 
oder  "Exponentialdarstellung".  Der  erste  Name  kommt  nicht  da- 
her,  daB  sich  um  ihr  Verstandnis  eine  eigene  Wissenschaft  rankt. 
So  schlimm  wird's  nun  auch  wieder  nicht.  Nein,  Wissenschaftler 
(besonders  Physiker  und  Mathematiker)  haben  befufsbedingt  mit 


Laden  und  Speichern  von  Grafiken ^^  449 


unvorstellbar  groBen  oder  unvorstellbar  kleinen  Zahlen  zu  tun. 
(Unvorstellbar,  was?)  Deshalb  haben  sie  sich  eine  besondere 
Schreibweise  dafur  einfallen  lassen: 

3.426478E+18  bedeutet  ausfiihrlich  3.426478  *  1018. 

So  erkennt  man  besser,  in  welcher  GroBenordnung  sich  die  Zahl 
bewegt. 

Im  Zwischenspiel  4  haben  Sie  gelesen,  daB  das  Binarsystem  auf 
der  Zahl  2  basiert.  Bei  jeder  neuen  Zweier-Potenz  wird  eine 
neue  Stelle  erdffnet:  2°=1  (bin.  1),  2*=2  (bin.  10),  22=4  (bin.  100) 
usw.  Das  Dezimalsystem,  also  unser  gewohntes  Zahlensystem, 
funktioniert  genauso.  Nur  daB  es  diesmal  Zehnerpotenzen  sind, 
die  eine  neue  Stelle  hervorbringen:  10°=1,  10*=  10,  102=100, 
10  =1000.  Und  so  geht's  immer  weiter.  Mit  jeder  Zehnerpotenz 
werden  die  Zahlen  grflBer.  Nur  wenn  Sie's  interessiert:  Die  Zahl 
10  aus  dem  Beispiel  oben  ist  eine  Trillion,  das  ist  eine  1  mit 
18  Nullen  hinten  dran.  Also  eine  ziemlich  groBe  Zahl.  Der  Ex- 
ponent (die  Hochzahl)  gibt  bei  den  Zehner-Potenzen  immer  die 
Anzahl  der  Nullen  an. 

1.0E+3  ist  1.0  *  103,  also  1000.  Drei  Nullen. 

3.4E+2  ist  3.4  *  102  ist  3.4  *  100  (zwei  Nullen),  also  340. 

Auch  fur  sehr  kleine  Zahlen  benutzt  AmigaBASIC  die  Exponen- 
tialdarstellung: 

a=  1/202  :  ?  a 

Das  Ergebnis  4.950495E-03  bedeutet:  4.950495  *  10"3.  10"3  ist 
1/103.  In  normaler  Schreibweise  heiBt  die  Zahl:  0.004950495 

Bitte  machen  Sie  sich  keine  Sorgen:  Wenn  Sie  normalerweise  mit 
solchen  Zahlen  nichts  zu  tun  haben,  werden  Sie  wahrscheinlich 
auch  keine  Programme  schreiben,  wo  sie  vorkommen.  Und  dann 
macht's  nichts,  wenn  Sie  das  gerade  nicht  so  hundertprozentig 
verstanden  haben. 
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Das  Ergebnis  vom  letzten  Beispiel  stimmt  sowieso  nicht  genau, 
AmigaBASIC  hat  sich  ein  wenig  verrechnet.  "Jaja,  der  Amiga 
hat  wirklich  menschliche  Zuge  -  ein  biBchen  unordentlich,  ein 
biBchen  pingelig,  und  rechnen  kann  er  auch  nicht." 

Aber  lassen  Sie  sich  erkl&ren,  woran's  liegt.  Im  allgemeinen  er- 
wartet  man  von  einem  Computer  ja  nicht  gerade,  daB  er 
Rechenfehler  macht.  Unser  Amiga  ist  aber  mit  seinem  Problem 
nicht  allein.  Alle  Computer  haben  Schwierigkeiten  mit  Komma- 
zahlen.  Nach  wie  vor  muB  ja  jede  Zahl  in  Bits  umgewandelt 
werden,  bevor  der  Computer  damit  auch  nur  das  Geringste  an- 
fangen  kann.  Wie  das  bei  ganzen  Zahlen  geht,  haben  Sie  im 
Zwischenspiel  4  gesehen.  Bei  Kommazahlen  ist  es  wesentlich 
schwieriger,  wir  wollen  hier  nicht  darauf  eingehen.  (Wer's  unbe- 
dingt  wissen  will,  kann  sich  ja  mal  mit  dem  Anhang  D  des 
AmigaBASIC-Handbuchs  von  Commodore  beschaftigen.  Aber 
sagen  Sie  nicht,  wir  hatten  Sie  nicht  gewarnt.)  Bei  dieser  Um- 
wandlerei  von  Zahlen  in  Bits  und  zuriick  schleichen  sich  klei- 
nere  Rechenfehler  ein.  Meistens  handelt  es  sich  urn  Rundungs- 
fehler.  Versuchen  Sie  zum  Beispiel  mal 

?  100.1   -   100 

Statt  dem  richtigen  Ergebnis  0.1  kommt  AmigaBASIC  auf  den 
Wert  9.999847E-02.  Das  ist  0.099,  also  ziemlich  nahe  dran.  Aber 
ganz  genau  stimmt's  eben  nicht. 

Apropos  HgenauM.  Die  Beispiele,  die  wir  bisher  fur  FlieBkomma- 
zahlen  kennengelernt  haben,  waren  alles  Zahlen  "einfacher 
Genauigkeit".  Wenn  es  Zahlen  "einfacher  Genauigkeit"  gibt,  muB 
es  wohl  noch  genauere  Zahlen  geben.  (Was  auch  immer  das  be- 
deuten  mag.) 

Die  "Genauigkeiten"  h&ngen  mit  der  internen  Zahlenverwaltung 
zusammen:  Einfach  genaue  Zahlen  kftnnen  bis  zu  sieben  Stellen 
haben.  Die  Werte  liegen  in  der  GrflBenordnung  von  10"  und 
10+38.  Die  kennen  Sie  also  schon.  Im  Gegensatz  dazu  gibt  es  die 
doppelt  genauen  Zahlen.  Sie  haben  bis  zu  16  Stellen  und  kOnnen 
Wert  zwischen  10"308  und  10+308  beinhalten.  Normalerweise  ver- 
wendet  AmigaBASIC  FlieBkommavariablen  einfacher  Genauig- 
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keit.  Das  sind  die  Variablen  vom  Typ  *Hallo\  V  und  Tarben', 
aber  das  kennen  Sie  ja  schon...  Wenn  Sie  mit  Variablen  doppel- 
ter  Genauigkeit  arbeiten  wollen,  mussen  Sie  die  Variablen  be- 
sonders  kennzeichnen.  Das  Zeichen  fur  doppelte  Genauigkeit  ist 
ein  #-Zeichen  hinter  dem  Variablennamen. 

Vergleichen  Sie: 

a=1/202  :  ?  a 

(Ergebnis:  4.950495E-03)  und 

a#=1/202  :  ?  a# 

(Ergebnis:  4.950494971 126318D-03).  Die  zweite  Zahl  hat  viel 
mehr  Stellen,  also  ist  sie  genauer.  Das  D,  das  dort  auftaucht,  wo 
wir  ein  E  gewohnt  sind,  weist  darauf  hin,  dafi  es  sich  urn  eine 
doppelt  genaue  Zahl  handelt  (engl.:  "Double  Precision  Number"). 
Sonst  bleibt  aber  alles  beim  alten.  1.0E+3  und  1.0D+3  bedeuten 
dasselbe,  nSmlich  103,  also  1000. 

Wahrscheinlich  fragen  Sie  sich,  ob  es  iiberhaupt  jemanden  gibt, 
der  sich  fur  soviele  Stellen  bei  einem  Rechenergebnis  interes- 
siert.  Ob  Sie  die  hflhere  Genauigkeit  brauchen,  hangt  von  Ihren 
Berechnungen  ab.  Wenn  maglich,  sollten  Sie  lieber  auf  doppelt 
genaue  Zahlen  verzichten.  Sie  haben  n&mlich  auch  Nachteile:  Die 
Berechnungen  dauern  linger,  und  die  Zahlen  brauchen  mehr 
Speicherplatz. 

Jetzt  ware  es  wirklich  an  der  Zeit,  daB  Sie  eine  kleine  Pause 
einlegen.  Die  ganze  Rechnerei  war  ja  doch  ziemlich  anstrengend. 
Aber  den  schlimmsten  Teil  haben  Sie  sowieso  uberstanden. 
Komplizierter  wird's  nicht  mehr.  Es  lieB  sich  leider  nicht  ver- 
meiden,  Ihnen  das  alles  zu  erzShlen,  denn  in  manchen  Dingen 
nimmt's  der  Amiga  sehr  genau.  (Eben  doppelt  genau.) 

Haben  Sie  ein  wenig  verschnauft?  Dann  wollen  wir  jetzt  ein 
bifichen  weitermachen.  Nochmal  zur  Wiederholung:  Bisher  haben 
Sie  FlieBkommazahlen  einfacher  und  doppelter  Genauigkeit  ken- 
nengelernt.  Die  einfach  genauen  sind  die  normalen  Variablen, 
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die  von  AmigaBASIC  verwendet  werden.  Die  doppelt  genauen 
werden  beim  Variablennamen  durch  ein  #-Zeichen  gekenn- 
zeichnet. 

Sie  haben  ja  selbst  gemerkt,  daB  Kommazahlen  dem  Amiga 
nicht  unbedingt  leichtfallen.  Deshalb  vermeidet  er  sie  auch  lie- 
ber,  wenn's  nur  irgendwie  geht.  Da  legt  unser  Computer  die 
Mentalitat  jedes  mittelmaBigen  Mathe-Schiilers  an  den  Tag. 
Wenn  also  Zahlen  benutzt  werden,  die  mit  Sicherheit  keinen 
Nachkommateil  haben,  sind  die  Integer-Variablen  dem  Amiga 
viel  lieber.  Sie  wissen  ja  noch:  Variablen  wie  'HalIo%\  'a%'  und 
Tarben%*  konnen  ganzzahlige  Werte  zwischen  -32768  und 
+32767  speichern.  Also  16-Bit-Zahlen  mit  einem  Vorzeichen- 
Bit.  Fur  viele  Werte  (wie  Angaben  iiber  Farben,  Koordinaten, 
Geschwindigkeiten...)  ist  dieser  Zahlenbereich  vdllig  ausreichend. 
Und  wenn  die  Zahlen  mal  groBer  werden,  aber  immer  noch 
keine  Kommastellen  haben,  nimmt  sich  AmigaBASIC  einfach 
noch  ein  paar  Bits  dazu:  32-Bit-Zahlen  werden  verwendet.  Sie 
k5nnen  Werte  zwischen  -2147483648  und  +2147483647  bein- 
halten.  So  groB  werden  die  Zahlen  beim  Programmieren  aber 
selten. 

Wenn  eine  Variable  eine  Integerzahl  mit  32  Bit  speichern  soil, 
miissen  Sie  an  den  Variablennamen  ein  &-Zeichen  anhangen. 
Schauen  Sie  sich  mal  den  Unterschied  an: 

a%= 100000 

gibt  einen  Error:  "Overflow"  -  "Die  Zahl  ist  zu  groB."  Probieren 
Sie  mal: 

a&= 100000 

So  gibt  es  damit  keine  Probleme  mehr. 

Sie  haben  beim  Eingeben  unserer  Programme  manchmal  gesehen, 
daB  AmigaBASIC  32-Bit-Zahlen  im  LIST-Window  automatisch 
mit  einem  &-Zeichen  kennzeichnet.  Zum  Beispiel  hat  der  Amiga 
beim    Malprogramm    an    die    Zahl    65535    beharrlich    sein    & 
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gehSngt.  Kunststuck,  denn  diese  Zahl  kann  mit  15  Bit  (eines 
geht  ja  immer  fiirs  Vorzeichen  drauf)  nicht  gespeichert  werden. 
Also  braucht  der  Amiga  32  Bit,  und  das  zeigt  er  durch  das  &. 

Jetzt  haben  Sie's  schon  fast  geschafft.  Die  letzte  Variablenart, 
die  AmigaBASIC  kennt,  macht  uns  keine  Schwierigkeiten  mehr: 
Es  sind  die  Stringvariablen.  Sie  beinhalten  Zeichenketten  (die 
ubrigens  bis  zu  32767  Zeichen  lang  sein  durfen,  32767  ist  eine 
von  Amigas  Lieblingszahlen)  und  werden  durch  ein  $-Zeichen 
gekennzeichnet. 

Noch  mal  alles  in  einer  Ubersicht: 


Zahlentyp  Kennzeichnung       Speicherbedarf        Beispiele 

der  Variablen  fUr  Variableninhalt 


Fliefikomma, 
einfach  genau 

Fliefikomma, 
doppelt  genau 


kurse  Integersahl  % 
lange  Integersahl  & 
String  $ 


keine  oder  ! 


4  Bytes 


.3245643,  2.435E+09 


8  Bytes  4.901960957795382D-03 

2  Bytes=16  Bit  32767,  -17 

4  Bytes=32  Bit  -2147483648,  65535 

5  Bytes  +  "Christian",  "Brigitte" 
Lange  des  Strings 


Tabelle  9:  Die  Zahlentypen  in  AmigaBASIC 


Durch  die  Kennzeichnung  am  Variablennamen  entstehen  vflllig 
unabhangige  Variablen.  DaB  'a*  und  *a$*  nichts  miteinander  zu 
tun  haben,  ist  fQr  uns  mittlerweile  selbstverstandlich.  Aber  auch 
•a#\  W  und  'a&'  kOnnen  vOllig  verschiedene  Inhalte  haben. 
Nur  mit  dem  Ausrufezeichen  mussen  Sie  aufpassen:  Normaler- 
weise  werden  FlieBkommavariablen  einfacher  Genauigkeit  fiber- 
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haupt  nicht  gekennzeichnet  (das  sind  ja  die  Standardvariablen 
von  AmigaBASIC).  Wenn  Sie  doch  ein  T  anhangen,  ist  das  nur 
eine  formate  Angelegenheit  und  bewirkt  keine  Unterscheidung: 
'Hallo*  und  'Hallo!'  haben  immer  denselben  Inhalt. 

Nach  alledem  haben  wir  aber  immer  noch  nicht  erklfcrt,  warum 
der  Amiga  bei  unseren  SUB-Aufrufen  eine  Zahl  wie  34  nicht  so 
ohne  weiteres  akzeptiert.  SchlieBlich  gibt  es  ja  auch  FlieB- 
kommazahlen,  die  keinen  Teil  mehr  hinter  dem  Komma  haben: 
'Wert'=34  hat  doch  z.B.  noch  nie  Probleme  gemacht. 

AmigaBASIC  geht  aber  bei  der  Speicherung  von  Zahlen  seinen 
ganz  besonderen  Vorlieben  nach:  Wenn  in  einer  Eingabe  eine 
ganze  Zahl  auftaucht,  speichert  sie  AmigaBASIC  intern  als  Inte- 
gervariable.  34  ist  eine  ganze  Zahl.  Diese  Integerzahl  soil  im 
SUB-Programm  einer  FlieBkommavariablen  ubergeben  werden. 
Und  das  geht  nicht:  "Type  mismatch".  Die  Variablentypen  stim- 
men  nicht  uberein.  AmigaBASIC  kommt  mit  der  internen  Zah- 
lenverwaltung  durcheinander.  Was  kann  man  dagegen  tun?  Eine 
Mdglichkeit  ist,  Ihren  Amiga  auszutricksen.  Wie  im  letzten  Ka- 
pitel  konnen  Sie  einfach  Nullen  hinter  dem  Komma  angeben 
(34.00).  So  geht's  aber  auch: 

Dollar  34. 

Durch  den  Punkt  hinter  der  Zahl  34  denkt  AmigaBASIC,  es 
handle  sich  um  eine  FlieBkommazahl  und  speichert  den  Wert 
auch  in  dieser  Form.  Nun  macht  die  Ubergabe  keine  Probleme 
mehr.  Sie  kdnnen  eine  Zahl  auch  auf  einen  bestimmten  Typ 
festlegen,  indem  Sie  die  jeweilige  Kennzeichnung  anhangen: 

Dollar  34! 

zwingt  AmigaBASIC,  den  Wert  14  als  FlieBkommazahl  einfacher 
Genauigkeit  zu  behandeln.  Ein  paar  weitere  Beispiele:  Aus  3.4% 
wird  3  (hat  mchts  mit  Prozent  zu  tun...).  Die  Zahl,  die  norma- 
lerweise  als  FlieBkommazahl  gespeichert  wurde,  wird  eine  16- 
Bit-Integerzahl.  Der  Nachkommateil  geht  dabei  verloren.  Aus 
0.4&  wird  0  (dasselbe,  aber  mit  32  Bit).  Aus  3#  wird  3.  Sie  se- 
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hen  der  Zahl  zwar  nichts  an,  aber  sie  wird  intern  als  FlieBkom- 
mazahl  doppelter  Genauigkeit  behandelt.  So  merkt  man  den 
Unterschied: 


?  1/3 
und 

?  1#/3 


Was  aber,  wenn  Sie  von  vornherein  wissen,  daO  ein  Parameter 
nur  ganzzahlig  sein  kann,  und  Sie  keine  Lust  haben,  jedesmal 
ein  Kennzeichen  anzuhangen?  Dann  kennzeichnen  Sie  einfach 
die  zugehdrige  Variable  im  SUB-Programm  als  Integervariable: 


SUB  Warte  (SekX)  STATIC 
Warten: 

TIM=INT(TIMER) 

WHILE  INT(TIMER)=TIM  :  WEND 

Sek%=Sek%-1 

IF  Sek%>0  THEN  Warten 
END  SUB 


Dieses  SUB-Programm  wartet  eine  angegebene  Anzahl  an  Se- 
kunden.  Die  Routine  selbst  kennen  Sie  aus  dem  Wiedergabeteil 
des  Videotitel-Programms.  Die  Variable  ,Sek%'  erwartet  bei  der 
Paramterubergabe  einen  Integerwert.  Durch  den  Aufruf 

Warte  10 

wird  ihr  genau  so  ein  Wert  ubergeben.  Das  SUB-Programm 
wartet  10  Sekunden.  Wenn  Sie  diese  Routine  aufruf  en,  durfen 
Sie  diesmal  nattirlich  keine  Kommazahlen  angeben,  sonst  tritt 
das  alte  Problem  wieder  auf,  nur  mit  anderen  Variablentypen: 
Ein  FlieCkommawert  kann  keiner  Integervariablen  zugewiesen 
werden. 

So.  Jetzt  haben  Sie  ein  schOnes  Stuck  Arbeit  hinter  sich.  Dafur 
kennen  Sie   nun  auch  die  innersten  Geheimnisse   von   Amiga- 
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BASIC.  Mit  diesem  Wissen  steht  unserem  nichsten  Projekt  nichts 
mehr  im  Weg:  Wir  bauen  eine  eigene  SUB-Routine  furs  Spei- 
chern  von  IFF-Bildern. 


4.8        Rettet  die  Bilder!  -  die  PICSAVE-Routine 

Hier  ist  jetzt  die  Belohnung  fur  Ihre  Geduld.  Das  folgende 
SUB-Programm  stellt  einen  Befehl  zum  Abspeichern  von  Gra- 
fikdaten  zur  VerfQgung. 

SUB  PICSAVE  <Nairt$,WindowNr%,FeldJN%)  STATIC 
IF  FeldJN%=1  THEN  SHARED  Farben%() 
IF  FeldJN%=0  THEM 

IF  Farben%<0,0><>2  THEN  ERASE  Farben%  :  DIM  Farben%<31,2) 
RESTORE  Farbtabelle 
FOR  x=0  TO  31 
READ  FarbenX(x,0),Farben%(x,1),Farben%(x,2) 

NEXT  x 
Farbtabelle: 

DATA  2,3,10,  15,15,15,  0,0,0,  15,8,0 
DATA  0,0,15,  15,0,15,  0,15,15,  15,15,15 
DATA  6,1,1,  14,5,0,  8,15,0,  14,11,0 
DATA  5,5,15,  9,0,15,  0,15,9,  12,12,12 
DATA  0,0,0,  13,0,0,  0,0,0,  15,12,10 
DATA  4,4,4,  5,5,5,  6,6,6,  7,7,7 
DATA  8,8,8,  9,9,9,  10,10,10,  11,11,11 
DATA  12,12,12,  13,13,13,  14,14,14,  15,15,15 
END  IF 

IF  Nam$="»  THEN  EXIT  SUB 
AltWindowNr=WINDOU<1) 
WINDOW  WindowNrX 
Breite=WINDOW(2> 
IF  Breite>320  THEN 
Breite=640 
Auftsg=2 
Ebene=16000 
ELSE 

Breite=320 
Auflsg=1 
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Ebene=8000 
END   IF 
Hoehe=WIND0W(3) 
IF  Hoehe>200  THEN 

Hoehe=400 

Ebene=Ebene*2 

Auf lsg=Auf lsg+2 
ELSE 

Hoehe=200 
END  IF 
Farben=LOG(UlNDOW(6)+1)/LOG<2) 

OPEN  NamS  FOR  OUTPUT  AS  1  LEN=FRE(0)-500 
PRINT  #1,»F0RM»; 

PRINT  #1,MKL$(156+Ebene*Farben); 
PRINT  #1,»ILBH»; 
PRINT  #1,"BMHD";MICL$<20); 
PRINT  #1,MKI$(Breite);MICI$(Hoehe); 
PRINT  #1,MKL$(0); 
PRINT  #1,CHR$(Farben); 
PRINT  #1,CHR$(0);MKI$(0);MKI$(0); 
PRINT  #l,CHR$(10);CHR$<11); 
PRINT  #1fM*CI$(Breite);MKI$(Hoehe); 

PRINT  #1,»CMAP»;MKL$<96); 
FOR  x=0  TO  31 

PRINT  #1,CHR$(Farben%(x,0)*16); 

PRINT  #1,CHR$(Farben%(x,1)*16); 

PRINT  #1,CHR$(Farben%(x,2>*16); 
NEXT  x 

PRINT  #1,»B0Dy«;MKL$(Ebene*Farben); 

Adr=PEEKL(UINDOU(8)+4)+8 

FOR  x=0  TO  Farben-1 

Ebnadr(x)=PEEKL(Adr+4*x) 
NEXT  x 

FOR  y1=0  TO  Hoehe-1 
FOR  b=0  TO  Farben-1 
FOR  x1=0  TO  <Breite/32)-1 
PRINT  #1,MKL$<PEE)CL(Ebnadr(b)+4*x1+(Breite/8)*y1)); 
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NEXT  x1 
NEXT  b 

PAdr=Ebnadr<0>+(Breite/8>*y1 
POKE  PAdr,PEEK(PAdr)  AND  63 

POKE  PAdr+Breite/8-1,PEEK(PAdr+Breite/8-1>  AND  252 
NEXT  yl 

PRINT  #1,''CAMG»;MKL$(4); 

PRINT  #1,MKL$< 16384); 
CLOSE  1 

WINDOW  AltWindowNr 
END  SUB 


Wenn  Sie  dieses  Programm  selbst  eingetippt  haben  und  abspei- 
chern  (was  Sie  ja  gerade  tun  wollten,  nicht  wahr...),  speichern 
Sie  es  bitte  im  ASCII-Format  ab.  Das  heiBt  also  mit: 

save  "Picsave",a 

In  dieser  Form  finden  Sie  es  ubrigens  auch  auf  der  beiliegenden 
Diskette. 

Urn  den  Eigenbau-Befehl  PICSAVE  in  anderen  Programmen  be- 
nutzen  zu  kflnnen,  muB  die  Routine  ja  mit  MERGE  angehangt 
werden.  Und  Sie  erinnern  sich  bestimmt  noch  daran,  daB  dabei 
das  anzuh&ngende  Programm  als  ASCII-Datei  vorliegen  muB. 

Sicher  gibt  es  im  Programm  noch  ein  paar  Dinge,  die  Sie  nicht 
kennen  Oder  nicht  verstehen.  Deshalb  besprechen  wir  jetzt  die 
einzelnen  Programmschritte. 

In  der  SUB...STATIC-Zeile  steht  der  Name  unserer  Routine.  Wir 
nennen  sie  'PICSAVE1.  (Ein  Kiirzel  fur  "Picture  Save"  -  das 
ware  ein  sch6ner  Name  fur  den  Befehl  gewesen,  wenn  Microsoft 
ihn  doch  eingebaut  hatte.  Schniiff.)  Hinter  dem  Namen  stehen  in 
Klammern  die   Ubergabeparameter.   Wie   Sie   sehen,   kann   man 
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auch  mehrere  Werte  gleichzeitig  ubergeben.  BloB  der  Variablen- 
typ  muB  ubereinstimmen.  Die  notwendigen  Angaben  bei  Aufruf 
von  'PICSAVE'  sehen  so  aus: 

PICSAVE  "(Dateiname)",(Windownr.),(Angabe  uber  Farbfeld) 

Zum  Dateinamen  miissen  wir  Ihnen  nicht  mehr  viel  sagen.  Sie 
konnen  einen  beliebigen  Namen  eingeben,  evtl.  vorher  noch  das 
Laufwerk  bzw.  den  Diskettennamen  und  den  Weg  uber  die  Un- 
ter-Inhaltsverzeichnisse. 

An  zweiter  Stelle  geben  Sie  die  Nummer  des  Windows  an,  dessen 
Inhalt  abgespeichert  werden  soli. 

Und  am  SchluB  kann  eine  1  oder  eine  0  stehen.  Der  Wert  1  be- 
deutet,  daB  Sie  dem  SUB-Progamm  selbst  ein  Datenfeld  namens 
Tarben%'  bereitstellen,  das  die  Dimensionen  (31,2)  hat  und  -  als 
Werte  zwischen  0  und  15  -  die  RGB-Zusammnsetzung  der  ver- 
wendeten  Farben  beinhaltet.  Wie  so  ein  Feld  erzeugt  und  benutzt 
wird,  sehen  Sie  zum  Beispiel  in  unserem  Malprogramm.  Der 
Wert  0  bedeutet,  daB  die  Standardfarben  der  Workbench  in  der 
Datei  abgespeichert  werden  sollen.  So  konnen  Sie  ohne  grofie 
Vorbereitungen  Grafik  abspeichern,  die  Sie  mit  BASIC-Befehlen 
erzeugt  haben.  (Wir  denken  da  zum  Beispiel  an  unsere  Sinus- 
Grafiken...) 

Der  letzte  der  drei  Werte  ('FeldJN%'  steht  fur  "Feld  Ja/NeinM) 
wird  auch  gleich  in  den  nSchsten  beiden  Zeilen  verarbeitet.  Ha- 
ben Sie  1  angegeben,  macht  sich  das  SUB-Programm  mit  dem 
SHARED-Befehl  die  Inhalte  des  Feldes  Tarben%'  zugSnglich. 
Gibt  es  in  Ihrem  Hauptprogramm  kein  Feld  namens  Tarben%\ 
meldet  AmigaBASIC  einen  "Undefined  array"-Error  ("Datenfeld 
wurde  nicht  definiert"). 

Wenn  *FeldJN%*  den  Wert  0  hat,  gibt's  ein  biBchen  mehr  zu  tun: 
Zuerst  schaut  das  SUB-Programm  im  Feldelement  'Farben%(0,0)' 
nach,  welcher  Wert  dort  steht.  1st  der  Inhalt  eine  2,  wurde  das 
Feld  schon  einmal  definiert.  In  diesem  Fall  darf  kein  zweiter 
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DIM-Befehl  fur  dasselbe  Feld  ausgefuhrt  werden,  das  wurde  ja 
einen  "Duplicate  DefinitionH-Error  verursachen:  Datenfelder 
durfen  nur  einmal  dimensioniert  werden. 

Was  aber,  wenn  das  Feld  noch  nicht  definiert  war?  Wenn  Sie  ein 
bestimmtes  Datenfeld  benutzen,  ohne  vorher  ein  DIM  fur  dieses 
Feld  ausgefuhrt  zu  haben,  wird  es  von  AmigaBASIC  automatisch 
dimensioniert.  Und  zwar  auf  die  StandardgroBe  von  10  Elemen- 
ten.  Ein  Beispiel: 

Geben  Sie  im  BASIC-Window 
?  Testfeldd) 

ein.  Ein  Feld  namens  'Testfeld'  gibt  es  bisher  noch  nicht.  Das 
erkennt  AmigaBASIC  und  gibt  sich  selbst  den  Befehl 
DIM  Testfeld(lO).  Nun  kflnnen  Sie  die  Feldelemente  Testfeld(0y 
bis  Testfeld(lO)*  benutzen.  Wenn  Sie  aber  z.B.  versuchen,  auf 
das  Element  Testfeld(ll)'  zuzugreifen, 

?  Testfeld(H) 

erhalten  Sie  einen  "Subscript  out  of  Range"-Error  (Element 
auBerhalb  des  erlaubten  Bereichs).  Dieser  Fehler  tritt  immer 
dann  auf,  wenn  Sie  Feldelemente  benutzen  wollen,  die  auBerhalb 
der  festgelegten  Dimensionierung  liegen.  Und  das  'Testfeld' 
wurde  ja  bloB  auf  10  dimensioniert.  Alles  klar? 

Dasselbe  geschieht  auch  bei  zwei  und  mehr  Dimensionen: 

?  NocheinTestfeld<1,1> 

erzeugt  ein  automatisches  DIM  NocheinTestfeld(10,10).  Genauso 
verhait  sich  AmigaBASIC,  wenn  wir  in  unserem  Programm  das 
Element  Tarben%(0,0)'  abfragen:  Gibt  es  noch  kein  Feld  Tar- 
ben%\  wird  es  automatisch  auf  ,Farben%(10,10)'  dimensioniert. 
Wir  brauchen  aber  fur  unsere  Farbwerte  die  Dimensionen  Tar- 
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ben%(31,2)\  Also  bleibt  uns  in  diesem  Fall  nichts  anderes  fibrig, 
als  das  Feld  wieder  zu  16schen  und  mit  den  richtigen  Werten  neii 
zu  dimensionieren. 

Zum  L6schen  eines  Datenfelds  dient  der  Befehl  ERASE.  Dahin- 
ter  geben  Sie  einfach  den  Feldnamen  an.  Das  Feld  mit  alien  In- 
halten  wird  gelfischt,  und  es  kann  spater  mit  DIM  neu  dimen- 
sioniert  werden.  Das  tun  wir  auch  gleich  danaclv 
DIM  Farben%(31,2). 

Wozu  das  alles?  Die  Notwendigkeit  der  ganzen  Trickserei  haben 
wir  mal  wieder  Microsoft  zu  verdanken.  Wie  schon  mehrmals 
erwahnt,  gibt  es  keinen  Befehl,  urn  die  derzeitigen  Farbwerte 
auszulesen.  Wir  brauchen  aber  irgendwelche  Farbwerte  fur  den 
CMAP-Chunk.  Urn  Ihnen  dieses  Problem  abzunehmen,  stellen 
wir  im  SUB-Programm  TICSAVE'  eine  Reihe  von  DATA-Zei- 
len  zur  Verfugung,  in  denen  die  RGB-Werte  der  Workbench- 
Standardfarben  abgelegt  sind.  Das  sind  die  Farben,  die  von  BA- 
SIC automatisch  benutzt  werden,  solange  Sie  keinen  PALETTE- 
Befehl  benutzen.  Wenn  Sie  Farben  in  Ihrem  Programm  Sndern 
und  das  entstandene  Bild  abspeichern  wollen,  bleibt  Ihnen  leider 
nichts  anderes  ubrig,  als  in  einem  Datenfeld  'Farben%*  selbst  fur 
die  richtigen  Werte  zu  sorgen. 

Vor  dem  Lesen  des  Datenfelds  brauchen  wir  noch  einen  neuen 
Befehl:  RESTORE.  Mit  RESTORE  konnen  Sie  den  Zeiger,  der 
bei  READ  auf  das  Mchste  DATA-Element  zeigt,  auf  ein  be- 
stimmtes  Label  setzen.  In  unserem  Fall  'Farbtabelle:'.  So  ist  si- 
chergestellt,  daB  das  SUB-Programm  seine  eigenen  Daten  liest 
und  nicht  etwa  die  Inhalte  von  DATA-Zeilen,  die  zu  Ihrem 
Hauptprogramm  gehdren.  Wir  erreichen  Datenschutz  und  Farb- 
schutz  in  einem:  Erstens  haben  Ihre  Daten  im  CMAP-Chunk  ei- 
ner  IFF-Datei  nichts  verloren,  und  zweitens  kflnnte  kein  IFF- 
Leseprogramm  aus  Daten  wie  "4000  DusseldorP  irgendeine  ver- 
nunftige  Farbe  produzieren. 

Die  darauffolgende  FOR...NEXT-Schleife  liest  die  RGB-Werte 
ins  Feld  Tarben%\  Ubrigens:  Wenn  Sie  sich  fragen,  wie  wir  zu 
den  Daten  der  Workbench-Farben  gekommen  sind  -  nur  durch 
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Ausprobieren.  Wir  haben  jede  Farbe  solange  mit  dem  Original 
verglichen,  bis  beide  ubereinstimmten. 

Wurde  als  'Nam$'  ein  leerer  String  angegeben,  soil  die  Routine 
abgebrochen  werden.  EXIT  SUB  ermGglicht  jederzeit  den 
Riicksprung  aus  einem  SUB-Programm.  Geht's  aber  normal 
weiter,  merkt  sich  'AltWindowNr'  die  Nummer  des  aktuellen 
Ausgabewindows.  Diese  Nummer  erfahren  wir  mit  WINDOW(l). 
Nach  der  Riickkehr  ins  Hauptprogramm  wollen  wir  schlieBlich 
alles  so  zuruckgeben,  wie  wir  es  vorgefunden  haben,  auch  und 
gerade  die  Zuteilung  der  Windows.  Urn  an  einige  wichtige  Daten 
zu  kommen,  mussen  wir  das  Window  in  der  Variablen  'Win- 
dowNr%'  zum  aktuellen  Window  machen.  Nun  kommen  ein  paar 
neue  WINDOW-Funktionen:  WINDOW(2)  liefert  zum  Beispiel 
die  Breite  des  aktuellen  Ausgabewindows.  Diesen  Wert  erhalt  die 
Variable  'Breite'.  Wir  wollen  immer  Windows  abspeichern,  die 
die  GrdBe  eines  ganzen  Screens  einnehmen.  Die 
IF...THEN/ELSE/END  IF-Struktur  sorgt  dafiir,  daB  die  Breite 
entweder  auf  320  Punkte  oder  640  festgelegt  wird.  AbhSngig 
da  von  legen  wir  auch  gleich  die  Auflosungsstufe  fest  (1  fur  320 
Punkte,  2  fur  640  Punkte)  und  den  Speicherbedarf  pro  Bitebene 
(8000  Bytes  fur  320  Punkte,  16000  Bytes  fur  640  Punkte).  Dann 
erfahren  wir  durch  WINDOW(3)  die  H6he  des  aktuellen  Win- 
dows. Auch  sie  wird  entweder  auf  200  oder  400  Pixels  fest- 
gesetzt.  Bei  400  Pixels  (Interlace-Modus)  verdoppelt  sich  auBer- 
dem  der  Speicherbedarf  pro  Bit-Ebene,  und  der  Wert  fur 
'Auflsg*  erhoht  sich  urn  2  (und  ergibt  somit  3  fur  niedrig- 
auflflsende  Interlace-Bilder  und  4  fur  hochauflosende). 

Zu  guter  Letzt  brauchen  wir  noch  die  Anzahl  der  Bitebenen. 
Auch  sie  &Bt  sich  berechnen,  allerdings  nur  uber  Umwege: 
WINDOW(6)  ergibt  die  Anzahl  der  erlaubten  Farben  im  aktuel- 
len Ausgabe window.  Bei  3  Bitebenen  ware  das  z.B.  die  Zahl  7. 
Wir  haben  oft  die  Formel  'Maxfarbe=(2ABitebenen)-T  benutzt, 
damit  errechnet  man  die  Anzahl  der  erlaubten  Farben.  Diesmal 
kennen  wir  diese  Zahl  und  suchen  dafiir  die  Bitebenen.  Wir 
mtissen  die  Formel  also  umkehren.  Wenn  man  weiB,  daB  2X=8 
ist,  erhalt  man  x  durch  die  Formel  LOG(8)/LOG(2).  LOG  steht 
fur  Logarithmus.  Wenn  Sie  den  vorher  nicht  kannten,  mussen  Sie 
ihn  sich  jetzt  auch  nicht  merken.  (Und  hier  wieder  unser  Bon- 
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bon  fur  den  Mathematiklehrer  und  seinen  besten  Schuler:  Die 
BASIC-Funktion  LOG  errechnet  den  naturlichen  Logarithmus  zu 
Basis  e=2.7 18282.) 

Damit  wSren  dann  auch  alle  Vorbereitungen  abgeschlossen.  Wir 
schreiben  jetzt  die  IFF-Daten  in  die  angegebene  Datei.  Ein  paar 
Anmerkungen  hierzu:  Fiir  den  FORM-Chunk  erfahren  wir  den 
Gesamtspeicherbedarf  durch  lSe+'Ebene^'Farben1.  156  ist  die 
DateilSnge  ohne  BODY,  und  BODY  hat  die  Lange  (Bytes  pro 
Ebene)*(Anzahl  der  Ebenen).  Diese  Lftngenangabe  steht  auch  zu 
Beginn  des  BODY-Chunks:  'Ebene'*Tarben\ 

Nach  dem  CLOSE  machen  wir  das  Window  'AltWindowNr*  wie- 
der  zum  aktuellen  Window  (wir  hatten  uns  ja  vorgenommen,  vor 
dem  Rttcksprung  aufzuraumen),  dann  wird  die  SUB-Routine 
beendet. 

Jetzt  haben  Sie  Ihren  personlichen  IFF-Speicherbefehl.  Er  heiBt 
PICSAVE  und  kann  mit  MERGE  an  jedes  Programm  angehangt 
werden.  Die  Auftosungsstufe,  die  Breite  und  Hohe  sowie  die 
Anzahl  der  Bitebenen  stellt  die  Routine  selbst  fest.  Wollen  Sie 
also  z.B.  den  Inhalt  des  BASIC-Windows  abspeichern,  rufen  Sie 
die  SUB-Routine  so  auf: 

PICSAVE  "BASICUindoW',1,0 

Die  entstandene  IFF-Datei  k6nnen  Sie  mit  dem  IFF-Lese- 
programm  aus  Kapitel  4.3  jederzeit  wieder  einlesen.  Urn  auBer- 
halb  von  AmigaBASIC  mit  der  IFF-Datei  zu  arbeiten,  brauchen 
Sie  -  da  es  sich  um  ein  Bild  im  640  *  200-Modus  handelt  -  ein 
Programm  wie  "Deluxe  Paint",  das  im  hochaufldsenden  Modus 
arbeitet.  Mit  so  einem  Malprogramm  kdnnen  Sie  dann  auch 
Hardcopies  ausdrucken.  Wenn  Sie  BASIC-Grafiken  wie  unsere 
Sinus-Fiachen  in  Graphicraft  bearbeiten  wollen,  mussen  Sie  die 
Grafiken  in  ein  Window  auf  einem  320  *  200-Pixels-Screen  er- 
stellen. 
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Auch  im  Balken-/Tortengrafik-Programm  gibt  es  keine  groGen 
Probleme,  wenn  Sie  das  SUB-Programm  'PICSAVE'  einsetzen 
wollen.  Hier  eine  kurze  Einbauanleitung: 

-  Laden  Sie  das  Statistikdaten-Programm. 

-  MERGEn  Sie  daran  die  TICSAVE"-Routine. 

-  Nehmen  Sie  im  Programmteil  'Vorbereitungen:'  folgende  Zeile 
in  die  MENU-Definitionen  mit  auf: 

MENU  2,3,1,"speichern" 

-  Fugen  Sie  im  Programmteil  'Menukontrolle:'  unter  der  Zeile 

IF  Men=2  THEN 

die  folgenden  Zeilen  ein: 

In  Menpunkt=3  THEN 
MENU  1,0,0  :  MENU  2,0,0 
MENU  OFF 

GOSUB  Eingabename 
WINDOW  99 

PICSAVE  Nam$,99f0 
WINDOW  1 
MENU  ON 

MENU  1,0,1  :  MENU  2,0,1 
END  IF 

-  Speichern  Sie  das  entstandene  Programm  ab. 

Das  Ganze  findet  sich  iibrigens  auch  unter  dem  Namen 
"BTDaten.IFF"  auf  unserer  Diskette  im  Buch. 

Im  MGrafik"-Pulldown  gibt  es  jetzt  die  neue  Option  "speichern". 
Wenn  Sie  sie  anwahlen,  wird  der  aktuelle  Inhalt  des  Grafik- 
windows  auf  Diskette  abgespeichert.  Bedenken  Sie  bitte,  daB  fur 
die  entstandene  Datei  dasselbe  gilt  wie  fur  alle  640*200-Pixels- 
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Grafiken  -  sie  konnen  nicht  mit  Graphicraft  bearbeitet  werden. 
Und  in  Programmen  wie  Deluxe  Paint  oder  Aegis  Images  miissen 
Sie  die  hflhere  Auflflsungsstufe  anwShlen.  Wenn  Sie  ein  ge- 
eignetes  Programm  besitzen,  kdnnen  Sie  die  Grafiken  bearbeiten 
und  ausdrucken,  wie  wir  Ihnen  vor  einiger  Zeit  versprochen 
hatten. 

Mit  dem  Vorrat  an  IFF-Routinen,  den  Sie  jetzt  besitzen,  muBten 
Sie  in  der  Lage  sein,  sich  jeden  weiteren  Wunsch  zum  Thema 
Laden  und  Abspeichern  von  Grafiken  selbst  zu  erfiillen.  Wir 
wollen  dieses  Thema  daher  jetzt  verlassen,  und  uns  mit  anderen 
interessanten  Aspekten  von  HDaten"  besch&ftigen. 
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5.     Und  dann  kann  man  noch...  -  Was  man  mit 
Daten  noch  alles  anfangen  kann 

Urn  es  gleich  vorweg  zu  sagen:  Alles,  was  man  mit  Daten  anfan- 
gen kann,  kflnnen  wir  Ihnen  in  den  nSchsten  Kapiteln  auch 
nicht  vorfuhren.  SchlieBIich  lebt  eine  ganze  Branche  davon,  sich 
taglich  Neues  auf  diesem  Gebiet  einfallen  zu  lassen.  Und  die 
Branche  lebt  nicht  schlecht.  Aber  wir  zeigen  Ihnen  ein  Reihe 
neuer  BASIC-Befehle  zum  Thema  Datenverarbeitung.  Da  fehlt 
hauptsachlich  noch  das  Thema  "relative  Dateien".  Es  gibt  nam- 
lich  neben  sequentiellen  Dateien  noch  eine  zweite  Art,  Dateien 
auf  Diskette  anzuordnen.  Aber  dazu  kommen  wir  gleich.  Wenn 
Sie  den  nun  folgenden  Teil  unseres  Buchs  gelesen  haben  und 
unsere  Beispiele  immer  schdn  mittippen,  sind  Sie  danach  ubri- 
gens  auch  stolzer  Besitzer  eines  recht  leistungsfahigen  Daten- 
bank-Programms. 


5.1        Frei  nach  Albert  Einstein  -  relative  Dateiverwaltung 

Bekanntlich  ist  alles  relativ  -  warum  also  sollte  das  nicht  auch 
fur  Daten  gelten?  Seit  Kapitel  3.4  arbeiten  wir  ja  nur  mit 
sequentiellen  Dateien.  Wenn  Sie's  vergessen  haben  sollten:  "Se- 
quentiell"  bedeutet  "hintereinander".  Sie  haben  es  vielleicht  nicht 
immer  gemerkt,  aber  seit  wir  diesen  Dateityp  kennen,  haben  wir 
ihn  standig  in  der  einen  oder  anderen  Weise  benutzt.  Dateien, 
die  zum  Drucker  geschickt  werden,  sind  sequential.  (Logisch,' 
denn  ein  Drucker  druckt  immer  ein  Zeichen  nach  dem  anderen.) 
Dateien,  die  von  der  Tastatur  einlesen  oder  auf  den  Bildschirm 
schreiben,  sind  ebenfalls  sequentiell.  Und  auch  bei  den  IFF-Da- 
teien  haben  wir  immer  schQn  einen  Chunk  nach  dem  anderen 
geschrieben  -  eben  in  sequentielle  Dateien. 

Fur  all  die  genannten  Beispiele  sind  sequentielle  Dateien  auch 
sehr  sinnvoll.  Wenn  es  aber  urn  das  Lesen  und  Schreiben  von 
AdreBlisten,  Schallplattensammlungen  oder  ahnlichen  Daten 
geht,  haben  die  sequentiellen  Dateien  einen  groflen  Nachteil.  Sie 
erinnern  sich:  "Sequentielle  Dateiverarbeitung"  bedeutet,  dali  alle 
Daten  nacheinander  auf  die  Diskette  geschrieben  werden.  Und 
auch  nacheinander  wieder  gelesen  werden  mussen.  Wenn  Sie  die 
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Adresse  von  Frau  Burgschmidt  suchen,  bleibt  Ihnen  nichts  lib- 
rig,  als  vorher  die  Adressen  von  Herrn  Dr.  Pleticha,  Herrn  Sten- 
gel, Herrn  Merwald,  Herrn  Fischer,  Frau  Dr.  Schulz-Kuhnel, 
Herrn  Ott  und  Herrn  Mainberger  einzulesen,  wenn  diese  Daten 
vorher  in  der  Datei  stehen.  Bei  groBen  Dateien  fuhrt  das  zu 
ziemlich  langen  Wartezeiten.  Aus  diesem  Grund  bietet  Amiga- 
BASIC eine  zweite  Moglichkeit,  Dateien  zu  organisieren:  Die 
relativen  Dateien.  "Relativ"  heiBen  sie,  weil  die  einzelnen  Da- 
tensatze  "relativ"  zum  ersten  Eintrag  der  Datei  gelesen  werden. 
Verst&ndlicher  wird  das  Ganze  in  der  deutschen  Ubersetzung: 
"Dateien  mit  wahlfreiem  Zugriff"  oder  "Direktzugriffs-Dateien". 

Diese  Namen  lassen  schon  vermuten,  was  der  Hauptunterschied 
zu  sequentiellen  Dateien  ist:  Sie  k5nnen  direkt  auf  jeden  Daten- 
satz  zugreifen.  "Datensatz"  nennt  man  eine  Ansammlung  von 
zusammengehorigen  Einzeldaten.  Name,  StraBe,  Wohnort  und 
Telefonnumer  sind  Einzeldaten.  Zusammen  bilden  sie  einen  Da- 
tensatz, namlich  eine  Adresse.  Fur  jede  Person,  die  in  Ihrer 
Adressenliste  steht,  gibt  es  einen  Datensatz.  Einen  fur 
Dr.  Pleticha,  einen  fur  Herrn  Stengel,...  naja  und  so  weiter  eben. 
Bei  relativen  Dateien  hat  jeder  Datensatz  eine  Nummer.  Sie  ge- 
ben  beim  Lesen  oder  Schreiben  an,  welchen  Satz  Sie  benutzen 
mdchten.  Das  ist  eigentlich  alles.  An  welcher  Stelle  der  ge- 
wunschte  Datensatz  auf  der  Diskette  steht,  und  wie  groB  die 
Gesamtdatei  ist,  ist  das  Problem  von  AmigaDOS.  Darum  brau- 
chen  Sie  sich  nicht  zu  kummern. 

Obwohl  dieses  Prinzip  nicht  viel  schwerer  ist  als  das  der  se- 
quentiellen Dateien,  braucht  man  fur  die  Programmierung  einer 
relativer  Datei  ein  paar  Befehle  mehr,  als  fur  eine  vergleichbare 
sequentielle  Datei.  Aber  keine  Sorge,  schwierig  sind  sie  nicht. 

Fangen  wir  ganz  bescheiden  an.  Eine  kleine  Adressenverwaltung 
soil  uns  als  Beispiel  dienen.  Auf  unserer  beiliegenden  Diskette 
ist  das  die  Datei  "RelAdresse.schreiben". 
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OPEN  Mr»f#1,»AdreBdatei.rel'\92 

FIELD  #1,30  AS  Nam$,30  AS  Strasse$,20  AS  0rt$,12  AS  TelNRS 

Eingabe: 

PRINT 

INPUT  »Name:»,EingabeNam$ 

INPUT  "StraBe:"fEingabeStrasse$ 

INPUT  »PLZOrt:»,EingabeOrt$ 

INPUT  "Telefonr'^EingabeTel* 

LSET  Narrt*=EingabeNainS 

LSET  Strasse$=EingabeStrasse$ 

LSET  Ort$=EingabeOrt$ 

LSET  TelNR$=EingabeTel$ 

x=x+1 

PUT  #1,x 

PRINT  "Adresse  Nummer'^x;":  "Nam$ 

INPUT  "Weitere  Adressen  (J/N)";Antw$ 

IF  UCASE$(Antw$)o»N"  THEN  Eingabe 
CLOSE  1 

Speichern  Sie  dieses  kleine  Programm  bitte  zunfcchst  ab,  falls  Sie 
es  selbst  eingegeben  haben.  Danach  schauen  wir  es  uns  etwas 
genauer  an: 

Fur  den  OPEN-Befehl  haben  wir  die  Schreibweise  verwendet, 
die  Ihnen  wahrscheinlich  bisher  weniger  bekannt  ist.  OPEN  hat 
ja  zwei  Syntax-Varianten,  wie  Sie  sicher  noch  wissen.  Fur  rela- 
tive Dateien  muB  die  zweite  Schreibweise  verwendet  werden.  Es 
gibt  namlich  keinen  Modus  (wie  bei  FOR  INPUT,  FOR  OUT- 
PUT Oder  FOR  APPEND),  den  Sie  diesmal  angeben  konnten. 
Das  kleine  V  steht  fur  "Relativ".  Dann  folgt  die  Dateinummer 
und  der  Name  der  Datei.  Der  letzte  Parameter  gibt  bei  relativen 
Dateien  die  Satzlange  in  Bytes  an.  Die  Zahl  in  unserem  Beispiel- 
programm  besagt  also,  dai3  alle  Einzeldaten  der  Adresse  zusam- 
men  genau  92  Bytes  lang  sind.  Bei  sequentiellen  Dateien  kflnnen 
Sie  an  dieser  Stelle  die  Lange  des  Dateipuffers  angeben.  Nichts 
anderes  tun  Sie  auch  hier:  Fur  jede  relative  Datei  legt 
AmigaBASIC  einen  Puffer  an,  der  genau  die  Gr6Be  eines  Da- 
tensatzes  hat. 
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Der  Befehl  FIELD  ist  der  erste  wirklich  neue  Befehl.  Mit  ihm 
teilen  Sie  den  Datensatz-Puffer  in  einzelne  Bereiche  ("Felder", 
engl.:  "Fields")  ein.  Jedem  dieser  Bereiche  wird  dann  eine  Uber- 
gabe- Variable  zugewiesen. 

FIELD  (Dateinummer),(Anzahl  Bytes)  AS  (Variablenname),  ... 

In  unserem  Beispiel  gibt's  da  zunachst  die  Variable  'NamS1,  fur 
die  30  Bytes  zur  Verfugung  stehen.  Der  Inhalt  von  *Nam$'  darf 
pro  Satz  in  der  Datei  nicht  mehr  als  30  Bytes  benfttigen.  Er  darf 
aber  kiirzer  sein,  doch  dazu  kommen  wir  etwas  sp&ter  beim 
LSET-Befehl.  Mit  den  Werten  im  FIELD-Befehl  legen  Sie  also 
die  maximale  L&nge  einer  Variablen  aus  der  Datei  fest. 
Fur  die  weiteren  Variablen  l&uft  es  ganz  genauso:  *Strasse$'  darf 
bis  zu  30  Zeichen  lang  werden,  *Ort$'  bis  zu  20  und  TelNRS' 
bis  zu  12  Zeichen.  Lfcngere  Adrefldaten  werden  abgeschnitten. 

Im  darauffolgenden  'Eingabef-Teil  lesen  wir  die  Adresse  ein. 
Hier  miissen  wir  fur  die  Eingaben  andere  Variablen  verwenden. 
Wir  benutzen  in  unserem  Programm  'EingabeNamSY 'Eingabe- 
Strasse$\  'EingabeOrtS'  und  'EingabeTelS'.  Sie  kdnnen  naturlich 
auch  vdllig  andere  Namen  wfchlen.  Einzige  Bedingung:  Es  mus- 
sen andere  Namen  als  in  der  FIELD-Zeile  sein. 
Warum?  -  Damit  der  nfcchste  Befehl  funktionieren  kann:  LSET. 

Die  Variablen  aus  FIELD  sind  Ubergabevariablen.  *Nam$*  ist 
der  Name  fiir  einen  30  Bytes  groBen  Bereich  im  Datei-Puffer. 
Der  LSET-Befehl  weist  diesem  Bereich  einen  Inhalt  zu.  In  un- 
serem Fall  den  Inhalt  der  Variablen  'EingabeNam$\  Dem  Be- 
reich mit  mit  dem  Namen  'StrasseS'  wird  der  Inhalt  der  Vari- 
ablen 'EingabeStrasseS'  zugewiesen.  Und  bei  'OrtS*  und  'TelNRS' 
funktioniert's  auch  nicht  anders.  Wenn  die  zugewiesene  Variable 
linger  ist,  als  der  zugehdrige  Pufferbereich,  wird  sie  einfach  ab- 
geschnitten. Ist  sie  kiirzer,  bleibt  der  Rest  des  Bereichs  unge- 
nutzt.  Die  Variablen  aus  dem  FIELD-Befehl  haben  also  eine 
Sonderstellung:  Ihnen  wird  mit  LSET  ein  Inhalt  zugewiesen,  der 
dadurch  im  Datensatz-Puffer  landet.  Wenn  Sie  im  Programm  den 
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Inhalt  einer  solchen  Ubergabevariablen  abfragen,  erhalten  Sie 
den  Inhalt  des  Puffers  an  der  durch  FIELD  definierten  Stelle. 
Sie  sehen  das  z.B.  in  der  Zeile 

PRINT  "Adresse  Nummer" ;x;H:  "Nam$ 

'NamS*  beinhaltet  die  ersten  30  Bytes  des  Pufferinhalts.  In  dem 
Augenblick,  wo  Sie  'NamS'  einen  Wert  zuweisen,  ohne  dafur  den 
LSET-Befehl  zu  verwenden,  (also  z.B.  durch  INPUT  oder  mit 
'NamS^..')  wird  die  Zuordnung  zum  Puffer  aufgehoben.  Die  30 
Puffer- Bytes  sind  dann  nicht  mehr  verfiigbar.  Deshalb  bei  der 
Dateieingabe  der  Umweg  iiber  die  Variable  'EingabeNam$\ 

Das  Ganze  gilt  auch  fur  die  anderen  Ubergabevariablen  des 
Datensatz-Puffers.  Die  Syntax  von  LSET  ist  ganz  einfach: 

LSET  (Ubergabevariable)=(Variable) 

Kommen  wir  zum  nachsten  Schritt:  Noch  stehen  die  Daten  aus- 
schlieBich  im  Pufferspeicher.  Urn  sie  auf  die  Diskette  zu  brin- 
gen,  benotigen  Sie  den  PUT-Befehl.  Der  heiBt  zwar  genauso, 
wie  unser  kleiner  Grafiker  aus  Kapitel  4.1,  aber  die  beiden  sind 
nur  sehr  weitlaufige  Verwandte.  Das  ist  fast  wie  bei  Dallas, 
Denver  oder  Falcon  Crest:  Beim  PUT-Befehl  muB  man  ganz  ge- 
nau  den  PUT  aus  der  Grafik-Linie  der  Familie  und  den  aus  der 
Daten-Linie  unterscheiden.  Falsch  ist  das  Genicht,  daB  der 
Grafik-PUT  als  brotloser  Kunstler  das  schwarze  Schaf  der  Fa- 
milie ist... 

Hinter  dem  Daten-PUT  geben  Sie  die  Dateinummer  an.  Und 
dahinter  die  Nummer  des  Datensatzes,  in  den  die  aktuellen 
Pufferdaten  geschrieben  werden  sollen.  Beim  Schreiben 
empfiehlt  es  sich,  die  Satznummern  ab  1  hochzuzahlen,  so  bleibt 
kein  Satz  ungenutzt.  Sie  konnen  aber  theoretisch  jede  beliebige 
Satznummer  zwischen  1  und  16777215  angeben.  Halt,  Halt!  Be- 
vor  Sie  jetzt  die  gerade  genannte  Zahl  ausprobieren,  ein  kleine 
EinschrSnkung:  16777215  ist  die  hflchstmdgliche  Daten- 
satznummer,  die  AmigaBASIC  erlaubt.  Welche  Nummer  in  der 
Praxis  die  hochstmdgliche  ist,  hSngt  vom  zur  Verfiigung  stehen- 
den  Speicherplatz  und  von  der  Datensatz-GrdBe  ab.  Auf  jeden 
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Fall  liegt  sie  deutlich  unter  16777215  Satzen,  denn  mit  einer  so 
groBen  Datei  kdnnten  Sie  problemlos  eine  20  Megabyte  Harddisk 
bis  aufs  letzte  Byte  fallen.  Jede  gew&hnliche  Amiga-Diskette 
geht  da  schon  weit  vorher  aus  den  N&hten...  Auf  eine  vdllig 
leere  3±-Zoll-Diskette  passen  etwa  10000  S&tze  unserer  AdreB- 
datei. 

Damit  Mtten  wir's,  soweit  das  Schreiben  betroffen  ist.  Der  Rest 
des  Programms  bietet  Ihnen  nichts  Neues  mehr.  Speichern  Sie 
doch  bitte  ma!  so  urn  die  10  Adressen  ab,  damit  das  n&chste 
Beispielprogramm  ein  biBchen  was  zu  lesen  hat.  Sie  finden  es 
auf  unserer  Diskette  im  Buch  unter  dem  Namen 
"RelAdresse.  lesen". 

OPEN  Hr",#1l"AdreBdatei",92 

FIELD  #1,30  AS  Nan*, 30  AS  Strasse$,20  AS  0rt$,12  AS  TelNR$ 

Einlesen: 

INPUT  "Adresse  Nr.:";Nr 

GET  #1,Nr 

IF  EOF(I)  THEN  PRINT  "Nummer  nicht  erlaubt!"  :  GOTO  Einlesen 

PRINT  Nam$ 

PRINT  Strasse$ 

PRINT  Ort$ 

PRINT  TelNR$ 

INPUT  "Ueitere  Adressen  lesen  (J/N)";Antu$ 

IF  UCASE$(Antw$)<>HNM  THEN  Einlesen 
CLOSE  1 

Die  Programmzeilen  mit  dem  OPEN-  und  dem  FIELD-Befehl 
unterscheiden  sich  nicht  vom  Schreib-Programm:  Die  Datei  wird 
ge5f f net  und  der  zugehdrige  Puffer  eingerichtet.  Die  Puffer- 
einteilung  und  die  Satz&nge  beim  Lesen  mussen  identisch  sein 
mit  den  Werten,  die  beim  Schreiben  der  Datei  verwendet 
wurden.  In  gr68eren  Datei-Programmen  gibt  es  deshalb  oft  zu- 
sStzlich  zur  relativen  oft  eine  sequentielle  Datei,  aus  der  das 
Programm  die  notwendigen  Informationen  uber  SatzlSnge  und 
Feld-Einteilung  liest. 
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Da  Sie  beim  Offnen  relativer  Dateien  keinen  Lese-  oder 
Schreib-Modus  angeben,  kflnnen  Sie  fur  ein-  und  dieselbe  Datei 
in  beliebiger  Reihenfolge  abwechselnd  Lese-  und  Schreibbefehle 
durchfuhren.  Auch  das  ist  ein  Vorteil  im  Vergleich  zu  sequen- 
tiellen  Dateien. 

In  unserem  Adressen-Leseprogramm  werden  Sie  zuerst  nach  der 
Nummer  der  Adresse  gefragt,  also  der  Satznummer.  Wenn  Sie  in 
Ihre  Datei  10  Adressen  geschrieben  haben,  ktfnnen  Sie  Zahlen 
zwischen  1  und  10  angeben.  Bei  weniger  Adressen  liegt  die 
Grenze  entsprechend  tiefer.  Jetzt  betritt  der  Partner  des  PUT- 
Befehls  die  Buhne:  GET.  Auch  von  diesem  Befehl  gibt  es  eine 
Grafik-  und  eine  Dateiversion  (die  Familienschicksale  gleichen 
sich...).  Der  Datei-GET-Befehl  liest  einen  angegebenen  Daten- 
satz  von  Diskette  und  schreibt  die  Daten  in  den  Puffer.  Sie 
mussen  nur  die  Dateinummer  und  die  gewiinschte  Satznummer 
angeben.  Nachdem  der  GET-Befehl  den  Satz  von  der  Diskette  in 
den  Puffer  ubertragen  hat,  kdnnen  Sie  den  Pufferinhalt  aus  den 
Ubergabevariablen  lesen.  So  kommen  wir  dann  an  unsere 
AdreBdaten. 

Die  Funktion  EOF  funktioniert  ubrigens  bei  relativen  Dateien 
genauso  wie  bei  sequentiellen:  Wenn  Sie  eine  zu  hohe  Satz- 
nummer lesen  wollen,  ergibt  EOF(l)  den  Wert  -1.  So  l&Bt  sich 
feststellen,  ob  der  gewiinschte  Satz  uberhaupt  existiert.  Wenn 
sich  Ihr  Programm  nicht  urn  diese  Abfrage  kummert,  gelangen 
recht  seltsame  Daten  in  den  Puffer:  entweder  Fragmente  und 
zufailige  Mischungen  vorhandener  Datensatze  oder  Anhaufungen 
von  zufSlligen  Zeichen,  meist  Sonderzeichen.  Lese-Programme 
sollten  so  ein  Daten-Chaos  nach  Mdglichkeit  verhindern. 

Die  PRINT-Befehle  bringen  dann  die  Adresse  auf  den  Bild- 
schirm.  Wie  schon  erklart,  kflnnen  Sie  die  Einzeldaten  nach  dem 
GET-Befehl  jederzeit  aus  den  Ubergabevariablen  lesen:  'Nam$\ 
'Strasse$\  'OrtS'  und  TelNRS'  liefern  die  zugewiesenen  Puffer- 
inhalte. 
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Unser  Programm  fragt  dann  noch,  ob  weitere  Daten  eingelesen 
werden  sollen  oder  nicht.  Wenn  Sie  "N"  eingeben,  wird  die  Datei 
geschlossen  und  das  Programm  beendet.  Bei  jeder  anderen  Ein- 
gabe  kfinnen  Sie  einen  neuen  Datensatz  lesen. 

Beim  Ausprobieren  erleben  Sie  dann  selbst  die  Vorteile  relativer 
Dateien.  Lesen  Sie  Adresse  Nummer  1,  Adresse  10,  dann  viel- 
leicht  Adresse  2  und  danach  Adresse  8:  Die  Daten  sind  ohne 
langes  Suchen  sofort  verfugbar. 

Damit  Sie  sich  etwas  ausfuhrlicher  von  diesen  Vorteilen  iiber- 
zeugen  kfcnnen,  dabei  auch  noch  etwas  Neues  lernen  und  zum 
SchluB  ein  niitzliches  Programm  besitzen,  machen  wir  uns  jetzt 
mit  unseren  Fachkenntnissen  auf  dem  Gebiet  der  relativen  Da- 
teien ans  Programmieren  eines  neuen  Utilities.  Was  dem  Bundes- 
nachrichtendienst,  den  Punktesammlern  in  Flensburg  oder  dem 
Finanzamt  recht  ist,  sollte  uns  nur  billig  sein:  Wir  programmie- 
ren uns  eine  eigene  kleine  Datenbank. 


5,2        Mick  Jagger,  Beethoven  oder  Wiener  Wiirstchen  -  das 
Datenbank-  Programm 

Eigentlich  haben  wir  schon  eine  Datenbank  zusammen  pro- 
grammiert:  Die  Statistikdaten-Verwaltung  ist  schlieBlich  in  erster 
Linie  auch  nur  zum  Sammeln  von  Daten  gedacht.  Da  es  aber 
wenig  sinnvoll  ist,  aus  Ihren  Adressen  oder  Ihren  Schall- 
plattenbestanden  eine  Balken-  oder  eine  Tortengrafik  zu  zeich- 
nen  und  auOerdem  dem  Statistik-Programm  die  Moglichkeit 
fehlt,  mehr  als  zwei  Daten  (n&mlich  Bezeichnung  und  Wert)  pro 
Datensatz  zu  verwalten,  haben  wir  uns  entschlossen,  mit  Ihnen 
ein  kleines  offenes  Datenbank-Programm  zu  erstellen.  "Offen" 
nennen  wir  das  Programm  deshalb,  weil  Sie  die  M6glichkeit  ha- 
ben, eine  Datei  vollst&ndig  nach  Ihren  eigenen  Wunschen  einzu- 
richten.  Das  heiBt,  mit  dieser  Datenbank  kann  Vati  spater  seine 
klassischen  Platten  archivieren,  Sohnemann  seine  Popcassetten 
und  CDs  und  Mutti  ihre  Kuchenrezepte.  Und  jeder  so,  wie  er  es 
gerne  mdchte. 
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Doch  nun  genug  der  Vorrede.  Sturzen  wir  uns  auf  unser  n§ch- 
stes  Projekt  (Auch  diesmal  sollten  Sie  sich  vielleicht  mit  Erd- 
nussen  und  GetrSnken  eindecken...).  Wer's  einfach  liebt,  ladt 
naturlich  wieder  das  Programm  von  unserer  Diskette.  "Daten- 
bank"  heifit  das  gute  Stiick. 

Vorbereitungen: 
PALETTE  0,0, .1, .4 
PALETTE  2,0,1,0 


Anfang: 

CLS  :  LOCATE  1,1  :  PRINT  ''Auswahl" 

LOCATE  1,25  :  COLOR  3,0  :  PRINT  "Datei:";  :  COLOR  1,0 

IF  ALtnameSo""  THEN  PRINT  Altname$  ELSE  PRINT  "(keine)" 

PRINT 

COLOR  0,3  :  PRINT  SPACE$(21)''AmigaBASIC  Datenbank"SPACE$(21> 
LOCATE  5,22  :  COLOR  3,0 
PRINT  "Bitte  wahlen  Sie:» 
LOCATE  7,22 

COLOR  0,1  :  PRINT  ••  1  '■;  :  COLOR  1,0  :  PRINT  '•  Datei  einrichten" 
LOCATE  9,22 

COLOR  0,1  :  PRINT  •'  2  •■;  :  COLOR  1,0  :  PRINT  ••  Neue  Oaten  eingeben" 

LOCATE  11,22 

COLOR  0,1  :  PRINT  •■  3  »;  :  COLOR  1,0  :  PRINT  ••  Daten  lesen" 

LOCATE  13,22 

COLOR  0,1  :  PRINT  »  4  ••;  :  COLOR  1,0  :  PRINT  '•  Daten  suchen" 

LOCATE  15,22 

COLOR  0,1  :  PRINT  •'  5  •';  :  COLOR  1,0  :  PRINT  "  Beenden" 
Auswah I : 

LOCATE  18,1  :  PRINT  SPACE$(60) 
LOCATE  18,22  :  COLOR  3,0  :  PRINT  "Ihre  Wahl:»; 
COLOR  1,0  :  LINE  INPUT  Uahl$ 
Wahl$=LEFT$(Wahl$,1) 
IF  Wahl$<»1»  OR  Wahl$>»5»  THEN  Auswahl 
IF  Uahl$=»1»  THEN  DateiEinrichten 
IF  Wahl$=»2»  THEN  DateiEingeben 
IF  Uahl$="3»  THEN  DatSuch=0  :  GOTO  DatenLesen 
IF  Wahl$=»4»  THEN  DatSuch=1  :  GOTO  DatenLesen 
PRINT  "Programm  beendet." 
END 
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An  ♦Vorbereitungen:'  gibfs  eigentlich  wenig:  Zwei  kleme 
PALETTE-Befehle  haben  wir  anzubieten  und  selbst  die  nur  aus 
kosmetischen  GrOnden.  Wir  machen  damit  das  Blau  des  Bild- 
schirmhintergrunds  etwas  dunkler.  Das  gibt  dem  Programm 
gleich  ein  professionelleres  Aussehen.  Lachen  Sie  nicht!  Es 
stimmt  wirklich:  Der  optische  Eindruck  eines  Programms  ver- 
bessert  sich,  wenn  Sie  nicht  die  Standard-Workbench-Farben 
verwenden.  Das  Ganze  sieht  dann  nicht  mehr  so  nach  BASIC 
aus.  Mit  dem  zweiten  PALETTE  andern  wir  das  Workbench- 
Schwarz  in  Griin  urn.  Diese  Farbe  bietet  einen  besseren  Kontrast 
zum  Hintergrund. 

Der  Programmteil  'Anfang:'  ldscht  den  Bildschirm  und  schreibt 
in  die  linke  obere  Bildschirmecke  das  Wort  "Auswahl".  In  unse- 
rem  Datenbank-Programm  schreiben  wir  an  diese  Stelle  immer 
den  aktuellen  Modus.  So  sieht  der  Anwender  gleich,  wo  und 
woran  er  ist. 

In  der  Mitte  der  ersten  Zeile  erscheint  die  aktuelle  Datei.  Un- 
raittelbar  nach  dem  Programmstart  wurde  natiirlich  noch  keine 
Datei  benutzt,  deshalb  erscheint  hier  das  Wort  "(keine)". 

Dann  drucken  wir  eine  Uberschriftsleiste.  Hier  kommt  ein  neuer 
Befehl  vor:  SPACE$(x).  "Space"  (deutsch:  "Raum")  ist  die  engli- 
sche  Bezeichnung  fur  die  Leertaste  auf  der  Tastatur.  SPACES 
erzeugt  einen  String  aus  lauter  Leerzeichen.  In  Klammern  geben 
Sie  die  gewunschte  Lange  an.  So  kdnnen  Sie  (wie  in  der  Uber- 
schriftszeile)  farbige  Balken  drucken:  Einfach  eine  Schnftfarbe 
zur  Hintergrundfarbe  machen,  wie  zum  Beispiel  durch  CO- 
LOR 0,3.  In  der  Uberschriftsleiste  schreiben  wir  dunkelblau  auf 
orange.'  SPACES  eignet  sich  auch  zum  Lfischen  von  Texten,  aber 
dafur  kommen  spSter  noch  Beispiele. 

Als  nachstes  drucken  wir  ein  Auswahlmenu,  das  die  einzelnen 
mdglichen  Punkte  vorstellt.  "Datei  einrichten"  rufen  Sie  auf,  urn 
eine  neue  Datei  zu  erstellen.  In  diesem  Programmteil  werden  die 
Namen  und  Langen  der  einzelnen  Datenfelder  festgelegt.  "Neue 
Daten  eingeben"  ist  der  Programmteil,  in  dem  Sie  Daten  einge- 
ben  kdnnen.  "Daten  lesen"  ermdglicht  Ihnen,  durch  eine  ganze 
Datei  zu  blattern  und  einzelne  Datensatze  zu  verandern.  "Daten 
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suchen"  hilft  Ihnen  dabei,  Datensatze  nach  bestimmten  Kriterien 
zu  suchen.  "Beenden"  erkiart  sich  wirklich  von  selbst:  Mit  dieser 
Option  macht  Ihr  Programm  SchluB.  Es  folgen  die  Programm- 
zeilen,  die  fur  die  Auswahl  zustSndig  sind.  Hier  sehen  Sie  auch 
einen  SPACES  zu  Loschzwecken:  Was  immer  der  Anwender  in 
der  Auswahl-Zeile  getippt  hat  -  wenn  es  eine  Fehleingabe  war, 
wird  sie  geloscht  und  eine  neue  Abfrage  findet  statt. 

Abhangig  von  der  Eingabe  werden  die  einzelnen  Programmteile 
aufgerufen.  Fur  "Daten  lesen"  und  "Daten  suchen"  wird  in  bei- 
den  Fallen  'DatenLesen:'  verwendet.  Anhand  der  Variablen 
'DatSuch'  erkennt  das  Programm,  ob  es  alle  Datensatze  einlesen 
soil  oder  nur  die  gesuchten.  Und  schon  kommt  der  erste  Pro- 
grammteil: 

DateiEinrichten 

CLS  :  LOCATE  1,1  :  COLOR  1,0  :  PRINT  "Datei  einrichten" 

LOCATE  1,25  :  COLOR  3,0  :  PRINT  "Datei"; 

COLOR  1,0  :  PRINT  "(kefne)" 

COLOR  3,0  :  LOCATE  3,1 

PRINT  "Bitte  geben  Sie  die  Feldnamen  und  die  FeLdlangen  an." 

COLOR  1,0 

FOR  x=0  TO  9 

Feldname$=""  :  Laenge(x)=0 
NEXT  x 

LOCATE  4,1  :  PRINT  "Name"  :  LOCATE  4,26  :  PRINT  "Lange  (-40)" 
FOR  x=0  TO  9 

AnzahlFelder=x 

LOCATE  x+6,1  :  LINE  INPUT  Fetdname$(x) 

IF  Feldname$(x)=»"  THEN  x=10  :  AnzahlFelder=AnzahlFelder-1 

Feldnaroe$(x)=LEFT$(Feldname$(x),25) 

LOCATE  x+6,26  :  PRINT  SPACE$(40); 

LOCATE  x+6,26  :  LINE  INPUT  LaengeS 

IF  Laenge$=»"  OR  ABS(VAL(Laenge$))  >  40  THEN  Laenge$=»40" 

Laenge(x)=INT(ABS(VAL(Laenge$))) 

IF  Laenge(x)=0  THEN  Laenge(x)=40 
NEXT  x 
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Fehlerabfrage: 

GOSUB  FehlerJN 

IF  Korr=0  THEN  DateiOeffnen 

IF  Korr=1  THEN  Fehlerkorrektur 
GOTO  Fehlerabfrage 

Fehlerkorrektur: 

FOR  x=0  TO  AnzahlFelder 

LOCATE  x+6,1  :  PRINT  SPACE$(60) 

LOCATE  x+6,25  :  PRINT  Laenge(x) 

LOCATE  x+6,1  :  PRINT  Feldname$(x) 
NEXT  x 
FOR  x=0  TO  AnzahlFelder 

LOCATE  x+6,1  :  LINE  INPUT  FeldnameS 

IF  Feldname$<>,m  THEN  Feldname$<x)=LEFT$(Feldname$,25) 

LOCATE  x+6,26  :  LINE  INPUT  LaengeS 

IF  ABS(VAL(Laenge$>)>40  THEN  Laenge$=»40" 

IF  Laenge$<>'"'  THEN  Laenge<x)=INT(ABS(VAL(Laenge$))> 

IF  Laenge<x)=0  THEN  Laenge(x)=40 
NEXT  x 
GOTO  Fehlerabfrage 

DateiOeffnen: 

LOCATE  19,1  :  PRINT  SPACE$(60); 

LOCATE  19,1  :  COLOR  3,0  :  PRINT  "Bitte  geben  Sie  den  Dateinamen  ein:"; 

COLOR  1,0  :  LINE  INPUT  Nan* 

Satzlaenge=0 

FOR  x=0  TO  AnzahlFelder 
Satzlaenge=Satzlaenge+Laenge(x) 

NEXT  x 

IF  NairtS=""  OR  Satzlaenge=0  THEN  BEEP  :  GOTO  Anfang 

OPEN  »R»,#1,Nam$,Satzlaenge 

FIELD  #1,Laenge(0)  AS  Dat$(0),Laenge(1)  AS  Dat$(1),Laenge(2)  AS  Dat$ 
(2),Laenge(3)  AS  Dat$(3),Laenge(4)  AS  Dat$(4),Laenge(5)  AS  Dat$(5),Laeng 
e(6)  AS  Dat$(6),Laenge(7)  AS  Dat$(7),Laenge(8)  AS  Dat$(8),Laenge(9)  AS  D 
at$(9) 
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Also,  an  dieser  Stelle  miissen  wir  doch  mal  unterbrechen.  Das 
gerade  war  wahrscheinlich  die  l&ngste  Zeile,  die  Sie  je  in 
AmigaBASIC  eingegeben  haben.  Zumindest  dann,  wenn  Sie  sich 
entschlossen  haben,  unser  Programm  einzutippen,  statt  es  von 
Diskette  zu  laden. 

Programmzeilen  diirfen  ja  bis  zu  255  Zeichen  lang  sein,  aber  fur 
guten  Programmierstil  spricht  das  nicht  gerade.  In  diesem  Fall 
lieB  es  sich  allerdings  leider  nicht  vermeiden.  S&mtliche  Be- 
reichsdefinitionen  mit  FIELD  miissen  in  einer  Zeile  stehen,  Be- 
ginnt  namlich  eine  neue  FIELD-Zeile,  Oberschreibt  sie  die  alte 
Puffereinteilung.  Da  wir  10  Variablen  unterbrigen  wollen, 
muBten  wir  also  diese  Riesenzeile  konstruieren.  Tippen  Sie  ein- 
fach  alles  hintereinander  weg,  und  drucken  Sie  am  SchluB 
<RETURN>. 

Dann  geht's  normal  weiter: 

FOR  x=1  TO  AnzahlFelder 

LSET  Dat$(x)=»  '< 
NEXT  x 
CLOSE  1 

OPEN  Nam$+».Felder"  FOR  OUTPUT  AS  2 
PRINT  #2fAnzahlFeLder 
PRINT  #2fSatzlaenge 
PRINT  #2,0 

FOR  x=0  TO  AnzahlFelder 
WRITE  #2,Fetdname$(x) 
PRINT  #2,Laenge(x) 
NEXT  x 
CLOSE  2 
Altname$=Namt 
GOTO  Anfang 


In  diesem  Teil  richten  Sie  sich  also  gemiitlich  ein  in  Ihrer  Datei. 
Zuerst  drucken  wir  den  aktuellen  Modus  ins  linke  obere  Eck: 
"Datei  einrichtenH.  Die  aktuell  bearbeitete  Datei  heiBt  "(kerne)". 
Schliefllich  basteln  wir  gerade  an  einer  neuen  Datei,  und  die  hat 
noch  keinen  Namen. 
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Ubrigens:  Vielleicht  wundern  Sie  sich  uber  den  inflationaren 
Gebrauch  von  COLOR-Befehlen  im  Listing.  Wir  haben  versucht, 
durch  die  Schriftfarben  eine  optische  Gliederung  zu  erzeugen: 
Hinweise,  Aufforderungen  und  Erkiarungen  schreiben  wir 
orange.  Die  Daten,  Ubersichten  und  Anwendereingaben  erschei- 
nen  weiB  auf  dem  Bildschirm.  Die  Feldnamen  in  den  Daten- 
s&tzen  schlieBlich  erscheinen  grun.  Mit  COLOR  3,0  schalten  wir 
auf  Orange,  mit  COLOR  2,0  auf  Grun  und  mit  COLOR  1,0  auf 
WeiB. 

Im  Teil  'DateiEinrichten:'  wird  der  Anwender  aufgefordert,  die 
Namen  und  L&ngen  der  Datenfelder  festzulegen.  Diese  Ein- 
teilung  kflnnen  Sie  so  vornehmen,  wie  es  Ihnen  sinnvoll  er- 
scheint.  Jeder  Datensatz  kann  aus  bis  zu  10  Einzelelementen  be- 
stehen.  Deshalb  die  Schleife  FOR  x=0  TO  9. 

In  der  Variablen  'AnzahlFelder*  merkt  sich  das  Programm  die 
Anzahl  der  Datenfelder  pro  Datensatz.  Mit  jeder  neuen  Feldein- 
gabe  wird  dieser  Wert  um  eins  erhdht. 

Zuerst  lesen  wir  den  Feldnamen  ein.  Das  sind  die  Bezeichnungen 
wie  "Name",  "StraBe",  "Ort\  "Titer  etc.  Die  MaximallSnge  fOr 
einen  Feldnamen  sind  25  Zeichen.  SchlieBlich  brauchen  wir  noch 
ein  biBchen  Platz  fur  die  eigentlichen  Daten.  Findet  in  diesem 
Modus  eine  Leereingabe  statt,  erkennt  das  Programm  daraus, 
daB  nun  alle  Felder  eingegeben  sind.  V  wird  auf  10  gesetzt,  die 
Schleife  wird  also  beim  n&chsten  NEXT  beendet. 

1st  der  Feldname  eingegeben,  fehlt  noch  die  Feldiange.  Maxi- 
malwert  fur  die  Datenfeldiange  sind  40  Zeichen.  Zun&chst  ldscht 
ein  SPACE$(40)  eventuell  iiberstehende  Teile  des  Feldnamens. 
Der  wird  ja  nach  25  Zeichen  abgeschnitten.  Nun  gibt  der  An- 
wender einen  Wert  fur  die  Variable  TaengeS'  ein.  Gab  es  eine 
Leereingabe  oder  eine  Eingabe  grdBer  als  40,  wird  der  Wert  fur 
die  Feldlange  auf  40  Zeichen  begrenzt.  Mit  der  reichlich  ver- 
schachtelten  Funkion  INT(ABS(VAL(Laenge$)))  filtern  wir  so 
ziemlich  alle  Fehler  aus  der  Eingabe,  die  der  Anwender  bewuBt 
oder  unbewuBt  gemacht  hat:  VAL  wandelt  den  String  in  eine 
Zahl.  Sind  Buchstaben  oder  Sonderzeichen  dabei,  fallen  sie  unter 
den  Tisch.  ABS  macht  die  Zahl  in  jedem  Fall  positiv:  Eingaben 
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mit  einem  Minuszeichen  werden  "umgepolt".  INT  schlieBlich 
entledigt  uns  eines  eventuell  vorhandenen  Kommateils.  Der 
wurde  bei  Feldlangen  ja  wirklich  keinen  Sinn  machen.  Oder  was 
verstehen  Sie  unter  23,124246  Zeichen?  Sie  sehen  unser  Sicher- 
heitscheck  ist  fast  so  gut  wie  der  an  Flughafen.  Hat  der  Anwen- 
der  0  eingegeben,  wird  ebenfalls  der  Standardwert  40  ubernom- 
men.  Wir  hoffen,  daB  wir  an  alle  mdglichen  und  unmdglichen 
Fehler  gedacht  haben.  Wenn  Sie  eine  personliche  mftgliche  Feh- 
leingabe  entdecken,  rusten  Sie  Ihr  Programm  halt  einfach  ent- 
sprechend  nach. 

Die   Schleife   lauft  hOchstens    10   mal   durch.   Dann   gibt  es    10 
Feldnamen,  der  hochste  erlaubte  Wert. 

Im  Programmteil  'Fehlerabfrage:'  wird  ein  Unterprogramm  na- 
mens   'FehlerJN:'   (Fehler   Ja/Nein)   aufgerufen,   daB   es    bisher 
noch  gar  nicht  gibt.  Es  wird  den  Anwender  spater  fragen,  ob  er 
bei  seiner  Eingabe  einen  Fehler  entdeckt  hat.  Antwortet  er  mit 
Ja,  erhait  er  Gelegenheit,  seinen  Fehler  zu  korrigieren.  Die  Va- 
riable   'Korr'    gibt    Auskunft    uber   die    Antwort.    Besteht   der 
Wunsch      nach      Fehlerkorrektur,      wird      der      gleichnamige 
Programmteil  aufgerufen:  'Fehlerkorrektur:'.  Hier  drucken  wir 
zunachst  die   bisher  eingegebenen   Daten   auf  den   Bildschirm: 
Spaltenweise  untereinander  die  Feldnamen  und  FeldlSngen.  Eine 
FOR...NEXT-Schleife  zahlt  von  1  bis  zu  'AnzahlFelder':  Fur  je- 
des  eingegebene  Feld  gibt  es  eine  Korrekturmdglichkeit.  Feld 
fur  Feld  erscheint  der  Cursor  und  ein  LINE  INPUT  fragt  nach 
neuen  Eingaben.  Ist  die  Antwort  ein  Leerstring,  soil  nichts  an 
den  bisherigen  Daten  verandert  werden.  Bei  anderen  Eingaben 
wird  der  neue  Wert  anstelle  des  alten  ubernommen.  Die  Abfra- 
gen  zur  Einschrankung  der  Feldlange  sind  identisch  mit  den 
Programmzeilen,  die  im  'DateiEinrichten:"-Teil  dieselbe  Funk- 
tion  erfiillen. 

Nach  erfolgter  Korrektur  wird  das  Label  'Fehlerabfrage:'  erneut 
angesprungen,  falls  Sie  Verbesserungen  an  Ihren  Verbesserungen 
vornehmen  wollen.  Das  Ganze  lauft  so  lange  im  Kreis,  bis  Sie 
erkiaren,  daB  Sie  keine  Korrekturen  mehr  wunschen. 
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Dann  kommt  der  Teil  'DateiOeffnen:'  dran:  Er  fragt  zunachst 
nach  einem  Namen,  den  die  angelegte  Datei  erhalten  soil.  Eine 
FOR...NEXT-Schleife  errechnet  aus  den  Feldinhalten  von 
'Laenge(x)'  die  tatsachliche  'Satzlaenge'.  1st  diese  'Satzlaenge'=0, 
wurden  also  keine  Felder  fOr  den  Datensatz  definiert,  kehren 
wir  mit  einem  Protest-BEEP  zum  'Anfang:'  zuruck.  Anderenfalls 
wird  die  relative  Datei  mit  dem  in  'Nam$'  angegebenen  Namen 
erSffnet.  Jetzt  kommt  noch  die  vorher  schon  angesprochene 
FIELD-Zeile.  Tippen  Sie  sie  bitte  sehr  sorgfaltig  in  eine  einzige 
Zeile  ab. 

Wie  Sie  sehen,  kdnnen  Sie  auch  Feldvariablen  wie  'Dat$(x)'  als 
Ubergabevariablen  benutzen.  Da  wir  sowohl  die  Anzahl  der  Da- 
ten  pro  Satz,  als  auch  deren  Namen  und  deren  Lange  vanabel 
halten  wollen,  haben  wir  uns  fur  diese  L&sung  entschieden.  Je- 
des  Element  des  Datenfelds  'Dat$(x)'  bekommt  im  Puffer  einen 
Bereich  mit  der  Lange  'Laenge(x)'.  Da  diese  Lange  bei  nicht  be- 
nutzten  Feldelementen  Null  ist,  geht  durch  die  uberzahhgen  Va- 
riablen  trotzdem  kein  Pufferspeicher  verloren. 

Weil  wir  halt  nun  mal  10  Zuweisungen  in  einer  FIELD-Anwei- 
sung  unterbringen  mussen,  wurde  die  ganze  Sache  leider  etwas 
unubersichtlich. 

AnschlieBend  werden  die  Datenfelder  im  Puffer  mit  Leerzeichen 
aufgefullt.  So  ldschen  wir  eventuell  vorhandene  Daten.  Damit 
sind  alle  Vorbereitungen  der  Relativ-Datei  abgeschlossen. 

Wie  wir  im  letzten  Kapitel  schon  erwahnten,  bietet  es  sich  an, 
zusatzlich  eine  sequentielle  Datei  anzulegen,  in  der  wir  die  'An- 
zahlFelder',  die  'Satzlange',  die  Anzahl  an  Datensatzen  (zur  Zeit 
0),  die  Feldnamen  und  -langen  abspeichern.  Die  sequentielle 
Datei  bekommt  den  Namen  der  relativen  mit  dem  Anhangsel 
"  Felder".  Die  Datei  zu  "Adressen"  hieBe  also  "Adressen.Felder  . 
1st  auch  diese  Datei  geschrieben,  merkt  sich  'AltnameS'  noch 
den  letzten  benutzen  Dateinamen,  und  das  Programm  springt 
zuruck  zum  Anfang. 
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Nun,  da  wir  schon  eine  so  schdne  Relativ-Datei  haben,  sollten 
wir  sie  auch  bald  mit  Inhalten  fallen: 

DatenEingeben: 
CLS  :  LOCATE  1,1  :  PRINT  "Neue  Daten  eingeben" 
IF  Nam$="»  THEN 

LOCATE  3f1  :  COLOR  3,0  :  PRINT  "Bitte  geben  Sie  den  Dateinamen  ein:" 

COLOR  1,0  :  LINE  INPUT  Nan* 

IF  Nam$=  »=»  OR  NamS=»*«  THEN  Nam&=Attname$ 

IF  Naro$="«  THEN  Anfang 
END  IF 

GOSUB  Dat.FelderExistJN 
IF  DateiExist=0  THEN 

COLOR  3,0  :  PRINT 

PRINT  "Bitte  drucken  Sie  eine  Taste." 

WHILE  INKEY$=""  :  WEND  :  COLOR  1,0 

GOTO  Anfang 
END  IF 

GOSUB  Dat.FelderLesen 
SatzNummer=AnzahtSaetze+1 

OPEN  'W^Mam^Satzlaenge 

FIELD  #1,Laenge(0)  AS  Dat$(0),Laenge(1)  AS  Dat$(1),Laenge(2)  AS  Dat$ 
(2),Laenge(3)  AS  Dat$(3),Laenge(4)  AS  Dat$(4),Laenge(5)  AS  Dat$(5),Laeng 
e(6)  AS  Dat$(6),Laenge(7)  AS  Dat$(7),Laenge(8)  AS  Dat$(8),Laenge(9)  AS  D 
at$(9) 

Schon  wieder  dieses  Schlacht-FIELD.  Am  besten,  Sie  benutzen 
zur  Eingabe  "Copy"  &  "Paste"  und  kopieren  die  Zeile  von  oben 
an  diese  Stelle.  Und  jetzt  lassen  Sie  sich  nicht  weiter  stflren... 

Eingabeschleife: 

CLS  :  LOCATE  1,1  :  COLOR  1,0  :  PRINT  "Neue  Daten  eingeben" 
LOCATE  1,25  :  COLOR  3,0  :  PRINT  "Datei:"; 
COLOR  1,0  :  PRINT  Nam$ 

Eing=0 

LOCATE  1,50  :  PRINT  "Satz^SatzNummer 

PRINT  :  COLOR  3,0 

PRINT  "Bitte  geben  Sie  die  neuen  Daten  ein:"  :  COLOR  1,0 
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FOR  x=0  TO  AnzahlFelder 

LOCATE  5+x,1  :  COLOR  2,0  :  PRINT  Feldname$(x)":  " 
NEXT  x  :  COLOR  1,0 
FOR  x=0  TO  AnzahlFelder 

LOCATE  5+x,LEN(Feldname$(x))+2 

LINE  INPUT  EingabeS 

IF  Eingabe$<>»»  THEN  Eing=1 

Eingabe$(x)=LEFT$(Eingabe$lLaenge(x)) 

LSET  Oat$(x)=Eingabe$(x) 
NEXT  x 
Fehlerabfrage2: 
GOSUB  FehlerJN 
IF  Korr=0  THEN  SatzSchreiben 
IF  Korr=1  THEN  EingabelCorr 
GOTO  Fehlerabfrage2 

Eingabekorr: 

CLS  :  LOCATE  1,1  :  COLOR  1,0  :  PRINT  "Oaten  andern" 
LOCATE  1,25  :  COLOR  3,0  :  PRINT  "Datei:"; 
COLOR  1,0  :  PRINT  Nan* 

LOCATE  1,50  :  PRINT  »Satz:";SatzNunmer 
PRINT  :  PRINT 
FOR  x=0  TO  AnzahlFelder 
LOCATE  5+x,1  :  COLOR  2,0  :  PRINT  Feldname$(x)":  "; 
COLOR  1,0  :  PRINT  Eingabe$(x) 
NEXT  x 
FOR  x=0  TO  AnzahlFelder 

LOCATE  5+x,LEN(Feldname$(x))+2 
LINE  INPUT  EingabeS 
IF  Eingabe$<>,,,,  THEN 
Eing=1 

Eingabe$(x)=LEFT$(Eingabe$,Laenge(x)) 
LSET  Dat$(x)=Eingabe$(x) 
END  IF 
NEXT  X 
GOTO  Fehlerabfrage2 

SatzSchreiben: 
IF  Eing=1  THEN 
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PUT  #1,SatzNummer 

IF  DatAend=1  THEN  DatAend=0  :  GOTO  Leseschleife 

SatzNummer=SatzNunmer+1 
END  IF 
IF  DatAend=1  THEN  DatAend=0  :  GOTO  Leseschleife 

UeitereJN: 

LOCATE  19,1  :  PRINT  SPACE$(60)  :  COLOR  3,0 
LOCATE  19,1  :  PRINT  "Ueitere  Satze  ?  <J/N)»; 
COLOR  1,0  :  LINE  INPUT  a$ 

IF  UCASE$(a$)="J»  OR  a$=»»  THEN  Eingabeschleife 
IF  UCATE$(a$)=»N»  THEN  DateiSchl iessen 

GOTO  UeitereJN 

DateiSchliessen: 
CLOSE  1 

OPEN  Nam$+".Felder"  FOR  OUTPUT  AS  2 
PRINT  #2,AnzahlFelder 
PRINT  #2,Satzlaenge 
PRINT  #2,SatzNummer-1 
FOR  x=0  TO  AnzahlFelder 
WRITE  #2,Feldname$(x) 
PRINT  #2,Laenge(x) 
NEXT  x 
CLOSE  1 
GOTO  Anfang 


Der  Programmteil  'DatenEingeben:'  hinteriaBt  zunachst  seine 
Visitenkarte  im  linken  oberen  Bildschirmeck.  Hat  'Nam$'  keinen 
Inhalt,  soil  ein  neuer  Dateiname  eingelesen  werden.  Dabei  kdn- 
nen  Sie  wie  in  unseren  anderen  Programmen  durch  ein  =  oder 
ein  *-Zeichen  den  letzten  verwendeten  Namen  abkurzen. 

Hinter  diesen  Zeilen  steckt  folgendes:  Normalerweise  idschen  die 
einzelnen  Programmteile  den  'Nam$\  nachdem  der  Dateizugriff 
erfolgte.  Nur  'DateiEinrichten:1  tut  das  nicht:  Wenn  Sie  direkt 
von  der  Datei-Vorbereitung  in  die  Dateneingabe  wechseln,  ge- 
ben  Sie  automatisch  Daten  in  die  gerade  angelegte  Datei  ein. 
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Man  kann  normalerweise  davon  ausgehen,  daB  frisch  eingerich- 
tete  Dateien  auch  mit  Werten  versehen  werden  sollen.  Deshalb 
wurde  diese  Funktion  automatisiert. 

Als  n&chstes  rufen  wir  das  Unterprogramm  'Dat.FelderExistJN:1 
auf.  Es  stellt  fest,  ob  zum  eingegebenen  Dateinamen  eine 
.Felder-Datei  exisitert.  Das  erkUirt  wohl  auch  den  etwas  un- 
iibersichtlichen  Label-Namen.  Dieses  Unterprogramm  liefert  sein 
Ergebnis  in  der  Variablen  *DateiExist\  Hat  sie  den  Wert  0,  gibt 
es  die  Datei  nicht.  Bei  1  wurde  sie  gefunden.  Wenn  die  .Felder- 
Datei  existiert,  gibt  es  auch  die  zugehdrige  Relativ-Datei.  Wir 
wollen  feststellen,  ob  eine  bestimmte  Datei  bereits  existiert.  Und 
zwar  ohne  einen  "File  not  foundH-Error  zu  erzeugen.  Den  Trick, 
wie  wir  das  geschafft  haben,  werden  Sie  kennenlernen,  wenn 
wir  das  Unterprogramm  eingeben.  Gibt  es  die  Datei  nicht,  wird 
der  Anwender  darauf  hingewiesen.  Er  muB  zur  Bestatigung  eine 
beliebige  Taste  drucken,  dann  erfolgt  der  Rucksprung  zum 
'Anfang:'. 

Das  Unterprogramm  'Dat.FelderLesen:'  liest  die  .Felder-Datei, 
die  zur  gewahlten  Datei  gehort.  So  werden  die  Werte  der  Vari- 
ablen wie  'AnzahlFelder',  'Satzlaenge'  und  'AnzahlSaetze'  be- 
schafft,  auBerdem  die  Feldnamen  und  -Hingen.  Da  wir  neue 
Daten  grundsatzlich  hinter  dem  letzten  Satz  anhangen  wollen, 
ergibt  sich  die  neue  'SatzNummer1  aus  'AnzahlSaetze'+l.  Mit  den 
festgestellten  Daten  wird  die  Relativ-Datei  erCffnet,  und  auch 
die  FIELD-Zeile  von  vorhin  treibt  hier  wieder  ihr  Unwesen. 

Nun  beginnt  der  eigentliche  Eingabeteil:  *Eingabeschleife:\  Auch 
dieser  Modus  weist  sich  aus  ("Neue  Daten  eingeben")  und  druckt 
den  aktuellen  Dateinamen  in  die  Mitte  der  ersten  Bildschirm- 
zeile.  Nach  diesen  Formalitaten  wird  eine  Variable  namens 
'Eing1  auf  0  gesetzt.  Sie  steht  fur  "Eingabe"  und  soil  spfcter  mit- 
teilen,  ob  Eingaben  stattfanden  oder  nicht. 

In  die  rechte  Bildschirmecke  paBt  gerade  noch  die  aktuelle  Satz- 
nummer,  womit  auch  sie  dem  Anwender  mitgeteilt  ware.  Nun 
diirfen  die  neuen  Daten  eingegeben  werden.  Das  Programm 
weist  mit  einer  entsprechenden  Aufforderung  darauf  hin.  Von  0 
bis  zu  'AnzahlFelder1  erscheinen  nun  die  Feldnamen  auf  dem 
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Bildschirm.  Der  Eingabecursor  wandert  hinter  den  ersten  Namen 
und  wartet  dort  mit  LINE  INPUT  auf  eine  Eingabe.  Die  erste 
nicht  leere  Eingabe  setzt  'Eing'  auf  1:  Eine  richtige  Eingabe 
fand  statt.  Der  eingegebene  'Eingabe$*  wird  gegebenenfalls  auf 
die  zugehGrige  Feldiange  gestutzt  und  dann  mit  LSET  in  den 
Dateipuffer  geschrieben.  Das  Feld  *Eingabe$(x)'  merkt  sich 
auBerdem  noch  mal  alle  Eingaben  des  aktuellen  Datensatzes, 
unabhangig  vom  Dateipuffer. 

1st  die  Schleife  durchlaufen,  erhSlt  der  Anwender  wieder  Gele- 
genheit  zur  Fehlerkorrektur:  'FehlerJN:*  fragt  die  Antwort  ab 
und  teilt  sie  in  'Korr'  mit.  Beim  Wunsch  nach  Korrektur  tritt 
'EingabeKorr:'  in  Aktion.  Dieser  Programmteil  bringt  zuerst  den 
Text  'Daten  andern'  ins  Bildschirmeck  links  oben.  Auch  Datei 
und  Satznummer  finden  ihren  Platz.  Die  nSchste  FOR...NEXT- 
Scheife  druckt  Feldnamen  und  Feldinhalte  auf  den  Bildschirm. 
Es  folgt  die  Eingabe-Schleife,  ttber  die  es  nichts  Neues  mehr  zu 
berichten  gibt.  Sind  alle  Korrekturen  erledigt,  wird  der  Satz  von 
'SatzSchreiben:'  mit  dem  PUT-Befehl  auf  Diskette  geschrieben. 
Allerdings  nur,  falls  auch  Korrekturen  stattfanden  (falls  also 
•Eing'-l). 

Ein  Wort  zu  Variablen  'DatAend':  Das  'DatenLesen:'-Programm 
leiht  sich  zum  Andern  von  Daten  bei  Bedarf  die  'EingabeKorr:"- 
Routine  aus.  Wenn  'DatAend'  den  Wert  1  hat,  soil  nach  Beendi- 
gung  der  Eingabe  zur  'Leseschleife:'  zuruckgesprungen  werden. 

1st  dies  nicht  der  Fall,  wird  die  'SatzNummer*  urn  1  erh6ht  und 
eine  neue  Eingabe  kann  stattfinden.  Dazu  fragt  der  Teil  'Weite- 
reJN:'  beim  Anwender  nach,  ob  weitere  SStze  folgen.  Wenn  ja  - 
auf  zur  Eingabe.  Wenn  nein,  kann  die  Datei  geschlossen  werden. 
Hintendrein  schreiben  wir  noch  eine  neue  .Felder-Datei  mit  den 
aktuellen  Werten.  Beachten  Sie,  daB  diesmal  *Nam$'  gelflscht 
wird,  bevor  der  Rucksprung  zum  'Anfang:'  durchgefuhrt  wird. 
Vor  dem  nSchsten  Dateizugriff  muB  also  erst  ein  neuer  Da- 
teiname  eingeben  werden. 
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OatenLesen: 

CLS  :  LOCATE  1,1  :  PRINT  "Daten  lesen" 

IF  DatSuch=1  THEN  LOCATE  1,1  :  PRINT  "Daten  suchen" 

LOCATE  3,1  :  COLOR  3,0  :  PRINT  "Bitte  geben  Sie  den  Dateinamen  ein:" 

COLOR  1,0  :  LINE  INPUT  Nam* 

IF  NartS=  "="  OR  Nairt$="*"  THEN  Nan*=Altname$ 

IF  Naifl$=""  THEN  Anfang 

Altname$=Nairt$ 

GOSUB  Dat.FelderExistJN 
IF  DateiExist=0  THEN 

PRINT    :   COLOR  3,0 

PRINT  "Bitte  driicken  Sie  eine  Taste," 

COLOR  1,0 

WHILE  INKEY$="»  :  WEND 

GOTO  Anfang 
END  IF 

GOSUB  Dat.FelderLesen 
IF  AnzahlSaetze=0  THEN 

PRINT  :  BEEP 

COLOR  1,0 

PRINT  "Die  Datei  enthalt  noch  keine  Satze!" 

PRINT  :  COLOR  3,0 

PRINT  "Bitte  driicken  Sie  eine  Taste." 

COLOR  1,0 

WHILE  INKEY$=""  :  WEND 

GOTO  Anfang 
END  IF 
IF  DatSuch=1  THEN  GOSUB  DatenSuchen 

OPEN  "R",#1,Nam$,Satzlaenge 

FIELD  #1,Laenge(0)  AS  Dat$(0),Laenge(1)  AS  Dat$(1),Laenge(2)  AS  Dat$ 
<2),Laenge(3)  AS  Dat$<3),Laenge(4)  AS  Dat$<4),Laenge<5)  AS  Dat$(5),Laeng 
e(6)  AS  Dat$(6),Laenge(7)  AS  Dat$(7),Laenge(8)  AS  Dat$(8),Laenge(9)  AS  D 
at$(9) 
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Na,  Sie  wissen  ja  schon... 


SatzNummer=1 
Leseschleife: 

CLS  :  LOCATE  1,1  :  COLOR  1,0  :  PRINT  "Daten  lesen" 
LOCATE  1,25  :  COLOR  3,0  :  PRINT  "Datei:"; 
COLOR  1,0  :  PRINT  Nam* 
COLOR  3,0 

LOCATE  17,1  :  PRINT  "[Cursor  nach  oben]  =Satz  zuriick" 
LOCATE  17,37  :  PRINT  "[CTRL] - [A]=erster  Satz" 
PRINT  "[Cursor  nach  unten]=Satz  vor" 
LOCATE  18,37  :  PRINT  "[CTRL] - [E]=letzter  Satz" 
PRINT  "[CTRL]-[D]        =Satz  drucken" 
LOCATE  19,37  :  PRINT  "[HELP]    =Satz  andern" 
PRINT  "[CTRL] - [H]        =Hauptauswahl"; 
SatzLesen: 
COLOR  1,0 

IF  SatzNummer>AnzahlSaetze  THEN  BEEP  :  SatzNurnmer=AnzahlSaetze 
IF  SatzNummer<1  THEN  BEEP  :  SatzNummer=1 
LOCATE  1,50  :  PRINT  »Satz:";SatzNummer 
GET  #1,SatzNummer 

IF  0atSuch=1  THEN  LOCATE  1,1  :  PRINT  "Daten  suchen":  GOSUB  SuchDaten 
Pruefen 

IF  0atSuch=1  AND  Gefunden=0  THEN 

IF  SatzNummer=AnzahlSaetze  THEN  Richtung=-1 
IF  SatzNummer=AnzahlSaetze  AND  GefSatz=0  THEN 
CLS 

LOCATE  5,10  :  PRINT  "Keinen  passenden  Satz  gefunden!" 
LOCATE  7,10  :  COLOR  3,0 
PRINT  "Bitte  drucken  Sie  eine  Taste." 
COLOR  1,0  :  BEEP 

WHILE  INKEY$=»"  :  WEND  :  CLOSE  1  :  GOTO  Anfang 
END  IF 

IF  SatzNummer=1  THEN  Richtung=1 
SatzNummer=SatzNunmer+Richtung 
GOTO  SatzLesen 
END  IF 
GefSatz=1 

FOR  x=0  TO  AnzahlFelder 
LOCATE  5+x,1  :  COLOR  2,0  :  PRINT  Feldname$(x)":" 
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NEXT  X  :  COLOR  1#0 

FOR  x=0  TO  AnzahlFelder 

LOCATE  5+x,LEN(Feldname$<x))+3 

PRINT  Dat$(x) 

Eingabe$(x)=Dat$(x) 
NEXT  x 
Tast$="" 

WHILE  Tast$=""  :  Tast$=INKEY$  :  WEND 

IF  Tast$=CHR$(28)  THEN  SatzNummer=SatzNummer-1  :  Richtung=-1 
IF  Tast$=CHR$(29)  THEN  SatzNummer=SatzNumfi»er+1  :  Richtung=1 
IF  Tast$=CHR$(1)  THEN  SatzNumroer=1 
IF  Tast$=CHR$(5)  THEN  SatzNummer=AnzahlSaetze 
IF  Tast$=CHR$(8)  THEN  EndeLesen 
IF  Tast$=CHR$(4)  THEN 

FOR  x=0  TO  AnzahlFelder 
LPRINT  Feldname$<x)":"Dat$(x) 

NEXT  x 

LPRINT 
END  IF 

IF  Tast$=CHR$(139)  THEN  DatAend=1  :  GOTO  EingabeKorr 
GOTO  Leseschleife 

EndeLesen: 

CLOSE  1 

NamS="" 
GOTO  Anfang 


Ach  ubrigens:  Wenn  Sie  tippen  -  haben  Sie  Ihr  Programm  heute 
schon  gespeichert? 

'DatenLesen:*  beginnt  wie  gewohnt:  Der  Modus  ("Daten  lesen") 
wird  an  Position  (1,1)  geschrieben.  Beim  'Auswahli'-Teil  haben 
Sie  bereits  gesehen,  daB  der  Programmteil  'DatenLesen:'  fur  zwei 
Auswahlpunkte  benutzt  wird:  "Daten  lesen"  und  "Daten  suchen". 
Der  Unterschied  ist,  daB  im  Such-Modus  nur  die  S&tze  auf  dem 
Bildschirm  erscheinen,  die  auf  einen  vorher  eingebenen  Such- 
Schlussel  passen.  Die  Variable  'DatSuch'  sagt  der  Routine,  in 
welchem  Modus  sie  arbeitet.  Hat  'DatSuch1  den  Wert  1,  ist  der 
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Such-Modus  aktiv,  ansonsten  der  Lese-Modus.  Die  erste  Konse- 
quenz  von  'DatSuch'=l  ist,  daB  eine  andere  Bezeichnung  ins 
Bildschimreck  gedruckt  wird:  "Daten  suchen". 

Fur  beide  Betriebsarten  identisch  ist  der  nachste  Teil:  Ein  Da- 
temame  wird  eingegeben.  Den  letzten  verwendeten  Namen  kfln- 
nen  Sie  wieder  mit  =  oder  *  abkiirzen. 

Das  Unterprogramm  'Dat.FelderExistJN'  wird  aufgerufen,  um 
festzustellen,  ob  eine  Datei  mit  dem  angegebenen  Namen  Qber- 
haupt  auf  der  Diskette  exitistiert.  Falls  nicht  ('DateiExist'=0), 
druckt  das  Unterprogramm  eine  entsprechende  Nachricht.  Nach 
der  Ruckkehr  vom  Unterprogramm  soil  der  Anwender  dann  eine 
Taste  drucken,  sobald  er  den  Text  gelesen  hat.  Wenn  die  Datei 
jedoch  existiert,  wird  sie  mit  'Dat.FelderLesen'  gelesen. 

Handelt  es  sich  dabei  um  eine  frisch  angelegte  Datei,  kann  es 
vorkommen,  daB  sich  in  der  Datei  noch  keine  DatensStze  befin- 
den.  Dann  gibt  es  naturlich  auch  nichts,  was  gelesen  werden 
konnte.  In  diesem  Fall  bringt  das  Programm  den  Text  "Die  Datei 
enthalt  noch  keine  Satze!"  auf  den  Bildschirm,  laBt  diesen  Hin- 
weis  wieder  durch  einen  Tastendruck  bestatigen  und  kehrt  da- 
nach  zum  'Anfang:'  zuruck.  In  die  angegebene  Datei  rnussen  erst 
Daten  geschrieben  werden,  dazu  dient  ja  Menupunkt  Nummer  2. 

Ist  der  Such-Modus  aktiv  ('DatSuch'=l),  wird  das  Unter- 
programm 'DatenSuchen'  aufgerufen,  wo  der  Anwender  das 
Wort  angibt,  nach  dem  gesucht  werden  soil.  Und  jetzt  endlich 
kann  die  Relativ-Datei  erdffnet  werden.  Unsere  FIELD-An- 
weisung  kennen  Sie  ja  mittlerweile  zur  Genflge.  Beim  Eintippen 
kdnnen  Sie  wieder  die  "Copy"-  und  die  "Paste"-Option  aus  dem 
"Edif-Pulldown  einsetzen. 

Beim  Anzeigen  der  Daten  beginnt  das  Programm  grundsatzlich 
mit  Satz  1.  Also  setzen  wir  zu  Beginn  'SatzNummer'  auf  diesen 
Wert.  Nun  beginnt  die  'Leseschleife:'.  In  diesem  Teil  werden  die 
Daten  gelesen  und  angezeigt.  Zunachst  weist  sich  der  Pro- 
grammteil  wieder  mit  einer  Modus-Bezeichnung  aus,  auch  die 
aktuelle  Datei  wird  angezeigt.  Dann  beginnt  der  Bildschirmauf- 
bau.  Unterhalb  des  Bereichs,  wo  die  Datenfelder  angezeigt  wer- 
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den,  gibt  es  fur  den  Anwender  eine  Ubersicht  uber  die  zur 
Ver'fugung  stehenden  Tasten  und  ihre  Funktion  im  Programm. 
So  sieht  er  immer,  welche  Taste  was  bewirkt. 

Mit  der  <Cursor  nach  oben>-Taste  kann  er  einen  Satz  zuruck 
blattern,  mit  <Cursor  nach  unten>  einen  Satz  nach  vorn. 
<CTRL>-<A>  springt  direkt  zum  ersten  Satz  und  <CTRL>-<E> 
zum  letzten.  Beachten  Sie,  daB  im  Suchmodus  nur  die  Satze  be- 
nutzt  werden,  die  auf  den  Suchbegriff  passen.  Dann  wird  immer 
der  Satz  angesprungen,  der  als  nachster  (letzter)  gefunden 
wurde.  <CTRL>-<D>  druckt  den  aktuellen  Datensatz  auf  dem 
Drucker  aus  und  die  <HELP>-Taste  ermoglicht  es,  den  darge- 
stellten  Satz  zu  andern,  also  zu  korrigieren  oder  durch  neue  Da- 
ten  zu  ersetzen.  <CTRL>-<H>  schlieBlich  fuhrt  zuruck  zur 
Hauptauswahl,  sprich  zum  'Anfang:'. 

In  der  nachfolgenden  Schleife  'SatzLesen:'  wird  der  Dateizugriff 
erledigt.  Da  Sie  mit  den  Cursortasten  blattern  konnen,  muB  das 
Programm  zuerst  uberprufen,  ob  die  gewiinschte  'SatzNummer' 
zu  groB  oder  zu  klein  ist.  In  diesem  Fall  wird  sie  auf  den  gerade 
noch  erlaubten  Wert  festgelegt.  Die  Satznummer  zeigen  wir  im 
rechten  oberen  Eck  des  Bildschirms.  Der  GET-Befehl  liest  den 
angegebenen  Satz  von  Diskette  in  den  Datenpuffer. 

Jetzt  kommen  die  Routinen  zum  Suchen  von  Daten:  Ist  der 
Suchmodus  aktiv,  wird  zunachst  die  Modus-Bezeichnung  be- 
richtigt.  (Nicht  "Daten  lesen",  sondern  "Daten  suchen".)  Das  dann 
aufgerufene  Unterprogramm  'SuchDatenPruefen:'  checkt  ab,  ob 
der  gerade  gelesene  Satz  auf  den  Suchschlussel  paBt.  Falls  ja, 
bekommt  'Gefunden'  den  Wert  1,  falls  nein  den  Wert  0.  Nun 
folgt  ein  IF/END  IF-Block,  der  sich  darum  kummert,  was  pas- 
sieren  soil,  wenn  der  Satz  nicht  auf  den  Suchbegriff  paBt:  Ist  die 
Obergrenze  der  Satznummern  erreicht,  wird  'Richtung'  umge- 
kehrt  und  bekommt  den  Wert  -1.  Die  Suche  findet  nun  von 
hinten  nach  vorn  statt.  Und  zwar  solange,  bis  der  letzte  passende 
Satz  gefunden  wurde. 

Dabei  kann  aber  eine  Schwierigkeit  auftreten:  Wenn  die  aktuelle 
Datei  uberhaupt  keinen  Satz  beinhaltet,  der  auf  den  Suchschlus- 
sel paBt,   wurde  das  Programm  die   Daten  st&ndig   von   hinten 
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nach  vorn  und  wieder  von  vorn  nach  hinten  durchsuchen.  Damit 
ware  eS  dann  beschaftigt  -  24  Stunden,  Sonn-  und  Feiertags  an 
365  Tagen  im  Jahr.  Kurz:  Das  Ende  der  35-Stunden-Woche  fur 
Computer.  Aber  das  kann  ja  nicht  Sinn  der  Ubung  sein.  Deshalb 
die  nachste  Einschrankung:  1st  der  aktuelle  Satz  der  letzte  Satz 
der  Datei,  und  wurde  bisher  kein  passender  Satz  gefunden 
(festzustellen  durch  'GefSatz'=0),  brechen  wir  die  Suche  ab  und 
bnngen  stattdessen  den  Hinweis  auf  den  Bildschirm:  "Keinen 
passenden  Satz  gefunden!  Bitte  drucken  Sie  eine  Taste."  Nach 
diesem  Tastendruck  kehren  wir  zuruck  zur  Hauptauswahl. 

Gibt  es  aber  doch  mindestens  einen  passenden  Satz,  konnen  wir 
weitermachen:  Am  unteren  Ende  der  Datei  ('SatzNummer'=l) 
kehren  wir  die  Suchrichtung  wieder  urn  ('Richtung'=+1)  und 
suchen  nach  oben.  Die  'Richtung'  wird  zur  'SatzNummer'  addiert 
und  der  so  berechnete  neue  Satz  gelesen.  Hinter  dem  END  IF 
kann  'GefSatz'  auf  1  gesetzt  werden,  denn  nun  steht  fest,  daB 
mindestens  ein  passender  Satz  gefunden  wurde. 

Danach  kommen  wieder  beide  Betriebsarten  zu  ihrem  Rechf 
werden  Zuerst  die  Feldnamen  und  dann  die  Feldinhalte  auf  den 
Bildschirm  gedruckt.  Die  aktuellen  Satzinhalte  merkt  sich 
gleichzeitig  wieder  das  Feld  'Eingabe$\  damit  diese  Daten  fur 
Korrekturen  zur  Verfiigung  stehen. 

Die  darauffolgende  WHILE... WEND-Schleife  wartet  auf  einen 
Tastendruck  und  teilt  die  gedruckte  Taste  in  TastS'  mit  Hat 
'Tast$'  den  Wert  CHR$(28),  haben  Sie  also  <Cursor  nach  oben> 
gedrilckt,  wird  die  'SatzNummer'  um  eins  vermindert  und  die 
Suchrichtung  wird  umgekehrt:  Falls  der  Suchmodus  aktiv  ist 
suchen  wir  von  hinten  nach  vorn.  Bei  CHR$(29),  dem  Code  der 
Taste  <Cursor  nach  unten>,  findet  dasselbe  Spielchen  statt  nur 
mit  umgekehrtem  Vorzeichen.  CHR$(1)  wird  von  <CTRL>-<A> 
erzeugt.  Sie  wollen  an  den  Anfang  der  Datei  springen,  also  er- 
halt  'SatzNummer'  den  Wert  1 . 

CHR$(5)  entspricht  <CTRL>-<E>,  also  Sprung  zum  Dateiende 
Die  Variable  'AnzahlSaetze'  beinhaltet  die  letzte  Satznummer 
CHR$(8)  1st  der  Code  von  <CTRL>-<H>.  Mit  dieser  Tasten- 
kombination  springen  Sie  zuruck  zur  Hauptauswahl.  Um  die  nd- 
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tigen  Reiseformalitaten  kummert  sich  'EndeLesen:'.  1st  doch 
nicht  so  schwer,  oder?  Wenn  Sie  den  aktuellen  Satz  auf  dem 
Drucker  ausdrucken  wollen,  drQcken  Sie  <CTRL>-<D>.  Diese 
Tastenkombination  liefert  den  Code  CHR$(4).  Die  Feldnamen 
und  Feldinhalte  werden  mit  LPRINT-Befehlen  zum  Drucker 
geschickt.  Der  leere  LPRINT  hintendran  sorgt  fur  den  notigen 
Abstand  zwischen  den  einzelnen  Datensatzen,  zumindest  auf  dem 
Papier. 

Mit  der  <HELP>-Taste  (CHR$(139))  konnen  Sie  im  aktuellen 
Satz  Korrekturen  ausfiihren  oder  neue  Daten  eingeben.  "Warum  , 
so  denkt  sich  das  Lese-Programm:  "soil  ich  mich  damit  herum- 
schlagen?  DafOr  gibt  es  doch  schon  einen  Programmteil,  namhch 
'EingabeKorr:'."  Wir  haben  ja  schon  vorhin  erwahnt,  daB  sich 
die  Lese-Routine  diesen  Teil  von  'DatenEingeben:'  von  Zeit  zu 
Zeit  ausleiht.  Damit  'EingabeKorr:'  darUber  informiert  ist,  wer 
es  jetzt  eigentlich  aufgerufen  hat,  setzen  wir  'DatAend'  auf  1. 
Anhand  dieser  Variablen  weiB  das  Programm,  wohin  es  nach 
Beendigung  der  Korrekturen  zurlickspringen  soil. 

Und  damit  konnen  wir  dann  die  'Leseschleife:'  beenden  oder  ge- 
nauer  gesagt:  sie  von  Neuem  aufrufen.  Es  schlieBt  sich  'Ende- 
Lesen:' an,  der  Programmteil,  der  die  Heimkehr  zur  Hauptaus- 
wahl  regeif  Die  Relativ-Datei  wird  geschlossen,  'Nam$'  ge- 
ldscht,  und  schon  erfolgt  der  Sprung  zum  'Anfang:'.  Jetzt  fehlen 
uns  nur  noch  die  Unterprogramme: 

DatenSuchen: 

CLS  :  LOCATE  1.1  :  COLOR  1.0  :  PRINT  "Daten  suchen" 
LOCATE  1.25  :  COLOR  3,0  :  PRINT  "Datei:"; 
COLOR  1,0  :  PRINT  Nan* 
FOR  x=0  TO  AnzahlFelder 

LOCATE  5+X.1  :  PRINT  FeldnameS(x) 

NEXT  x 

COLOR  3.0  :  LOCATE  4,1 

PRINT  "Bitte  geben  Sie  den  Suchwert  ein." 

COLOR  1,0 

FOR  x=0  TO  AnzahlFelder 
LOCATE  5+x,LEN(Feldname$(x))+2 
LINE  INPUT  EingabeS 
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IF  Eingabe$o|,M  THEN 
Such$=LEFTS(Eingabe$,Laenge<x)) 
Suchnr=x  :  x=10 
ELSE 

Such$=,IM 
END  IF 
NEXT  x 
Fehlerabfrage3: 
GOSUB  FehterJN 
IF  Korr=0  THEM  EndeSuchen 
IF  Korr=1  THEN  SuchKorr 
GOTO  Fehlerabfrage3 

SuchKorr: 

LOCATE  5+Suchnr,1  :  PRINT  Feldname$(Suchnr)»':"Such$ 

LOCATE  5+Suchnr,LEN(Feldname$(Suchnr>)+2 

LINE  INPUT  EingabeS 

IF  Eingabe$<>»»  THEN  Such$=LEFT$(Eingabe$,Laenge(Suchnr)) 
GOTO  Fehlerabfrage3 

EndeSuchen: 

IF  Such$=»»  THEN  Suchnr=0  :  DatSuch=0 

GefSatz=0 
RETURN 

SuchDatenPruefen: 

x=0 
SuchSchleife: 

x=x+1 

IF  x>LEN(Dat$(Suchnr))-LEN(Such$)  THEN  Gefuncten=0  :  RETURN 

IF  MID$<Dat$(Suchnr),x,LEN<Such$))=Such$  THEN  Gefunden=1  :  RETURN 
GOTO  SuchSchleife 

FehlerJN: 

LOCATE  19,1  :  COLOR  3,0 

PRINT  "Wollen  Sie  Fehler  korrigieren?  (J/N)"; 

COLOR  1,0  :  INPUT  »»,a$ 

IF  UCASE$(a$)=»N»  OR  a$=»»  THEN  Korr=0  :  RETURN 

IF  UCASE$(a$)=»J»  THEN  Korr=1  :  RETURN 
GOTO  FehlerJN 
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Dat.FetderExistJN: 

OPEN  NairtS+".Felder»  FOR  APPEND  AS  1 

IF  LOF(1)<=0  THEN  DateiExist=0  ELSE  DateiExist=1 
CLOSE  1 
IF  DateiExist=0  THEN 

LOCATE  3,1  :  PRINT  SPACE$(60)  :  BEEP 

LOCATE  3,1  :  COLOR  1,0  :  PRINT  "Datei  ";Nam$ 

PRINT  "existiert  nicht!" 

KILL  NartS+".Felder" 

KILL  Nan*+".Felder.infoH 

Nan*^'"  :  COLOR  3,0 
END  IF 
RETURN 

Dat.FelderLesen: 
FOR  x=0  TO  10 

Feldname$(x)="M  :  Laenge(x)=0 
NEXT  x 

OPEN  Nam$+".Felder»  FOR  INPUT  AS  2 
INPUT  #2,AnzahlFelder 
INPUT  #2,Satzlaenge 
INPUT  #2,AnzahlSaetze 
FOR  x=0  TO  AnzahlFelder 
INPUT  #2,Feldname$(x) 
INPUT  #2,Laenge(x) 
NEXT  x 
CLOSE  2 
RETURN 


In  'DatenSuchen:'  werden  alle  Vorbereitungen  fur  den  Such- 
modus  getroffen.  In  bekannter  Weise  identifiziert  sich  der  Pro- 
grammteil  und  gibt  die  aktuelle  Datei  an.  Dann  erscheinen  die 
Feldnamen  auf  dem  Bildschirm,  gefolgt  vom  Text:  "Bitte  geben 
Sie  den  Suchwert  ein.M.  Sie  haben  die  MGglichkeit,  in  einem  der 
Felder  einen  Text  einzugeben,  auf  den  das  benutzte  Datenfeld  in 
jedem  Satz  Uberpruft  wird. 
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Wenn  Sie  also  in  Ihrer  Schallplattensammiung  alle  Platten  von 
"Elton  John"  suchen,  geben  Sie  im  Feld  "Interpret"  den  Wert 
"Elton  John"  ein.  Das  Programm  findet  dann  alle  Satze,  in  denen 
das  Feld  "Interpret"  mit  "Elton  John"  ausgefullt  ist.  Wurden  Sie 
aber  z.B.  im  Feld  "Titel"  den  Suchtext  "Elton  John"  eingeben, 
wurden  bloB  die  SStze  gefunden,  wo  auch  dieser  Text  im  "Titel" 
vorkommt.  Also  z.B.  eine  Platte  namens  "Elton  John's  Best  Love 
Songs".  Dabei  sehen  Sie  gleich,  daB  Sie  auch  nach  Textfragmen- 
ten  suchen  ktinnen.  Es  genugt  z.B.  im  "Interpret"-Feld  "John" 
einzugeben.  Allerdings  finden  Sie  dann  auch  "John  Lennon"  und 
"Olivia  Newton-John"  und  auch  "Little  John  und  Robin  Hood  - 
ein  spannendes  Abenteuer  fur  Kinder  ab  3".  Also  suchen  Sie  im 
Zweifelsfall  besser  nach  "Elton",  das  kommt  wohl  kaum  in  an- 
deren  Namen  vor. 

GroB-  und  Kleinschreibung  werden  beim  Suchen  berucksichtigt. 
Mit  der  Eingabe  "John"  hatten  Sie  also  wahrscheinlich  keine 
Satze  gefunden,  hflchstens  Namen  wie  "Bigbadjohn".  Alles  klar? 
In  einer  AdreBliste  k6nnen  Sie  so  auch  nach  Postleitzahlbe- 
reichen  oder  Telefon-Vorwahlnummern  suchen.  Wenn  Sie  nach 
Leerzeichen  <SPACE>  oder  Einzelbuchstaben,  wie  "e"  suchen, 
finden  Sie  ziemlich  viele  Satze,  aber  eben  nur  die,  auf  die  das 
Suchmuster  paBt. 

Und  wie  haben  wir  das  alles  programmiert? 

Der  'DatenSuchenr'-Teil  lauft  durch  eine  Eingabeschleife.  Sie 
kdnnen  sich  mit  <RETURN>  solange  durch  alle  Felder  des 
Datensatzes  bewegen,  bis  Sie  irgendwo  eine  Eingabe  machen,  die 
kein  Leerstring  ist.  Diese  Eingabe  wird  in  der  Variablen  'Such$' 
gespeichert.  'Suchnr'  enthalt  die  Nummer  des  Felds,  in  dem 
verglichen  werden  soil.  Die  'Fehlerabfrage3:'  bietet,  genau  wie 
ihre  beiden  Kollegen,  eine  Korrekturm6glichkeit.  Allerdings 
k6nnen  Sie  hier  nur  noch  den  Inhalt  von  'Such$'  verandern,  das 
gewahlte  Feld  ist  bereits  festgelegt. 

'EndeSuchen:*  springt  zuruck  zur  Zeile,  von  der  das  Unter- 
programm  aufgerufen  wurde.  Hat  'Such$'  keinen  Inhalt,  wird 
das  Suchen  abgeschaltet:  'Suchnr'  und  'DatSuch1  bekommen  den 
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Wert  0.  In  jedem  Fall  auf  0  gesetzt  wird  die  Variable  'GefSatz*, 
damit  sich  spater  feststellen  laBt,  ob  nach  den  zuletzt  benutzten 
Suchkriterien  auch  wirklich  ein  Satz  gefunden  wurde. 

'SuchDatenPruefen:'  ist  der  Programmteil,  wo  der  aktuelle  Satz 
dann  wirklich  auf  den  Suchbegriff  uberpruft  wird.  Die  Schleife 
'SuchSchleife:*  lauft  solange,  bis  alle  mSglichen  Positionen  von 
'Dat$'  mit  'SuchS1  verglichen  sind:  Wir  bilden  aus  dem  'Dat$\ 
der  zum  Feld  'Suchnr'  gehflrt,  einen  Teilstring  mit  der  Lange  des 
Suchstrings.  Dieser  Teilstring  beginnt  im  ersten  Durchlauf  an 
der  ersten  Stringposition,  im  zweiten  an  der  zweiten  Position 
usw.  Wird  x  grSBer  als  der  verbleibende  Rest  von  'Dat$\  ohne 
daB  eine  Ubereinstimmung  festgestellt  wurde,  war  der  'Such$'  in 
diesem  Datensatz  nicht  zu  finden.  'Gefunden1  bekommt  den 
Wert  0  und  das  Unterpogramm  springt  zuruck.  Stimmen  der  mit 
MID$  gebildete  Teilstring  und  'Such$'  iiberein,  wurde  der  Such- 
begriff gefunden.  Als  Audruck  der  allgemeinen  Freude  im  Un- 
terprogramm  wird  'Gefunden'  auf  l  gesetzt.  Fur  eine  Freuden- 
feier  bleibt  leider  keine  Zeit,  denn  schon  folgt  der  Riicksprung 
mit  RETURN. 

Der  nachste  Programmteil,  'FehlerJN:',  wird  mehrfach  aufge- 
rufen:  Hier  soil  festgestellt  werden,  ob  der  Anwender  Eingabe- 
korrekturen  wiinscht.  Wir  drucken  die  Frage  "Wollen  Sie  Fehler 
korrigieren?  (J/N)"  auf  den  Bildschirm  und  warten  mit  INPUT 
auf  eine  Antwort.  Durch  die  etwas  ungewohnte  Konstruktion 
INPUT  "M,a$  unterdrucken  wir  das  Fragezeichen,  das  sonst  bei 
INPUT  automatisch  erscheint.  Bei  der  Eingabe  von  "N"  oder  ei- 
ner  Leereingabe  (durch  Drucken  von  <RETURN>,  ohne  vorher 
etwas  anderes  zu  tippen)  wird  'Korr'=0:  Keine  Korrekturen.  Den 
Leerstring  akzeptieren  wir,  um  bei  der  Dateneingabe  ein 
schnelles  Arbeiten  durch  Uberwahlen  samtlicher  Optionen  mit 
der  <RETURN> -Taste  zu  ermdglichen.  Haben  Sie  aber  "J"  ein- 
gegeben,  bekommt  'Korr'  den  Wert  l.  Um  alles  weitere  muB 
sich  dann  der  aufrufende  Programmteil  kummern. 

Das  Unterprogramm  'Dat.FelderExistJN:'  haben  wir  schon 
mehrfach  angekundigt:  Anhand  der  .Felder-Datei  uberpruft  es, 
ob  eine  angegebene  Datei  wirklich  existiert.  Wenn  Sie  eine  nicht 
vorhandene  Datei  zum  Lesen  dffnen  wollen,  erhalten  Sie  einen 
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"File  not  founcT-Error.  Da  damit  das  Programm  abgebrochen 
wurde,  ist  das  keine  gute  Ldsung.  Was  kann  man  also  tun?  Wenn 
Sie  eine  Datei  zum  Schreiben  6ffnen,  wird  dummerweise  der  alte 
Inhalt  geldscht.  Auch  nicht  eben  wunschenswert.  Was  bleibt  iib- 
rig?  Richtig:  Der  APPEND-Modus.  Wenn  Sie  eine  sequentielle 
Datei  FOR  APPEND  flffnen,  werden  gegebenenfalls  neue  S&tze 
angeh&ngt,  aber  keine  alten  gelftscht.  Gibt  es  die  Datei  noch 
nicht,  wird  eine  neue  Datei  erzeugt. 

Wir  Offnen  also  die  .Felder-Datei  FOR  APPEND  und  fragen 
dann  mit  LOF(l)  die  Dateil&nge  ab:  Ist  Sie  0  Oder  -1,  stehen 
noch  keine  Daten  in  der  Datei.  Sie  mufl  also  gerade  eben  erst 
durch  APPEND  angelegt  worden  sein  -  die  Datei  existierte  vor- 
her  noch  nicht.  Also  *DateiExist*=0.  Anderenfalls  (ELSE  heiBt 
das  auf  BASIC)  'DateiExist'«l.  Hat  'DateiExist*  den  Wert  0, 
bringt  das  Unterprogramm  eine  Meldung  auf  den  Schirm,  daB 
die  gewiinschte  Datei  nicht  existiert.  Da  wir  sie  durch  APPEND 
neu  angelegt  haben,  wird  sie  mit  KILL  gleich  wieder  geloscht. 
Den  Inhalt  von  *Nam$*  kftnnen  wir  getrost  vergessen 
(,Nam$,=WM),  schliefilich  gibt  es  die  Datei  sowieso  nicht.  Dann 
Riicksprung.  Urn  die  Bestatigung  der  Bildschirmausgabe  mussen 
sich  die  aufrufenden  Programme  selbst  kummern.  Sie  sehen,  wir 
neigen  in  letzter  Zeit  dazu,  zu  deligieren  -  aber  das  ist  ja  auch 
die  Aufgabe  des  Computers,  uns  Arbeit  abzunehmen. 

Zu  guter  Letzt  haben  wir  dann  noch  das  Unterprogramm 
'Dat.FelderLesen:'.  Wenn  es  die  .Felder-Datei  n&mlich  doch  gibt, 
interessieren  wir  uns  ja  fiir  ihren  Inhalt.  Zuerst  loscht  eine 
FOR...NEXT-Schleife  die  Inhalte  von  Teldname$(xV  und 
'Laenge(x)'.  Denn  falls  die  gelesene  Datei  weniger  Felder  als  die 
zuletzt  verwendete  hat,  wurden  die  alten  Feldnamen  gespeichert 
bleiben,  was  sich  spSter  etwas  stflrend  auswirkt.  Danach  werden 
die  Werte  fur  die  Anzahl  der  Felder  pro  Satz  ('AnzahlFelder*), 
die  Gesamtiange  eines  Satzes  ('Satzlaenge')  und  die  gegenw&rtige 
Anzahl  der  SStze  in  der  Datei  ('AnzahlS&tze*)  geladen.  AuBerdem 
die  Feldnamen  ('FeldnameSCx)')  und  die  Feldiangen 
CLaenge(x)').  Anhand  dieser  Daten  kann  das  Programm  dann  die 
Relativ-Datei  6ffnen  und  benutzen.  Noch  ein  letzter  RETURN- 
Befehl,  dann  ware  auch  dieses  Programm  im  Kasten. 
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Falls  Sie  es  selbst  eingetippt  haben,  sei  Ihnen  hiermit  ein  groBes 
Lob  ausgesprochen.  Falls  Sie  es  aber  in  diesem  Fall  noch  nicht 
abgespeichert  haben,  sei  Ihnen  hiermit  ein  Tadel  ausgesprochen: 
Sofort  nachholen!  Und  danach  ein  Dankgebet  an  den  heiligen 
Stromulus,  den  Beschutzer  aller  ungespeicherten  Daten. 


5.3        Wie  geht's?  -  die  Bedienungsanleitung  zur  Datenbank 

Alle  wichtigen  Informationen  zur  Bedienung  des  Programms  ha- 
ben Sie  eigentlich  schon  in  den  Erkl&rungen  erhalten.  Wir  wollen 
Ihnen  hier  nochmal  eine  zusammenfassende  Anleitung  bieten, 
auBerdem  ein  paar  hilfreiche  Tips  zur  Arbeit  mit  Ihrer 
AmigaBASIC-Datenbank. 

Sie  ist  also  fur  Dateiverwaltung  gedacht.  Das  ist  eine  der  eher 
geschaftlich-niichternen  Anwendungen  fur  Computer.  Aber 
selbst  wenn  Sie  fur's  Geschaft  keinen  Sinn  haben,  hangt  es  ja 
nur  von  Ihren  Daten  ab,  wieviel  SpaB  die  ganze  Sache  macht:  Sie 
k6nnen  Kochrezepte,  klassische  Lyrik,  Videofilme,  Bucher,  Ihre 
Zimmerpflanzen,  Arbeitskollegen,  FuBballvereine,  Briefmarken- 
sammlungen,  Ihre  Amiga-Programme,  Hinweise  auf  Zeitschrif- 
tenartikel,  moderne  Lyrik,  Ihre  steuerlich  absetzbaren  Quittun- 
gen,  Ihre  Lieblings-Restaurants,  die  Schulleistungen  Ihrer 
SprtiBlinge  und. ..und. ..und...  in  einer  Datenbank  erfassen.  Na, 
immer  noch  keine  Anregung  fur  Sie  dabei?  Was  die  Schul- 
leistungen Ihres  SprflBlings  betrifft  -  in  diesem  Fall  sollten  Sie 
dafiir  Sorge  tragen,  daB  er  nie  dieses  Buch  in  die  Finger  be- 
kommt  und  erf&hrt,  wie  man  Daten  andert...  Sonst  kdnnte  sich 
der  Notenschnitt  erstaunlich  verbessern. 

Der  erste  Schritt  auf  dem  Weg  zu  einer  neuen  Datei  ist  das  Ein- 
richten.  Dafur  gibt  es  Menupunkt  1.  Sie  kdnnen  bis  zu  zehn 
Feldnamen  und  die  gewunschte  L&nge  der  Felder  eingeben. 
H6chstiange  sind  40  Zeichen.  Dieser  Wert  wird  auch  automatisch 
benutzt,  wenn  Sie  keine  Angabe  uber  die  Feldl&nge  machen.  Die 
Eingabe  der  Feldnamen  wird  abgebrochen,  wenn  Sie  in  der 
Spalte  "Name"  keinen  Wert  eingeben  und  nur  <RETURN> 
drucken.  Bild  16  zeigt  Ihnen  eine  typische  Eingabe  in  diesem 
Modus: 


Was  man  mil  Paten  noch  alles  anfangen  kann 
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Bild  16:  Der  Modus  "Datei  einrichten"  im  Datenbank-Programm 


Nach  Beendigung  der  Eingabe  haben  Sie  die  Moglichkeit,  even- 
tuelle  Tippfehler  zu  korrigieren:  Antworten  Sie  einfach  "J"  auf 
die  Frage  "Wollen  Sie  Fehler  korrigieren?".  Der  Cursor  erscheint 
dann  wieder  im  ersten  Datenfeld.  Geben  Sie  entweder  den  neuen 
Inhalt  ein  oder  driicken  Sie  <RETURN>.  Wenn  alles  stimmt, 
tippen  Sie  den  Namen  der  Datei  ein.  Das  Programm  legt  dann 
die  beiden  notigen  Disketten-Dateien  an  und  kehrt  schlieBlich 
zur  Hauptauswahl  zuriick. 

Wenn  Sie  nun  Option  2  wahlen  (Neue  Daten  eingeben),  gelangen 
Sie  direkt  in  den  Eingabemodus.  Wenn  Sie  unmittelbar  vorher 
keine  neue  Datei  angelegt  haben,  mussen  Sie  erst  noch  den  ge- 
wiinschten  Dateinamen  eingeben.  Der  zuletzt  verwendete  Name 
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kann  durch  "=M  oder  "*"  abgekiirzt  werden.  Das  ist  besonders 
praktisch,  wenn  Sie  aus  "Daten  lesen"  oder  "Daten  suchen"  in  den 
Eingabemodus  wechseln  wollen. 

Eine  sog.  Maske  (sie  wird  aus  Ihren  Feldnamen  aufgebaut)  er- 
scheint  auf  dem  Bildschirm.  Der  Eingabecursor  steht  im  ersten 
Datenfeld  des  aktuellen  Satzes.  Geben  Sie  die  Daten  ein,  Tipp- 
fehler  kdnnen  danach  wieder  korrigiert  werden.  Ein  vollig  leerer 
Satz  wird  nicht  abgespeichert,  sondern  nochmal  zur  Eingabe  an- 
geboten.  Wenn  Sie  auf  die  Frage  "Weitere  Satze?"  mit  "J"  oder 
einer  leeren  Eingabe  antworten,  gelangen  Sie  zur  nachsten  Ein- 
gabe. Bei  "N"  wird  die  Datei  geschlossen  und  Sie  kehren  zuruck 
ins  Hauptprogramm. 

Option  3  dient  zum  Anzeigen  der  Inhalte  einer  Datei.  Geben  Sie 
den  Dateinamen  ein,  eventuell  durch  "="  oder  n*"  vertreten. 
Sollte  es  die  Datei  nicht  geben  oder  sie  keine  Satze  enthalten, 
weist  Sie  das  Programm  darauf  hin.  Anderenfalls  erscheint  der 
erste  Datensatz  auf  dem  Schirm.  Unterhalb  des  Datenbereichs 
sehen  Sie  in  oranger  Schrift  die  mSglichen  Tasten  und  lhre 
Funktion.  Sie  kfinnen  vorwarts  und  ruckwarts  in  den  Satzen 
blattern,  direkt  zum  ersten  oder  letzten  Satz  springen,  den  Satz- 
inhalt  auf  dem  Drucker  ausgeben  oder  auf  dem  Bildschirm  ver- 
andern.  Mit  <CTRL>-<H>  springen  Sie  zuruck  zur  Hauptaus- 
wahl.  Bild  17  zeigt  als  Beispiel  einen  Satz  aus  unserer  Schall- 
plattendatei: 


Was  man  mit  Paten  noch  alles  anfangen  kann 
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Bild  17: 


Der  Modus  "Daten  lesen"  im  Datenbank-Programm 


Mit  Option  4,  "Daten  suchen",  kdnnen  Sie  alle  Satze  nach  einem 
bestimmten  Suchkriterium  durchsuchen  lassen.  Nur  die  Satze, 
auf  die  das  Kriterium  zutrifft,  werden  angezeigt.  Nach  der  Wahl 
von  "Daten  suchen"  geben  Sie  bitte  zuerst  den  Namen  der  Datei 
an,  die  durchsucht  werden  soil.  Das  Programm  druckt  daraufhin 
die  Feldnamen  auf  den  Bildschirm  und  bittet  Sie,  in  eines  der 
Felder  einen  Suchwert  einzugeben.  Auf  diesen  Suchwert  werden 
alle  Datensatze  gepruft.  Nach  der  mflglichen  Korrektur  von 
Tippfehlern  Gffnet  das  Programm  die  Datei  und  beginnt  mit  der 
Suche.  Wenn  mindestens  ein  Satz  die  Suchbedingung  erfiillt, 
zeigt  das  Programm  die  gefundenen  Satze  an.  Anderenfalls  er- 
scheint  der  Text  "Keinen  passenden  Satz  gefunden!1'.  Mit  den 
gefunden  Satzen  kdnnen  Sie  arbeiten  wie  im  Lese-Modus  auch. 
Nur  werden  in  diesem  Modus  ausschlieBlich  die  gefundenen 
Satze  angezeigt,  alle  anderen  uberspringt  das  Programm. 
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Das  war's.  Wir  wiinschen  noch  viel  SpaB  auf  der  Jagd  nach 
speicherbaren  Daten.  Vielleicht  verstehen  Sie  unseren  Innen- 
minister  jetzt  ja  sogar  ein  wenig  besser:  Datenbanken  sind  doch 
wirklich  lustig,  oder?  Aber  an  dieser  Stelle  ist  vielleicht  wirklich 
doch  einmal  eines  der  wenigen  ernsten  Worte  in  diesem  Buch 
angebracht  Es  heiBt  nSmlich  nicht  umsonst  MDatenbankH.  Mit 
Ihren  pers6nlichen  Daten  sollten  Sie  genauso  vorsichtig  umgehen 
wie  mit  Ihrem  Geld.  Denn  es  kann  schnell  dazu  kommen,  daB 
irgendjemand  mit  Ihren  Daten  MiBbrauch  treibt.  Und  manche 
pers6nliche  Dinge  gehen  auBer  Sie  wirklich  niemanden  etwas  an. 

Computer  kflnnen  nichts  fur  die  Daten,  die  man  ihnen  eingibt: 
Ein  Computer  ist  letzten  Endes  bloB  ein  Werkzeug.  Ein  sehr 
leistungsfahiges  und  faszinierendes  Werkzeug  zwar,  aber  eben 
nur  ein  Werkzeug.  Die  Menschen  allein  tragen  die  Verantwor- 
tung  und  seiner  Verantwortung  muB  auch  hier  jeder  gerecht 
werden. 

Sogar  fur  Ihr  kleines  AmigaBASIC-Datenbank-Programm  sollten 
Sie  eine  Art  von  Daten- Moral  entwickeln:  Das  Einkommen  Ihres 
Nachbarn  oder  der  Name  der  Freundin  seines  Sohnes  hat  auf 
Ihren  Disketten  nichts  verloren.  Und  was  Du  nicht  willst,  daB 
man  Dir  tu... 

Mit  diesen  Worten  als  Ausklang  n&hern  wir  uns  dem  dritten 
groBen  Teil  unseres  Buches.  Das  heiBt  aber  nicht,  daB  wir  fortan 
mit  Daten  nichts  mehr  zu  tun  haben  werden.  Ganz  im  Gegenteil. 
Sie  werden  sich  gleich  wundern,  mit  wievielen  Daten  aller  Art 
der  Weg  zu  Computersprache  und  Computermusik  gepflastert  ist. 
Wir  bitten  um  Ruhe  im  Konzertsaal,  die  Ouvertiire  beginnt. 


III.  Der  Sound-Amiga 
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6.     Amiga  calling  -  Spracherzeugung  in  BASIC 

Ihr  Amiga  macht  ja  im  allgemeinen  nicht  gerade  einen  schuch- 
ternen  Eindruck.  Trotzdem  war  die  Kommunikation  mit  ihm 
bisher  ein  biBchen  einseitig.  Das  soil  sich  bald  andern.  Denn  die 
Tatsache,  daB  Amiga  nur  spricht,  wenn  er  darum  gebeten  wird, 
heiflt  nicht,  daB  er  nichts  zu  sagen  hatte.  Der  Amiga  hat  alle 
notigen  Hardware-  und  Softwarevoraussetzungen,  um  erstaunlich 
verstandliche  Computersprache  zu  erzeugen.  Vielleicht  haben  Sie 
ihn  ja  schon  mal  reden  h6ren.  Bei  den  Workbench-Demos  gibt 
es  entsprechene  Programme  und  auch  in  der  "BasicDemos"- 
Schublade  auf  der  "ExtrasM-Diskette  finden  sich  Beispiele  fur 
seine  Beredtheit. 

Voraussetzung  fur  den  ganzen  folgenden  Teil  unseres  Buchs  ist 
naturlich,  daB  Sie  den  Amiga  auf  irgendeine  Weise  an  einen 
Lautsprecher  angeschlossen  haben.  Der  eingebaute  Lautsprecher 
des  Monitors  ist  vdllig  ausreichend.  Naturlich  ist  eine  200W- 
Stereoanlage  auch  nicht  von  Nachteil...  Wo  auch  immer,  bitte 
stellen  Sie  den  Lautstarkeregler  auf  eine  Ihnen  angenehme  Laut- 
starke.  (Vielleicht  denken  Sie  dabei  auch  ein  biBchen  an  Ihre 
Nachbarn.  Wir  werden  namlich  spater  auch  GerSusche  auspro- 
bieren.  Und  ein  versehentlich  ausgeloster  Bombenalarm  regt  nur 
die  wenigsten  Menschen  zum  Lachen  an...)  Sollten  Sie  diesen 
Teil  des  Buchs  gegen  Mitternacht  lesen,  bitte  wir  Sie  ganz  be- 
sonders,  auf  Ihre  schlafenden  Nachbarn  und  die  dann  herum- 
schwirrenden  armen  Geister  und  Vampire  Rucksicht  zu  nehmen. 


6.1        Die  dritte  Kostprobe:  Amiga  spricht  mit  tausend  Zungen 

Hier  ist  mal  wieder  eine  unserer  Kostproben.  Vielleicht  haben 
Sie  unsere  kleinen  Appetithappchen  in  den  Daten-Kapiteln  ver- 
miBt.  Aber  zum  Thema  MDateiverwaltung"  war  es  fast  un- 
moglich,  mit  wenigen  Befehlen  eine  eindrucksvolle  Demonstra- 
tion vom  Amigas  Fahigkeiten  vorzufuhren.  Dafiir  iibergeben  wir 
das  Wort  jetzt  auch  gleich  unserem  Amiga: 
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Text$="Amiga" 
Anfang: 

Feld%(0)=90+180*RND 

FeldX(1)=RND 

Feld%(2)=50+200*RND 

Feld%(3)=RND 

Feld%(4)=17000+10000*RND 

Feld%<5)=40+24*RND 

Fetd%(6)=11*RN0 

Feld%(7)=0 

Feld%(8)=0 

SAY  TRANSLATE$(Text$),FeldX 
GOTO  Anfang 

Dieses  Programm  ist  als  "Kostprobe3M  in  der  MSpracheM-Schublade 
unserer  Diskette  im  Buch  zu  finden. 

Wenn  Sie  das  Programm  selbst  eingegeben  haben  und  es  abspei- 
chern  wollen,  kdnnten  Sie  damit  gleich  Ihre  Schublade  "Sprache" 
auf  Ihrer  Version  der  "BasicDisk"  einweihen.  (Bitte  aber  keine 
Champagnerflaschen  gegen  den  Amiga  werfen.  Schicken  Sie  die 
heber  an  uns...)  Der  erste  Befehl  vor  dem  Abspeichern  ist  also* 
CHDIR  H:Sprache" 

Nach  Starten  des  Programms  braucht  AmigaBASIC  erst  mal  die 
Workbench.  Wenn  Sie  nur  ein  einziges  Diskettenlaufwerk  besit- 
zen  Oder  die  Workbench  in  keinem  Laufwerk  eingelegt  ist,  wird 
ein  Dialog-Window  urn  die  Workbench  bitten.  Nach  kurzem  La- 
den geht's  dann  los.  Ihr  Amiga  sagt  in  alien  m6glichen  Stimmla- 
gen,  Sprechgeschwindigkeiten,  Tonhohen  und  Lautstarken  seinen 
Namen. 

Er  ist  schon  ziemlich  vielseitig,  unser  Computer,  nicht  wahr? 
Wenn  Sie  nicht  wollen,  daB  er  immer  nur  von  sich  erzahlt,  kOn- 
nen  Sie  ja  mal  andere  Werte  fur  Text$'  eingeben.  Aber  wundern 
Sie  sich  nicht,  wenn's  meistens  sehr  amerikanisch  klingt. 
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Wollen  Sie  lernen,  wie  auch  Ihr  Amiga  zu  einer  Art  Gisela 
Schliiter  unter  den  Computern  wird?  Dann  lesen  Sie  bitte  das 
nachste  Kapitel. 

6.2       Gesprache  auf  BUebene  -  die  Befehle  SAY  und 
TRANSLATES 

In  der  Kostprobe  haben  Sie  schon  die  beiden  wichtigsten  Be- 
fehle zur  Spracherzeugung  in  Aktion  gesehen:  SAY  und 
TRANSLATES.  Der  SAY-Befehl  (deutsch:  "Sag,  sprich")  dient 
zur  Ausgabe  von  kfinstlicher  Sprache.  Wenn  Sie  aber  mal  im 
BASIC-Window  versuchen,  Ihren  Amiga  mit 

say  "Amiga" 

zum  Sprechen  zu  uberreden,  erleben  Sie  zunachst  einigen  Wider- 
stand-  "Illegal  function  call".  Ganz  so  einfach  geht's  namlich 
auch  wieder  nicht.  Der  SAY-Befehl  kann  nicht  direkt  die  In- 
halte  von  Strings  vorsprechen. 

Zuerst  mussen  die  Texte  in  eine  ihm  verstandliche  Form  uber- 
setzt  werden.  "Ubersetzen"  heiBt  auf  Englisch  "to  translate".  Da- 
her  hat  die  Funktion  TRANSLATES  Ihren  Namen: 

Text$=TRANSLATE$( "Ami  ga» ) 
SAY  TextS 

TRANSLATES  ubersetzt  den  Text  in  eine  fur  SAY  sprechbare 
Form  (einen  sogenannten  Phonem-Code,  aber  dazu  kommen  wir 
etwas  spater).  Muten  wir  dem  Amiga  doch  mal  eine  langere 
Ansprache  zu.  Am  besten  begrenzen  Sie  mit 

width  80 

erstmal  den  Darstellungsbereich  des  Bildschirms.  Sonst  mussen 
Sie  einen  Teil  des  folgenden  Satzes  namlich  blind  eingeben,  weil 
er  hinter  dem  rechten  Bildschirmrand  verschwindet.  1st  diese 
Vorbereitung  erledigt,  gehen  wir  frisch  ans  Werk: 
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Text$="This  is  your  Amiga  Computer  speaking.  I  feel  good,  how  are  you?" 

Text$=transLateS(Text$) 

say  Text$ 

Man  muB  sich  schon  ein  wenig  konzentrieren,  wenn  man  die 
Sprachausgabe  verstehen  will,  ohne  den  Text  zu  kennen.  Trotz- 
dem  ist  sie  nach  einer  kleinen  Gewtthnungsphase  ziemlich  gut 
verst&ndlich.  Wenn  Sie  den  Text  gerade  eben  nicht  verstanden 
haben,  kann  das  naturlich  auch  daran  liegen,  daB  Sie  kein  Eng- 
lisch  kdnnen.  Damit  w&ren  wir  dann  bei  einem  weiteren  Pro- 
blem. Als  gebiirtiger  Amerikaner  spricht  der  Amiga  nun  mal 
nicht  besonders  gut  Deutsch.  Probieren  Sie's  ruhig  mal  aus: 

TextS="HaUo,  hier  spricht  Ihr  Amiga.  Wie  geht  es  Ihnen?" 

Text$=transLateS(TextS) 

say  Text$ 

Die  erste  Haifte  des  Satzes  klingt  ja  noch  ganz  gut,  aber  "Wai 
dschatt  2ts  innen?"  ?!?  Das  erinnert  zwar  enorm  an  einen  R6mer 
nach  der  liebevollen  Behandlung  durch  Asterix  und  Obelix,  aber 
nicht  an  korrektes  Deutsch. 

Wie  vorhin  schon  erwShnt,  versteht  der  SAY-Befehl  nur  Texte 
in  einer  bestimmten  Codierung.  Diese  Codierung  (Verschliisse- 
lung)  nennt  man  Phonem-Code.  Wenn  Sie  mal  sehen  wollen,  wie 
der  SAY-Befehl  Ihr  "Wie  geht  es  Ihnen?"  empfangt,  dann  geben 
Sie  mal  ein: 

TextS="Wie  geht  es  Ihnen?" 
Text$=translate$(Text$) 
say  Text$ 
?  Texts 

Auf  dem  Bildschirm  erscheint  dann: 

WAY4  JEH4T  EH4Z  IH4NEHN. 

So  sieht  ein  Phonem-String  aus.  Er  ist  das  Ergebnis  der  Uber- 
setzung  von  "Wie  geht  es  Ihnen?"  durch  die  Funktion  TRANS- 
LATES. Das  ist  auch  nicht  weiter  verwunderlich,  denn  so  etwa 
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h6rt  sich  unser  Satz  nach  englischen  bzw.  amerikanischen  Beto- 
nungs-  und  Ausspracheregeln  an.  Und  TRANSLATES  ist  nur 
dafur  gedacht,  englischen  Text  in  Phonem-Code  zu  ubersetzen. 
Der  Schuldige  ist  also  gar  nicht  der  SAY-Befehl,  sondern  die 
Ubersetzungsfunktion. 

Wenn  man  mit  AmigaBASIC  deutsche  Sprache  erzeugen  will, 
gibt  es  dafur  drei  mflgliche  Ansatze:  Der  erste  ware,  die 
TRANSLATES-Funktion  so  umzuschreiben,  daB  sie  nach  deut- 
schen  Ausspracheregeln  ubersetzt.  Ob  Commodore  und  Microsoft 
gewillt  sind,  diese  Arbeit  zu  erledigen,  steht  zur  Zeit  noch  nicht 
verbindlich  fest.  Wiinschenswert  ware  es  auf  jeden  Fall.  Der 
zweite  Weg  ist  eine  Abwandlung  des  ersten:  Er  besteht  namlich 
darin,  den  deutschen  Phonem-Code  selbst  zu  erzeugen.  Dazu  ha- 
ben  wir  spater  noch  ein  paar  Anmerkungen.  Der  dritte  Weg  ist, 
die  amerikanische  Ubersetzungsroutine  einfach  so  auszutricksen, 
daB  das  Ergebnis  mehr  oder  weniger  deutsch  klingt.  Ein  Bei- 
spiel: 

Text$=transtate$("Vee  kaiht  ass  eenan?") 
say  Text$ 

Um  das  einigermaBen  professionell  hinzubekommen,  muB  man 
aber  doch  recht  gut  iiber  englische  Aussprache  Bescheid  wissen. 
(Na,  war  das  nicht  wieder  ein  perfekt  eingebautes  Eigenlob?) 
Oder  man  muB  beim  Ausprobieren  verschiedener  Versionen  sehr 
viel  Geduld  aufbringen.  "Vee  kaiht  ass  eenan?H  soil  "Wie  geht  es 
Ihnen?M  heiBen.  Mai  ehrlich:  WSren  Sie  darauf  gekommen? 
Schauen  Sie  sich  noch  mal  die  Phonem-Code-Ubersetzung  an: 

?  Text$ 

liefert 

VIY4  KEY3T  AE4S  IY4NAEN. 

"Phonem"  ist  ein  Begriff  aus  der  Sprachlehre  und  bedeutet 
"Laut".  Der  Phonem-Code  ist  also  eine  Lautschrift.  Die  hat  mit 
der  korrekten  Schreibweise  eines  Worts  wenig  zu  tun,  sie  richtet 
sich  vielmehr  danach,  wie  die  Laute  gesprochen  werden.  V  steht 
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fur  ein  stimmhaftes  HW"  wie  in  "WasserM  oder  "Vase".  Hier  sehen 
Sie  gleich,  daB  verschiedene  Buchstaben  durchaus  den  gleichen 
Laut  vertreten  konnen.  IY  ist  das  Phonem  fur  ein  langes  "i",  wie 
in  "wie"  oder  "Biene".  Und  die  Zahl  4  dahinter  ist  ein 
Betonungswert.  Er  kann  zwischen  0  und  9  liegen  und  gibt  an, 
wie  stark  der  Laut  betont  wird. 

Versuchen  wir  uns  doch  einmal  an  einem  eigenen  Phonem- 
String: 

Text$="VIY9  GEY3T  AE1S  IY6NAEN?" 
say  Text$ 

Das  "wie"  haben  wir  sehr  stark  betont,  das  Mes"  etwas  abge- 
schwacht  und  dafiir  wieder  mehr  Nachdruck  auf  MIhnenH  gelegt. 
Wie  finden  Sie  das  Ergebnis? 

Die  Schreibweise  in  Phonem-Code  folgt  festen  Regeln,  man 
kann  nicht  einfach  nach  Gefiihl  die  Laute  durch  Buchstaben 
ersetzen.  Wenn  Sie  Lust  haben,  sich  nSher  damit  zu  beschafti- 
gen,  empfehlen  wir  Ihnen  den  Anhang  H  aus  dem  Amiga- 
BASIC-Handbuch  von  Commodore.  Dort  wird  sehr  ausfuhrlich 
erkiart,  wie  der  Phonem-Code  aufgebaut  ist. 

Die  Firma  Commodore  hat  auch  ein  BASIC-Programm  geschrie- 
ben,  das  versucht,  deutschen  Text  in  Phonem-Code  zu  iiberset- 
zen.  Es  befindet  sich  unter  dem  Namen  "speechd"  in  der  "Basic- 
Demos"-Schublade  der  "ExtrasD"-Diskette.  Damit  kdnnen  Sie 
auch  immer  mal  wieder  spicken,  wenn  Sie  eigene  Texte  auf 
Deutsch  sprechen  lassen  wollen.  Naheres  zu  diesem  Programm 
erfahren  Sie  im  Anhang  C,  wo  wir  die  Beispielprogramme  aus 
der  "BASICDemos"-Schublade  der  "Extras"- Diskette  erklSren. 

Wir  wollen  uns  zunachst  mal  auf  englische  Texte  beschrSnken. 
Und  hoffen,  daB  es  irgendwann  doch  einmal  eine  deutsche 
TRANSLATE$-Routine  gibt.  Dazu  miiBte  mdglicherweise  gar 
nicht  mal  viel  an  AmigaBASIC  selbst  verandert  werden.  Denn 
die  Sprach-  und  Ubersetzungsroutinen  liegen  unter  dem  Namen 
"narrator.device"  ("Erzahler")  auf  der  Workbench.  Diese  Routinen 
sind  es,  die  bei  der  ersten  Anwendung  von  SAY  und  TRANS- 
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LATE$  geladen  werden.  Wenn  Sie  ein  Sprachprogramm  neu 
starten,  verlangt  Ihr  Amiga  auch  sofort  wieder  die  Workbench. 
Der  Grund  dafur  liegt  darin,  daB  AmigaBASIC  die  Uberset- 
zungsroutinen  so  bald  wie  mdglich  wieder  los  werden  m6chte. 
Immerhin  besetzen  sie  fast  30  KByte  im  Arbeitsspeicher.  Jedes 
NEW  und  jeder  RUN-Befehl  bewirkt  das  LOschen  der  "narra- 
tor.deviceM-Routinen  aus  dem  Speicher.  Bei  Bedarf  mussen  sie 
halt  wieder  neu  geladen  werden. 

Manchmal  kommt  es  auch  vor,  daB  die  Ubersetzungsroutinen 
ge!6scht  wurden,  aber  AmigaBASIC  das  nicht  so  richtig  mit- 
bekommen  hat.  Es  geht  dann  davon  aus,  es  habe  sie  noch  im 
Speicher.  Die  Zusammenarbeit  zwischen  AmigaBASIC  und  den 
Workbench-Routinen  funktioniert  leider  nicht  immer  ganz 
reibungslos.  Dann  verursacht  jeder  TRANSLATE$-Befehl  und 
jeder  SAY-Befehl  einen  "Illegal  function  callM-Error.  Wir  haben 
gegen  dieses  Problem  leider  auch  kein  anderes  Rezept,  als  die 
Workbench  neu  zu  laden.  Vergessen  Sie  nicht,  vorher  alles 
abzuspeichern. 

Das  Problem  tritt  nach  unserer  Erfahrung  dann  am  h&ufigsten 
auf,  wenn  Sie  nach  dem  L6schen  eines  Sprachprogramms  die 
Sprachbefehle  im  Direktmodus  verwenden.  Um  Ihre  Sprach-Pro- 
gramme  mussen  Sie  sich  also  keine  Sorgen  machen. 

Und  jetzt  lassen  wir  mal  wieder  den  Amiga  zu  Wort  kommen. 


6.3        Die  Sprechstunde  -  Optionen  beim  SAY-Befehl 

Das  eigentlich  Interessante  an  der  Kostprobe  aus  Kapitel  6.1  war 
die  Vielfalt  der  Stimmen,  mit  denen  AmigaBASIC  sprechen 
kann.  Hoch  oder  tief,  langsam  oder  schnell,  betont  oder  mono- 
ton,  m&nnlich  oder  weiblich.  Wenn  Sie  ein  biBchen  Geduld  hat- 
ten,  haben  Sie  eindrucksvolle  und  teilweise  sehr  witzige  Bei- 
spiele  gehfirt.  Fragt  sich,  wie  man  diese  Stimm-Steuerung  selbst 
programmieren  kann.  Schwer  ist  es  nicht,  wie  wir  Ihnen  gleich 
zeigen  werden.  Nur  die  Vielzahl  der  Optionen  und  die  Breite  der 
mflglichen  Regelbereiche  wirkt  am  Anfang  etwas  verwirrend. 
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Bitte  16schen  Sie  das  Programm  im  LIST-Window,  denn  wir 
wollen  Stuck  fur  Stuck  ein  kleines  Testprogramm  schreiben. 

Zunachst  das  Grundprinzip:  Hinter  dem  Text  kflnnen  Sie  bei 
SAY  ein  Integer-Feld  mit  mindestens  9  Elementen  angeben.  Hier 
mehr  als  9  Elemente  anzugeben,  wiirde  tibrigens  nichts  niitzen, 
da  der  uberzShlige  Speicherplatz  zwar  verloren  geht,  aber 
AmigaBASIC  die  angegebenen  Werte  einfach  ignorieren  wird.  Er 
sieht  sich  immer  nur  die  ersten  9  Zahlen  an.  Geben  Sie  also 
zunSchst  im  LIST-Window  ein: 

DIM  Feld%<8) 

Sie  wissen  ja  noch:  DIM  Feld%(8)  ermdglicht  9  Elemente,  weil 
Element  Nummer  0  mitzShlt.  Wenn  Sie  den  DIM-Befehl  in  eige- 
nen  Sprachprogrammen  weglassen,  ist  das  auch  nicht  tragisch. 
Durch  die  automatische  Dimensionierung  auf  10  Bytes  gehen  2 
Bytes  verloren.  Was  soil's,  wir  sind  ja  groOzugig. 

In  jedem  der  9  Feldelemente  steht  eine  Zahl,  die  fur  eine  be- 
stimmte  Eigenschaft  oder  einen  Modus  der  erzeugten  Stimme 
steht.  Wir  wollen  diese  Zahlen  aus  DATA-Zeilen  einlesen: 

FOR  x=0  TO  8 

READ  Feld%(x) 
NEXT  x 

Nun  brauchen  wir  einen  Text,  der  gesprochen  werden  soil: 

Spracheingabe: 

LINE  INPUT  »Text:'\Eingabe$ 

IF  Eingabe$<>»=»  THEN  Text$=Eingabe$ 

Sprech$=TRANSLATE$(Text$) 

CLS  :  PRINT  Text$ 

SAY  Sprech$,Feld% 
GOTO  Spracheingabe 
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Wir  haben  das  Programm  so  konstruiert,  daB  Sie  durch  die  Ein- 
gabe  von  "="  den  letzten  Satz  wiederholen  kflnnen.  Und  jetzt 
kommt's.  In  der  folgenden  DATA-Zeile  verleihen  wir  dem 
Amiga  sozusagen  ein  neues  akustisches  Image: 

DATA  140,0,160,0,22000,64,11,1,0 

Probieren  Sie  das  Programm  ruhig  gleich  aus.  Sie  werden  h6ren, 
daB  sich  die  Stimme  von  Amiga  doch  reichlich  verandert  hat.  Sie 
klingt  etwas  hflher,  weicher  als  die  Original-Stimme.  Die  Ande- 
rung  hangt  naturlich  mit  den  DATA-Werten  zusammen.  Also 
schauen  wir  uns  mal  an,  was  es  da  so  gibt. 

Der  erste  Wert  im  Integerfeld  gibt  die  Grundfrequenz  der 
Stimme  an.  Dieser  Wert  entscheidet  hauptsachlich  uber  die 
Stimmhfthe  und  damit  uber  den  wichtigsten  Wert  der  Stimm- 
eigenschaften.  Erlaubt  sind  fur  die  Grundfrequenz  Werte  zwi- 
schen  65  (sehr,  sehr  tief)  und  320  (eine  richtige  Piepsstimme). 
Der  Standardwert,  den  AmigaBASIC  benutzt,  ist  110.  Wir  haben 
uns  fur  140  entschieden,  liegen  also  ein  Stuck  hoher.  Fur  tech- 
nisch  Interessierte:  Hier  wird  einfach  die  Grundfrequenz  in 
Hertz  angegeben. 

Verandern  Sie  doch  mal  das  Listing  und  geben  Sie  hier  zunachst 
den  Wert  80  ein.  Klingt  recht  sonor,  finden  Sie  nicht?  Probieren 
Sie  auch  mal  die  Extremwerte  65  (der  klingt  schon  fast  ein 
biBchen  schaurig)  und  320  (das  ist  so  hoch,  daB  es  unnatiirlich 
klingt.)  Setzen  Sie  danach  die  Zahl  fur  unsere  Experimente  mit 
den  anderen  Werten  wieder  auf  eine  Frequenz,  die  Ihnen  gefallt. 

Der  nachste  Wert  kann  nur  0  oder  1  sein.  Hier  wird  die  Beto- 
nung  geregelt.  0  bedeutet  normale,  modulierte  Sprechweise  und 
1  erzeugt  eine  vdllig  betonungsfreie  Computerstimme.  Naturlich 
klingt  die  menschliche  Betonung  schdner,  aber  wenn  Sie  mal 
ausdrucklich  einen  Roboter  sprechen  lassen  oder  Ihrer  Familie 
die  Steigerung  vom  monotonen  Computer  zum  Amiga  vorfiihren 
wollen:  Jetzt  wissen  Sie,  wie's  geht.  Die  AmigaBASIC-Grund- 
einstellung  fur  diesen  Wert  ist  0. 
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Der  dritte  Wert  motiviert  nun  wirklich  zum  Spielen:  Mit  ihm 
steuern  Sie  die  Sprechgeschwindigkeit.  Die  Zahl  gibt  Wflrter  pro 
Minute  an.  Von  AmigaBASIC  voreingestellt  ist  150,  wir  lassen  in 
unseren  DATA-Zeilen  etwas  schneller  reden:  160.  Probieren  Sie 
mal  den  Satz  "Fishers  Fritz  fisht  frisha  Fisha"  (Liebe  Deutsch- 
lehrer!  Bitte  verzeihen  Sie  uns  diesen  Anschlag  auf  die  Recht- 
schreibung...)  mit  der  Einstellung  350,  und  dann  machen  Sie's 
nach. 

Gultige  Werte  fiir  die  Sprechgeschwindigkeit  liegen  zwischen  40 
und  400.  Bei  sehr  hohen  Geschwindigkeiten  besteht  allerdings 
die  Gefahr,  daB  der  Amiga  sich  beim  Sprechen  selbst  uberholt 
und  dann  Silben  verschluckt.  Und  sehr  niedrige  Werte  (so  unter 
70)  sind  ein  hervorragendes  Schlafmittel:  Bis  ein  Satz  gesprochen 
ist,  hat  jede  mittelmSBig  begabte  Rennschnecke  die  Strecke 
Flensburg-Miinchen  zuriickgelegt  -  ahem,  na  zumindest  auf  ei- 
ner  Landkarte. 

Kommen  wir  zum  vierten  Wert.  Sie  k6nnen  hier  wahlen,  ob  der 
Amiga  mit  einer  mannlichen  oder  einer  weiblichen  Stimme 
spricht.  (Ach  ubrigens:  Kennen  Sie  den  sprechenden  Bordcom- 
puter  aus  "Raumschiff  Enterprise",  der  sich  in  Captain  Kirk 
verliebt  hat?  Scheint  ein  entfernter  Verwandter  von  Amiga  zu 
sein.)  0  erzeugt  eine  m&nnliche  Stimme  und  1  eine  weibliche. 
Damit  das  Ganze  wirklich  einigermaBen  weiblich  klingt,  miissen 
Sie  auch  die  Grundfrequenz  anpassen.  Versuchen  Sie  mal  eine 
Grundfrequenz  von  240  Hertz. 

Und  auch  der  nSchste  Wert  sollte  fiir  die  weibliche  Stimme 
modifiziert  werden.  Setzen  Sie  ihn  mal  auf  23000.  Dieser  funfte 
Wert  legt  die  Abtastfrequenz  oder  ("Samplingfrequenz")  fest.  Da 
Sie  sich  darunter  wahrscheinlich  noch  nichts  vorstellen  kdnnen, 
wollen  wir  uns  zun&chst  merken,  daB  er  im  Zusammenspiel  mit 
der  Grundfrequenz  die  Stimmhohe  beeinfluBt.  Der  Wert  darf  im 
Bereich  von  5000  bis  28000  liegen.  AmigaBASICs  Grundwert  ist 
22200,  und  unserer  liegt  nur  etwas  tiefer.  Versuchen  Sie  hier 
zunSchst  nur  vorsichtige  VerSnderungen,  schon  die  haben  eine 
groBe  Wirkung. 
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Beim  nachsten,  sechsten  Wert  wird's  schon  wieder  einfacher: 
Hier  geben  wir  eine  Lautst&rke  zwischen  0  und  64  ein.  Wie 
AmigaBASIC  benutzen  auch  wir  die  hOchste  Lautstarke:  64.  Bei 
der  Programmierung  von  Unterhaltungen  ist  dieser  Wert  sehr 
nutzlich.  Bedenken  Sie  aber,  dafl  der  Lautstarkeregler  an  Ihrem 
Monitor  oder  Ihrer  Stereoanlage  am  langeren  Hebel  sitzt.  Er 
steuert  namlich  die  Gesamtlautstarke. 

Der  siebte  Wert  legt  die  Zuordnung  der  Sprachausgabe  zu  einem 
oder  mehreren  Tonkanaien  fest.  Das  merken  Sie  nur,  wenn  Sie 
Ihren  Amiga  irgendwie  in  Stereo  wiedergeben  kdnnen.  Der  Mo- 
nitorlautsprecher  ermdglicht  namlich  nur  Monowiedergabe  und 
schickt  alles  auf  einen  Lautsprecher.  Der  Amiga  ist  aber  voll 
stereotauglich.  Es  gibt  insgesamt  vier  Tonkanale,  die  fest  dem 
linken  oder  dem  rechten  Kanal  zugeordnet  sind.  Die  Kanale  mit 
den  Nummern  0  und  3  (also  der  hdchste  und  der  niedrigste  Ka- 
nal) sind  mit  dem  linken  der  beiden  Tonausgange  am  Amiga 
verbunden,  die  beiden  mittleren  Kanale  1  und  2  mit  dem  rech- 
ten Ausgang.  Bei  bewuBter  Steuerung  der  Kanalzuordnung  kdn- 
nen Sie  Stereoeffekte  erzielen,  zumindest  aber  ein  Zwiegesprach 
von  links  und  rechts. 

Zum  Thema  "Stereo"  gibt  es  einige  Einschrankungen.  Der 
Raumklang-Effekt  bei  einer  Stereo- Auf nahme  basiert  ja  nicht 
darauf,  daB  aus  beiden  Kanalen  exakt  dasselbe  Signal  kommt 
(wie  beim  Amiga),  sondern  ein  leicht  verandertes  Signal.  Wenn 
Sie  den  Amiga  fiber  Kopfhdrer  genie  Ben,  wirkt  die  strenge  Ka- 
naltrennung  unnaturlich.  Kommt  ein  Ton  von  links,  ist  der 
rechte  Kanal  vdllig  tot.  Auch  das  ist  bei  Stereoaufnahmen  an- 
ders.  Da  h6rt  man  rechts  wenigstens  einen  abgeschwachten  An- 
teil  des  linken  Kanals.  Lauft  der  Amiga  iiber  Stereolautsprecher, 
sieht's  schon  besser  aus,  weil  sich  dann  der  Schall  im  Raum  aus- 
breiten  kann  und  akustischen  Gesetzen  wie  Reflexionen  etc. 
unterliegt. 
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Es  gibt  fur  Sprache  elf  mdgliche  Kanalzuordnungen,  Sie  sehen 
Sie  in  Tabelle  10. 


6.  Wert  im 

Kanal/Kanaie 

Anmerkungen 

Integer-Feld 

0 

Kanal  0 

links 

1 

Kanal  1 

rechts 

2 

Kanal  2 

rechts 

3 

Kanal  3 

links 

4 

Kanale  0  und  1 

Stereo 

5 

Kanale  0  und  2 

Stereo 

6 

Kanale  3  und  1 

Stereo 

7 

Kanale  3  und  2 

Stereo 

8 

alle  freien  linken 

Kanale 

0  und/oder  3 

9 

alle  freien  rechten 

Kanale 

1  und/oder  2 

10 

jedes  freie  Paar 

AmigaBASICs  Grundwert 

11 

jeder  freie  Kanal 

Tabelle  10:         Ka 

naUuordnungen  beim  SAY-1 

3efehl 

Zu  den  "freien  Kanalen":  Hier  geht's  nicht  um  die  Bundespost 
und  lhr  Kabelprojekt,  sondern  um  die  Tatsache,  dafi  auch  die 
Tonerzeugung  beim  Amiga  dem  Multitasking  unterliegt.  Von 
anderen  Programmen  (oder  sogar  von  vorherigen  BASIC-Befeh- 
len,  dazu  gleich  mehr)  kann  bereits  ein  Teil  der  Kanale  belegt 
sein.  Dabei  geht  es  aber  nur  um  tatsachliche,  gerade  gespielte 
Tone.  Ein  Kanal  gilt  als  frei,  wenn  auf  ihm  kein  Ton  lauft.  Je 
nach  dem  angegebenen  Wert  kdnnen  Sie  Ihre  Sprache  auf  belie- 
bige  Kanalkombinationen  schicken.  Wenn  noch  andere  SAY- 
Befehle  oder  Ton-Befehle  laufen  (Sie  werden  noch  einige  ken- 
nenlernen...),  sollten  Sie  auf  jeden  Fall  eine  der  Optionen  wah- 
len,  die  "freie"  Kanale  benutzt.  So  kommt  die  Sprache  am  si- 
chersten  auch  wirklich  beim  ZuhOrer  an. 
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AmigaBASIC  benutzt  als  Standard wert  10  (jedes  unbesetzte  Paar 
links/rechts).  Wir  haben  in  unserer  DATA-Zeile  den  Wert  11 
gewahlt  (jeder  freie  Kanal).  Aber  wie  gesagt:  Expenmente  loh- 
nen  sich  nur  bei  Stereo- AnschluB. 

Die  letzten  beiden  Werte  im  Integer-Feld  geben  an,  wie  sich  der 
Amiga  verhalten  soil,  wenn  mehrere  SAY-Befehle  aufemander 
folgen  Oder  SAY-Befehle  und  andere  Befehle.  1st  der  achte 
Wert  0,  wartet  AmigaBASIC  mit  der  Ausfuhrung  weiterer  Be- 
fehle bis  die  Ausgabe  des  SAY-Befehls  beendet  ist.  1  bewirkt, 
ahnlich  wie  bei  den  OBJECT-Befehlen,  ein  Anstarten  der  Ton- 
ausgabe  und  macht  dann  mit  weiteren  Befehlen  weiter.  So  kann 
Sprache  im  Hintergrund  laufen,  wahrend  AmigaBASIC  anderen 
Aufgaben  nachgeht.  AmigaBASIC  versucht  sich  aber  solch  stres- 
sige  Doppelbelastungen  mdglichst  vom  Hals  zu  halten,  deshalb 
ist  die  Grundeinstellung  0. 

Wert  9  spielt  nur  dann  eine  Rolle,  wenn  der  achte  Wert  auf  1 
steht,  also  auf  Hintergrundverarbeitung.  Wie  soil  sich  Amiga- 
BASIC verhalten,  wenn  w&hrend  einer  laufenden  Sprachausgabe 
ein  neuer  SAY  auftritt?  0  bewirkt  eine  Art  Warteschlange:  Der 
Neue  soil  gefalligt  warten,  bis  der  alte  fertig  ist.  2  bewirkt,  daB 
die  laufende  Ausgabe  abgebrochen  wird,  und  der  neue  SAY- 
Befehl  sofort  beginnt.  1  haben  wir  mit  voller  Absicht  hintenan 
gestellf  Dieser  Wert  hat  mit  den  Optionen  0  und  2  nichts  zu  tun: 
Er  deaktiviert  den  aktuellen  SAY-Befehl,  und  zwar  vollig  unab- 
hangig  von  alien  anderen  Einstellungen.  Das  kfinnen  Sie  im 
Rahmen  grdBerer  Programme  dazu  benutzen,  eine  SAY- Ausgabe 
durch  eine  Variable  (deren  Inhalt  0  fur  Reden  und  1  fur 
Schweigen  ist  -  Sie  kennen  ja  die  Geschichte  mit  Silber  und 
Gold)  ein-  und  auszuschalten. 

So  das  war's  erstmal.  Es  waren  ganz  sch6n  viele  Optionen,  nicht 
wa'hr?  ErfahrungsgemaB  geht  jetzt  die  groBe  Suche  nach  den 
schdnsten  Einstellungen  los.  Um  Ihnen  dabei  viel  Tipparbeit  und 
lange  Wartezeiten  zu  ersparen  (bei  jedem  Programmstart  wird  ja 
erst  mal  von  neuem  "narrator.device"  geladen),  stellen  wir  Ihnen 
im  nachsten  Kapitel  ein  Hilfsprogramm  zur  Stimmen-Program- 
mierung  vor. 


Spracherzeugung  in  BASIC S19 


6.4        Gesagt,  getan  -  das  Sprachutility 

Unser  n^chstes  Utility  hilft  Ihnen  beim  Ausprobieren  der  ver- 
schiedenen  Stimm-Optionen.  Wenn  Sie  die  Stimme  gefunden  ha- 
ben,  die  Sie  sich  schon  immer  wiinschten,  kdnnen  Sie  die  Daten 
abspeichern  und  sp&ter  via  MERGE  an  eigene  Programme  an- 
hangen.  Ein  Hinweis  noch:  Die  in  diesem  Programm  produ- 
zierten  Stimmen  haben  weder  bei  Landtags-  noch  bei  Bundes- 
tagswahlen  Gultigkeit  und  dtirfen  auch  nicht  abgegeben  werden. 
Und  alle,  die  lieber  klicken  statt  tippen,  kdnnen  auch  das  Pro- 
gramm "Sprachutility"  von  der  beiliegenden  Diskette  laden.  Aber 
bitte  schauen  Sie  sich  trotzdem  die  Erkl&rungen  an.  Wie  immer. 

Bildschirmaufbau: 
CLS 

PALETTE  0,.1,.1,.4 
LOCATE  2,2  :  PRINT  "Text:" 
LINE  <60,7)-<612,18),1,b 
LOCATE  22,6 

PRINT  "Freq.    Geschw.   Abtast    Lautst." 
LINE  <40,30>-<65,160>,1,b 
LINE  (120,30)-(145,160),1,b 
LINE  <205,30)-(230,160),1,b 
LINE  (285,30)-(310,t60),t,b 
LOCATE  6,54  :  PRINT  "Mannl.     Weibl." 
LINE  <420,30)-<495,48),1,b 
LINE  (510,30)-(585,48),1,b 
LOCATE  9,54  :  PRINT  "Mensch     Comp." 
LINE  <420,57)-<495,75),1,b 
LINE  (510,57)-(585,75),1#b 
LOCATE  12,59  :  PRINT  "Sprechen" 
LINE  (450,84)-(555,102),1,b 
LOCATE  17,59  :  PRINT  "Speichern" 
LINE  (450,120)-(555,138),1,b 

Der  Programmteil  'Bildschirmaufbau:1  baut  ein  System  aus  Reg- 
lern  und  Feldern  auf.  Sie  kennen  ja  schon  unseren  Spleen  mit 
Bildschirmfarben:  Auch  diesmal  wird  das  Workbench-Blau  vor- 
nehm  abgedunkelt. 
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Im  obersten  Feld  konnen  Sie  den  Text  eingeben,  der  gesprochen 
werden  soil.  Darunter  stehen  vier  Schieberegler  fur  die  Grund- 
frequenz,  die  Sprechgeschwindigkeit,  die  Abtastfrequenz  und  die 
Lautstarke.  All  diese  Werte  k8nnen  innerhalb  ihres  zuiassigen 
Bereichs  v611ig  ver£ndert  werden.  Neben  den  Reglern  gibt  es 
noch  ein  Felderpaar  fur  mannliche  Oder  weibliche 
Stimmauspragung  und  ein  Paar  fur  die  Festlegung  von  betonter 
(menschlicher)  oder  unbetonter  (computer-typischer)  Textwie- 
dergabe.  Ein  Feld  aktiviert  das  Sprechen  mit  den  gegenwfcrtig 
eingestellten  Werten.  Und  das  letzte  Feld  kdnnen  Sie  anklicken, 
wenn  Sie  die  DATA- Werte  abspeichern  wollen.  Bild  18  zeigt  den 
vollstandigen  Bildschirmaufbau,  so  k6nnen  Sie  feststellen,  ob  in 
Ihrer  Version  alles  stimmt. 


Bild  18: 


Das  Sprachutility 
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Ausgangswerte: 
FOR  x=0  TO  8 

READ  Sprech%(x) 
NEXT  x 

DATA  110,0,150,0,22200,64,10,0,0 
GOSUB  UerteZeigen 

Hauptschleife: 
ON  MOUSE  GOSUB  Mausauswertung 
MOUSE  ON 
WHILE  1  :  WEND 

In  'Ausgangswerte:'  lesen  wir  ins  Integerfeld  'Sprech%'  die 
AmigaBASIC-Grundwerte  fiir  den  SAY-Befehl  ein.  Im  Lauf  des 
Programms  kdnnen  Sie  alle  diese  Werte  Sndern,  aber  zu  Beginn 
haben  sie  diese  Ausgangsbelegung.  Wenn  Sie  irgendwann  einmal 
besonders  liebgewonnene  Einstellungsdaten  fiir  SAY  haben,  k6n- 
nen  Sie  diese  gem  in  der  entprechenden  DATA-Zeile  angeben. 
Das  Programm  arbeitet  mit  jeder  beliebigen  Grundeinstellung. 
Wichtig  ist  nur,  daB  uberhaupt  eine  existiert.  Im  AnschluB  daran 
rufen  wir  das  Unterprogamm  'WerteZeigen:'  auf,  das  die  Regler 
und  Markierungen  richtig  setzt.  Die  'Hauptschleife:'  zeigt  Ihnen, 
daB  wir  wieder  mal  ein  Programm  geschrieben  haben,  das  voll- 
standig  uber  Event  Trapping  lSuft.  Allerdings  benutzen  wir  nur 
die  Maus  -  Pulldowns  werden  vom  Programm  nicht  abgefragt. 

Mausauswertung: 
Test=MOUSE(0) 
x=MOUSE<3)  :  y=MOUSE(4) 
IF  x>39  AND  x<311  AND  y>29  AND  y<161  THEN 
IF  x<66  THEN 

Frequenz: 

Sprech%(0)=(255-(y-30)*(255/130)>+65 

Frec(Wert=((320-Sprech%(0))/255)*130 

LINE  (A1,31)-(64,31+FreqWert),0,bf 

LINE  (41,32+FreqWert)-(64,159),3,bf 
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y=M0USE(6) 
IF  y<31  THEN  y=31 
IF  y>159  THEN  y=159 
IF  MOUSE<0)<=-1  THEN  Frequenz 
END  IF 

Den  letzten  Teil  (ab  IF  x<66...)  sollten  Sie  -  wenn  Sie  das  Pro- 
gramm  selbst  eingeben  -  mit  "Copy"  aus  dem  "EditM-Menii  aus- 
schneiden  und  dreimal  mit  "Paste"  kopieren.  Er  wird  mit  klei- 
neren  Korrekturen  insgesamt  viermal  verwendet.  Die  nfcchsten 
drei  Blocks  folgen  jetzt,  dann  geht  das  Programm  normal  weiter. 

IF  x>119  AND  x<146  THEN 

Geschu: 

Sprech%(2)=<360-(y-30)*(360/130))+40 

GeschwWert=((400-Sprech%<2))/360)*130 

LINE  (121,31)-(144,31+GeschwWert),0,bf 

LINE  (121, 32+GeschwWert>- (144,159), 3, bf 

y=M0USE(6) 

IF  y<31  THEN  y=31 

IF  y>159  THEN  y=159 

IF  HOUSE(0)<=-1  THEN  Geschw 
END  IF 
IF  x>204  AND  x<231  THEN 

Abtast: 
Sprech%(4)=(23000-(y-30)*(23000/130))+5000 

AbtastWert=<(28000-Sprech%{4))/23000)*130 

LINE  (206,31)- (229, 31+AbtastWert),0,bf 

LINE  (206,32+AbtastUert)-(229,159),3,bf 

y=M0USE(6) 

IF  y<31  THEN  y=31 

IF  y>159  THEN  y=159 

IF  MOUSE(0)<=-1  THEN  Abtast 
END  IF 
IF  x>284  AND  x<311  THEN 

Lautst: 

Sprech%(5)=(64-(y-30)*<64/130)) 

LautstWert=((64-Sprech%(5))/64)*130 

LINE  (286,31 )-(309,31+LautstWert),0,bf 

LINE  (286,32+LautstWert)-(309,159),3,bf 
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y=M0USE(6) 
IF  y<31  THEN  y=31 
IF  y>159  THEN  y=159 
IF  MOUSE(0)<=-1  THEN  Lautst 
END  IF 
END  IF 

IF  x>419  AND  x<496  AND  y>29  AND  y<49  THEN 
Sprech%(3)=0 

PAINT  (422,32),3,1  :  PAINT  (512,32), 0,1 
END  IF 

IF  x>509  AND  x<586  AND  y>29  AND  y<49  THEN 
Sprech%(3)=1 

PAINT  (422,32),0,1  :  PAINT  (512,32)f3,1 
END  IF 

IF  x>419  AND  x<496  AND  y>56  AND  y<76  THEN 
Sprech%(1)=0 

PAINT  (422,59), 3,1  :  PAINT  (512,59), 0,1 
END  IF 

IF  x>509  AND  x<586  AND  y>56  AND  y<76  THEN 
Sprech%(1)=1 

PAINT  (422,59), 0,1  :  PAINT  (512, 59), 3,1 
END  IF 

IF  x>59  AND  x<613  AND  y>6  AND  y<19  THEN 
LOCATE  2,9  :  PRINT  SPACE$(54) 
LOCATE  2,9  :  LINE  INPUT  Text$ 
END  IF 

IF  x>449  AND  x<556  AND  y>83  AND  y<103  THEN 
PAINT  (452, 85), 3,1 
SAY  TRANSLATE$(Text$),Sprech% 
PAINT  (452,85), 0,1 
END  IF 

IF  x>449  AND  x<556  AND  y>119  AND  y<139  THEN 
PAINT  (452,121)f3,1 
LOCATE  2,9  :  PRINT  SPACE$(54) 
LOCATE  2,9  :  COLOR  0,3  :  PRINT  "Dateiname:"; 
COLOR  1,0  :  LINE  INPUT  Nam* 
IF  Nam$<>»»  THEN 

IF  Nam$=  ■'=•»  OR  Nam$=»*»  AND  Altname$<>»'»  THEN  Nam$=Altname$ 
OPEN  NamS  FOR  OUTPUT  AS  1 
PRINT  #1,  "REM  DATAs  erzeugt  mit  AmigaBASIC-SprachutUi ty" 
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PRINT  #1,  "DATA  ■'; 
FOR  x=0  TO  7 

PRINT  #1,SprechX<x)'\»; 
NEXT  X 

PRINT  #1,Sprech%<8) 
CLOSE  1 
Altname$=Nam$ 
END  IF 

LOCATE  2,9  :  PRINT  SPACE$(54) 
LOCATE  2,9  :  COLOR  1,0  :  PRINT  Text$ 
PAINT  (452, 121), 0,1 
END  IF 

RETURN 


In  der  'Mausauswertung:'  arbeitet  das  Programm  den  grflBten 
Teil  der  Zeit.  Zu  Beginn  rufen  wir  MOUSE(O)  auf  und  weisen 
das  Ergebnis  einer  Dummy-Variablen  namens  'Test'  zu:  Wir 
wollen  nur  moglichst  aktueile  Werte  uber  die  Mausposition.  Urn 
die  x-  und  die  y-Koordinaten  der  Maus  zu  erfahren,  benutzen 
wir  die  Funktionen  MOUSE(3)  und  MOUSE(4).  Wenn  Sie  sich 
nicht  mehr  erinnern,  schauen  Sie  ruhig  im  Befehlsanhang  oder 
auch  im  Kapitel  2.9  nach.  MOUSE(3)  und  MOUSE(4)  liefern  die 
Koordinaten  beim  Driicken  der  Maustaste,  also  beim  Unterpro- 
grammaufruf.  Wir  benutzen  diese  Werte,  weil  wir  uns  bei  einer 
Mausbewegung  nicht  fur  die  aktueile  Position  interessieren,  son- 
dern  fur  die  Position  beim  Klick. 

Nun  werden  der  Reihe  nach  die  verschiedenen  Felder  auf  dem 
Bildschirm  abgepriift.  Wo  fand  der  Klick  statt?  War  es  irgendwo 
im  Reglerbereich?  Dann  gibt  es  fur  jeden  der  Regler  einen  Pro- 
grammteil  (Trequenz:\  Geschw:\  'Abtast:*  und  'Lautst:').  Die 
vier  sind  vollig  gleich  aufgebaut,  unterscheiden  sich  aber  in  den 
Zahlen,  Daten  und  Namen. 

Wir  wollen  die  Funktion  anhand  des  ersten  Blocks  ('Frequent') 
einmal  durchexerzieren,  die  restlichen  drei  schenken  wir  uns 
und  Ihnen,  da  sie  v611ig  identisch  funktionieren.  Liegt  die 
Mausposition  also  im  Bereich  des  Frequenz-Reglers,  errechnen 
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wir  zuerst  aus  der  y-Koordinate  der  Maus  eine  neue  Frequenz 
und  schreiben  sie  ins  Feld  'Sprech%(0)\  Die  Variable  'FreqWert' 
errechnet  die  Bildschirmkoordinate,  die  dieser  Frequenz  im 
Regler  entspricht.  Der  erste  der  beiden  LINE-Befehle  mit 
Blockfill-Option  fullt  den  Bereich  oberhalb  der  Oberkante  des 
Reglers  in  seiner  aktuellen  Stellung  blau  aus.  Der  zweite  LINE- 
Befehl  fullt  den  Bereich  unterhalb  der  Reglerkante  orange  aus. 
So  entsteht  ein  Schieberegler,  der,  wie  die  Quecksilbersaule  in 
einem  Thermometer,  mit  wachsenden  Werten  nach  oben  steigt. 
Y  erhalt  die  aktuelle  y-Position  der  Mausbewegung.  Liegt  y 
auBerhalb  des  Reglerbereichs  (31  bis  159),  wird  es  auf  den  Mi- 
nimal- bzw  Maximalwert  gesetzt.  1st  MOUSE(O)  eine  Zahl  klei- 
ner  oder  gleich  -1,  ist  die  Maustaste  noch  gedriickt.  In  diesem 
Fall  wird  der  Regler  weiterbewegt,  also  Rucksprung  zum  Label 
'Frequenz:1. 

Wie  gesagt,  wiederholt  sich  diese  Prozedur  mit  veranderten  Da- 
ten  fur  die  anderen  Regler.  Danach  folgt  die  Abpriifung  des 
Kastchens  "Mannlich".  Haben  Sie  dort  hinein  geklickt,  bekommt 
'Sprech%(3)'  den  entsprechenden  Wert,  namlich  0.  Das  "Mann- 
lich"-Feld  wird  ausgemalt,  das  "Weiblich"-Feld  in  normale  Farbe 
zurQckversetzt.  Der  nachste  Block  pruft,  ob  es  nicht  vielleicht 
doch  das  "Weiblich'-Kastchen  war,  wo  der  Klick  stattfand.  Sollte 
das  zutreffen,  bekommt  'Sprech%(3)'  den  Wert  1,  das  "Mann- 
hch"-Kastchen  wird  zuruckgesetzt  und  das  "Weiblich"-Kastchen 
ausgemalt. 

Der  dritte  Block  in  dieser  Art  ist  fur  das  "Mensch"-Kastchen 
zustandig,  also  fur  die  Auswahl  der  betonten  Sprechweise. 
*Sprech%(l)'  wird  mit  0  versehen,  die  Kastchen  werden  wieder 
nach  dem  aktuellen  Stand  ausgemalt:  "Mensch"  an,  "Computer" 
aus.  Natilrlich  nur  im  Sinne  von  Ausmalen.  Sie  brauchen  Ihren 
Amiga  nicht  auszuschalten.  Und  der  vierte  in  diesem  Bunde  ist 
das  "Computer"- Kastchen,  das  genau  das  Gegenteil  des 
"Mensch"-Kastchens  bewirkt:  'Sprech%(l)'  wird  1,  und  das 
"Computer"-Kastchen  bekommt  die  orange  FOllung. 
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Der  nun  folgende  Teil  ermdglicht  die  Eingabe  des  Strings,  der 
gesprochen  werden  soil.  Beachten  Sie  bitte,  daB  diese  Eingabe 
mit  <RETURN>  beendet  werden  muB,  bevor  Event  Trapping 
normal  weiterarbeiten  kann.  Liegen  die  Koordinaten  des  Khck- 
Punkts  im  MSprechen"-Kastchen,  erzeugt  ein  SAY-Befehl  aus  al- 
ien vorliegenden  Daten  den  gewiinschten  (oder  unerwunschten?!) 
Ohrenschmaus. 

Der  nachste  Block  ist  wieder  etwas  langer.  Er  beinhaltet  die 
Speicherung  der  DATA-Datei.  Zur  Eingabe  des  Dateinamens 
benutzen  wir  einfach  das  Text-Fester:  Wir  schaffen  Platz  mit 
SPACES  und  lesen  mit  LINE  INPUT  den  Namen  ein  ("="  und 
"*"  dienen  wieder  als  Abkurzung).  War  der  Name  nicht  leer, 
6ffnen  wir  die  Datei. 

Was  wir  hier  machen,  ist  schon  recht  trickreich:  Eine  sequen- 
tielle  Datei  und  ein  Programm  im  ASCII-Format  unterscheiden 
sich  nicht  voneinander.  Wir  schreiben  also  eine  Reihe  von  Be- 
fehlen  in  die  Datei  und  kOnnen  diese  Befehle  spater  mit 
MERGE  an  ein  eigenes  Programm  anhangen. 

Ehre  wem  Ehre  gebuhrt.  Deshalb  die  REM-Zeile,  in  der  wir 
darauf  hinweisen,  wie  und  wodurch  die  DATAs  entstanden  sind. 
In  die  nachste  Zeile  der  Datei  kommt  der  DATA-Befehl  und 
dann  acht  durch  Kommas  getrennte  Einzelwerte  aus  dem  Feld 
'Sprech%(x)\  Den  neunten  Wert  schicken  wir  solo  hinterher,  da 
er  nicht  mehr  von  einem  Komma  gefolgt  werden  darf .  Das  war 
auch  schon  alles,  die  Datei  kann  wieder  geschlossen  werden. 

'AltnameS'  merkt  sich  noch  den  letzten  Dateinamen  fur  die  Ab- 
kurzung bei  n&chsten  Mai.  Jetzt  miissen  wir  uns  nur  noch  fur 
die  Gastfreundschaft  im  Text-Fenster  revanchieren  und  alles  so 
hinterlassen,  wie  wir  es  vorgefunden  haben.  Ein  SPACES  lOscht 
den  Dateinamen  und  der  alte  'TextS'  wird  wieder  an  seine  Stelle 
gedruckt.  PAINT  setzt  das  "Schreiben"-Kastchen  zurtick  auf 
blaue  Farbe.  Wahrend  des  Schreibvorgangs  war  es  die  ganze  Zeit 
orange  gefullt. 
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Das  RETURN  am  SchluB  springt  aus  der  'Mausauswerten:1- 
Routine  zuriick  in  die  'Hauptschleife:'.  Dort  macht  sich  ja  die 
endlose  WHILE. ..WEND-Schleife  ein  schftnes  Leben.  Nichts  zu 
tun,  diese  Programme  heutzutage... 

Uns  fehlt  noch  das  Unterprogramm  'WertZeigen:',  das  die 
Reglerpositionen  und  Feldauswahlen  beim  Programmbeginn  auf 
den  Bildschirm  bringt: 

WerteZeigen: 

LOCATE  2,9  :  PRINT  SPACE$(54) 
LOCATE  2,9  :  PRINT  Text$ 
IF  Sprech%(3)=0  THEN 

PAINT  (422, 32), 3,1  :  PAINT  (512, 32), 0,1 
ELSE 

PAINT  (422, 32), 0,1  :  PAINT  (512, 32), 3,1 
END  IF 
IF  Sprech%(1)=0  THEN 

PAINT  (422, 59), 3,1  :  PAINT  (512, 59), 0,1 
ELSE 

PAINT  (422, 59), 0,1  :  PAINT  (512, 59), 3,1 
END  IF 

FreqWert=((320-Sprech%(0))/255)*130 
LINE  (35,31+FreqUert)-(70,31+FreqUert) 
LINE  (41,31)-(64,31+FreqUert),0,bf 
LINE  (41,32+FrecJUert)-(64,159),3,bf  , 

GeschwUert=((400-Sprech%(2))/360)*130 
LINE  (115,31+GeschwUert)-(150,31+GeschwUert) 
LINE  (121,31)-(144,31+GeschWUert)#0,bf 
LINE  (121,32+GeschwUert)-(144,159),3,bf 

AbtastWert=( (28000- Sprech%(4))/23000)*130 
LINE  (200,31+AbtastWert)-(235,31+AbtastWert) 
LINE  (206,31)- (229, 3HAbtastWert),0,bf 
LINE  (206,32+AbtastWert)-(229,159),3,bf 
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LautstUert=<<64-Sprech%<5»/64)*130 

LINE  <280,31+lautstUert)-<315,31+LautstUert) 
LINE  (286,31 >-<309,31+LautstWert),0,bf 
LINE  (286,32+LautstWert)-<309,159),3,bf 

RETURN 

Wenn  Ihnen  die  Routinen  aus  diesem  Unterprogramm  bekannt 
vorkommen,  ist  das  kein  Wunder:  Sie  stehen  in  derselben  oder 
ahnlicher  Form  auch  im  Programmteil  'Mausauswertung:*.  Es 
lieB  sich  aber  nicht  vermeiden,  diese  Routinen  nochmal  in  einem 
eigenen  Unterprogramm  zusammenzufassen,  damit  der  Bild- 
schirmaufbau  beim  Programmstart  vollstindig  ist.  Wurden  wir 
auf  das  Unterprogramm  'WerteZeigen:*  verzichten,  wurden  die 
einzelnen  Regler  erst  in  den  Augenblick  auf  dem  Bildschirm 
erscheinen,  wenn  sie  zum  ersten  Mai  benutzt  werden.  Bei  jedem 
Regler  bringen  wir  zu  Beginn  des  Programms  an  der  Stelle,  an 
der  die  Standardeinstellung  liegt,  eine  Markierung  an.  Das  er- 
leichtert  sp&ter  das  Wiederfinden  dieser  Grundeinstellungswerte. 

Falls  Sie  in  der  DATA-Zeile  im  Programmteil  'Ausgangswerte:' 
eigene  Lieblingswerte  eingeben,  zeigen  die  Markierungen  diese 
Werte  an.  Was  immer  dort  in  den  DATAs  steht,  gilt  fur  das  Pro- 
gramm  als  Standardwert. 

Vergessen  Sie  nicht,  das  Programm  abzuspeichern,  wenn  Sie  es 
selbst  eingegeben  haben.  Die  Bedienung  des  Utilities  ist  ganz 
einfach:  Benutzen  Sie  die  Maus,  um  die  Regler  zu  verschieben. 
Nach  einem  Klick  ins  Textfeld  kCnnen  Sie  dort  den  Text  einge- 
ben, der  gesprochen  werden  soil.  Aber  bitte  erst  <RETURN> 
drucken,  bevor  Sie  weitere  Mausaktionen  starten.  Event  Trap- 
ping merkt  sich  zwar  die  Mausklicks,  kann  sie  aber  nicht  bear- 
beiten,  solange  ein  INPUT  aktiv  ist. 

Sie  kdnnen  in  den  dafiir  vorgesehenen  Feldern  w&hlen,  ob  die 
Stimme  m&nnlich  oder  weiblich  klingen  soil,  auBerdem  die  Beto- 
nung  festlegen.  Ein  Klick  ins  Feld  "Sprechen"  liest  Ihnen  den 
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Text  im  Textfeld  mit  den  aktuelien  Sprach-Parametern  vor.  Vor 
dem  ersten  Vorlesen  ist  wieder  mal  ein  Workbench-Zugriff 
failig. 

Wenn  Ihnen  die  eingestellte  Stimme  gefailt,  kflnnen  Sie  die  ak- 
tuelien Werte  durch  einen  Klick  ins  "SpeichernH-FeId  abspei- 
chern.  Es  wird  ein  Programm  in  ASCII-Format  erzeugt,  das  Sie 
mit  MERGE  an  ein  eigenes  Programm  anhangen  konnen. 

Speichern  Sie  jetzt  bitte  das  Sprachutility  mit  seinen  letzen 
Korrekturen  ab.  Jetzt  noch  zur  Demonstration:  Stellen  Sie  eine 
hubsche  Stimme  ein  und  legen  Sie  die  Daten  auf  Diskette  ab. 
Dateiname  kdnnte  z.B.  "Sprachdaten"  sein.  Ldschen  Sie  dann  das 
LIST- Window  und  geben  Sie  ein  kleines  Beispielprogramm  ein: 

FOR  x=0  TO  8 
READ  a%(x) 
NEXT  x 
SAY  "Hello  Amiga. ",3% 

Nun  folgt  im  BASIC-Window  der  MERGE-Befehl: 

merge  "Sprachdaten" 
Daraufhin  werden  zwei  neue  Zeilen  an  Ihr  Programm  angehSngt: 

REM  DATAs  erzeugt  mit  AmigaBASIC* Sprachutility 
DATA 

In  der  DATA-Zeile  stehen  alle  Daten  fiber  die  Stimme,  die  Sie 
mit  dem  Utility  ausgesucht  haben. 

Zum  SchluB  noch  ein  kleiner  Tip:  Wenn  Sie  das  Utility  wahrend 
der  Entwicklung  eines  grdBeren  eigenen  Programms  bendtigen, 
benutzen  Sie  doch  einfach  die  RAM-Disk!  Geben  Sie  als  Datei- 
namen  "RAM:SprachdatenM  ein  und  MERGEn  Sie  spSter  aus  der 
RAM-Disk.  Das  geht  sehr  schnell  und  belegt  nicht  Ihre  Diskette. 
Wollen  Sie  die  kleinen  DATA-Programme  aufheben,  miissen  Sie 
sie  naturlich  aus  der  RAM-Disk  zuriick  auf  Diskette  kopieren. 
Sie   kSnnten   sich   eine    kleine   Stimmensammlung   auf   Diskette 
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einrichten!  Dann  k6nnen  Sie  nach  einiger  Zeit  aus  einem  reichen 
Fundus  schdpfen,  wenn  eines  Ihrer  Programme  mal  was  zu  sagen 
hat. 

Damit  sind  wir  auch  schon  am  Ende  der  Spracherzeugung.  Jetzt 
geht  es  noch  urn  Musik  und  T6ne.  Unsere  Ohren  sind  ja  durch 
die  langen  Unterhaltungen  mit  Amiga  schon  geschult  und 
verwGhnt. 
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7.     Tatatataaa  -  Tone  und  Musik 

In  unserem  Kapitel  iiber  die  Sound-Mdglichkeiten  des  Amiga 
darf  natiirlich  neben  der  Sprache  auch  die  Musik  nicht  fehlen 
Die  Hardware,  die  den  Amiga  zum  Reden  bringen  kann,  ist  so 
leistungsfahig,  daB  auch  sehr  komplexe  Tdne  fur  sie  keine 
Schwierigkeit  darstellen.  Allerdings  miissen  wir  Sie  auch  gleich 
auf  ein  Problem  hinweisen.  Die  Leistungsfahigkeit  der  Hardware 
wird  in  diesem  Fall  nicht  hundertprozentig  von  AmigaBASIC 
unterstutzt.  Wahrend  bisher  eigentlich  fast  alle  Mdglichkeiten 
des  Amiga  durch  komplexe  und  machtige  BASIC-Befehle  sehr 
weit  ausgeschopft  werden  konnten,  beschrankt  sich  die  Ausgabe 
von  Musik  und  Gerauschen  auf  zwei  eher  schmalbriistige  Ver- 
treter  ihrer  Zunft.  Aber  dazu  spater  mehr. 


7.1        Die  vierte  Kostprobe:  Star  Wars  -  die  Musik 

In  den  nachsten  Kapiteln  wird  sich  alles  urn  die  Erzeugung  von 
Musik  in  AmigaBASIC  drehen.  Natiirlich  kann  man  hier  nicht 
die  Ergebnisse  erreichen,  die  Sie  vielleicht  von  professionellen 
Musikprogrammen  oder  den  Workbench-Demos  kennen,  aber  das 
nachste  Programm  zeigt  Ihnen,  was  in  AmigaBASIC  ohne  groBen 
Auf  wand  mdglich  ist: 

Lesen: 

READ  Freq.Dauer 

IF  Freq=-1  THEN  SOUND  RESUME  :  END 

SOUND  WAIT 

SOUND  Freq,Dauer,21,0 

SOUND  Freq/2,Dauer, 127,1 

SOUND  Freq*2,Dauer,21,2 
GOTO  Lesen 

DATA  523.25,15,784,15,698.48.6 
DATA  659.28,6,587.28,6,1046.52,15 
DATA  784, 17, -1,-1 
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Wir  haben  uns  erlaubt,  einen  unserer  Lieblingsfilme  zu  bemu- 
hen,  genauer  gesagt,  die  Musik  daraus.  Sie  hdren  die  ersten 
Takte  der  Filmmusik  zu  Star  Wars.  Wenn  Sie  die  Zeilen  selbst 
eingetippt  haben  und  die  Musik  nicht  so  harmonisch  klmgt,  wie 
Sie  es  von  Ihrem  letzten  Kinobesuch  in  Erinnerung  haben,  pru- 
fen  Sie  doch  bitte  nochmal  die  DATA-Zeilen.  Vielleicht  hat  sich 
irgendwo  ein  Tippfehler  eingeschlichen. 

7.2       Hier  spielt  die  Musik  -  der  SOUND- Befehl 

Beim  Spielen  von  Noten  oder  Tdnen  aller  Art  spielt  der 
SOUND-Befehl  die  Hauptrolle.  Ihn  haben  Sie  schon  an  ver- 
schiedenen  Stellen  in  unseren  bisherigen  Programmen  kennen- 
gelernt.  Im  Malprogramm  zum  Beispiel,  wo  SOUND  zum  Erzeu- 
gen  eines  Warntons  benutzt  wird.  So  eine  Aufgabe  ist  ja  fast  ein 
biBchen  zu  anspruchslos  fur  den  Kiinstler  SOUND.  Aber  wie  je- 
der  freischaffende  Kiinstler  nimmt  er  halt  jeden  Job  an,  der  lhm 
angeboten  wird. 

Fur  Warntdne  gibt  es  ja  auch  den  BEEP-Befehl.  Er  erzeugt  den 
bekannten  Piepser,  der  dem  Anwender  anzeigt,  daB  irgendetwas 
Besonderes  los  ist.  BEEP  erzeugt  einen  Ton  mit  einer  festen 
Frequenz  (Tonhdhe)  und  einer  festen  Dauer.  Im  Gegensatz  dazu 
k6nnen  Sie  beim  SOUND-Befehl  die  Frequenz  und  die  Dauer 
beliebig  wahlen.  SOUND  kann  zwar  noch  einiges  mehr,  aber 
dazu  kommen  wir  dann  etwas  sp&ter. 

Wie  Sie  sicher  schon  wissen,  sind  Tdne  und  Gerausche  nichts 
anderes  als  Luftschwingungen,  die  vom  menschlichen  Ohr  wahr- 
genommen  und  verarbeitet  werden.  Die  Frequenz  ernes  Tons  ist 
die  Anzahl  der  Schwingungen  pro  Sekunde.  Viele  Schwingungen 
bewirken  einen  hohen  Ton,  wenige  Schwingungen  einen  niedri- 
gen  Ton  Die  Einheit  fur  "Schwingungen  pro  Sekunde  nennt 
man  Hertz,  nach  dem  Physiker,  der  die  elektromagnetischen 
Wellen  entdeckte.  Wenn  Sie  sich  darunter  nicht  viel  vorstellen 
konnen:  lhm  haben  wir  unter  anderem  Radio  und  Fernsehen  zu 
verdanken.  Dank  seiner  Entdeckung  kdnnen  Signale  auf  vielen 
verschiedenen  Frequenzen  rund  urn  die  Welt  geschickt  werden. 
Oder  auch  nur  vom  Funkturm  bis  zu  Ihrer  Antenne.  Ein  Radio, 
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ein  Kassettenrecorder,  einfach  jede  Komponente  einer  Stereo- 
anlage setzt  die  zu  erzeugende  Musik  in  elektrische  Signale  um, 
die  zu  einem  oder  mehreren  Lautsprechern  geschickt  werden  Im 
Lautsprecher  versetzt  ein  Elektomagnet  eine  Membran  in 
Schwingung,  diese  Schwingung  wird  an  die  Luft  weitergegeben 
-  wir  h6ren  einen  Ton. 

Genauso  funktioniert  die  Tonerzeugung  beim  Amiga.  Der  Chip, 
der  fur  T6ne  und  Gerausche  zustandig  ist  (er  heiBt  Paula,  auch 
uber  ihn  -  oder  sie?  -  horen  wir  bald  noch  Naheres),  erzeugt  ein 
entsprechendes  Signal  an  einem  oder  beiden  Tonausgangen 
Dieses  Signal  muB  wie  bei  einer  Stereoanlage  noch  verstarkt 
werden,  dann  kann  es  zum  Lautsprecher  wandern.  Wenn  Sie  nur 
den  Amiga-Monitor  zur  Tonwiedergabe  verwenden:  Auch  in 
lhm  sind  ein  kleiner  Verstarker  und  ein  kleiner  Lautsprecher. 

Nach  so  viel  Theorie  wieder  etwas  mehr  Praxis:  Bei  SOUND 
konnen  Sie  die  Frequenz  eines  Tons  direkt  angeben.  Der  Amiga 
kann  Tone  zwischen  20  und  15000  Hertz  erzeugen.  Mit  diesem 
Frequenzumfang  kann  er  sich  neben  jeder  mittleren  bis  guten 
Stereoanlage  sehen  lassen.  Eine  zweiter  Wert  ist  noch  notig, 
namhch  die  Dauer  des  Tons.  Hier  sind  Werte  zwischen  0  und  77 
erlaubt.  0  erzeugt  gar  keinen  Ton,  1  einen  extrem  kurzen  und  77 
einen  ca.  4  Sekunden  langen  Ton.  Man  kann  die  Dauer  genauer 
berechnen,  aber  das  ist  fur  uns  im  Moment  erst  mal  unwichtig. 

sound  440,18 

erzeugt  einen  440-Hertz-Ton,  der  ca.  1  Sekunde  gespielt  wird 
Fur  Musiker  und  solche,  die  es  werden  wollen:  440  Hertz  ist  die 
Frequenz  des  "Kammertons  a".  Warum  dieser  Ton  ausgerechnet 
und  ausschlieBlich  in  Kammern  gespielt  werden  soil,  konnte  bis- 
her  noch  nicht  eindeutig  geklart  werden. 

sound  500,10 

spielt  einen  etwas  hoheren,  etwas  kurzeren  Ton.  Wenn  Sie  wissen 
wollen,  welche  Werte  hinter  unserem  bekannten  BEEP  stecken 
probieren  Sie  doch  mal 
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sound  880,3 

880  Hertz  entsprechen  ubrigens  dem  Ton  a  aus  der  nachst- 
hoheren  Oktave.  Wollen  Sie  mal  den  gesamten  Frequenzumfang 
Ihres  Amiga  hdren?  Kein  Problem: 

for  x=20  to  15000  step  10  :  sound  x,1  :  next  x 

Tun  Sie  sich  und  Ihren  Ohren  einen  Gefallen,  und  drehen  Sie 
den  Lautstarkeregler  etwas  nach  unten.  Ein  interessantes  akusti- 
sches  Phanomen  ist,  daB  das  menschliche  Ohr  die  mittleren  Fre- 
quenzen  lauter  h6rt  als  extrem  hohe  und  extrem  niednge  Fre- 
quenzen.  Und  sehr  hohe  Frequenzen,  entsprechend  laut  gespielt, 
konnen  sehr  unangenehm  wirken.  Den  STEP  10  haben  wir  ein- 
gebaut,  weil  wir  sonst  mehrere  Minuten  auf  den  Amiga  warten 
muBten.  Sie  kdnnen  diesen  Befehl  bei  Interesse  ja  auch  mal 
rausnehmen. 

Mit  dem  bisherigen  Wissen  konnen  Sie  schon  Piepser  und  Tone 
aller  Art  erzeugen.  Um  den  richtigen  Ton  zu  treffen,  hilft  bis- 
her  nur  Ausprobieren.  Aber  das  wird  sich  bald  andern. 

Vielleicht  finden  Sie  es  etwas  unbequem,  standig  Ihren  Lautstar- 
keregler verandern  zu  mussen.  Am  Monitor  geht's  ja  noch,  aber 
Ihre  Stereoanlage  steht  mdglicherweise  am  anderen  Ende  des 
Zimmers.  Und  jedesmal  dorthin  zu  laufen...  Auch  fur  dieses 
Problem  bietet  AmigaBASIC  eine  Losung:  Den  dritten  Wert  beim 
SOUND-Befehl.  Hier  konnen  Sie  eine  Lautstarke  angeben,  ahn- 
lich  wie  bei  SAY.  Nur  liegt  diesmal  der  erlaubte  Bereich  zwi- 
schen  0  (kein  Ton)  und  255  (voile  Lautstarke).  Wenn  Sie  keinen 
Wert  fur  die  Lautstarke  angeben,  nimmt  AmigaBASIC  den 
Grundwert  127  an.  Also  die  goldene  Mine.  Vergleichen  Sie 

sound  880,10,48 

und 

sound  880,10,255 
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Ja,  unser  Amiga  kann  ein  ganz  schdner  Schreihals  sein.  HCren 
wir  uns  mal  denselben  Ton  mit  zunehmender  Lautstarke  an: 

for  x=0  to  255  :   sound  880,1, x  :  next  x 

Auch  diese  Lautst&rkeregelung  ist  schon  bei  Warntflnen  recht 
hilfreich.  So  kdnnen  Sie  einen  Ton  mehr  oder  weniger  aufdring- 
lich  machen.  Fur  Musik  ist  er  geradezu  unverzichtbar,  schlieB- 
lich  ist  die  Dynamik  (das  Verh&ltnis  von  Iauten  und  leisen  Pas- 
sagen)  ein  wichtiger  Aspekt  bei  der  Musikwiedergabe. 

Einen  vierten,  letzten  Wert  kflnnen  Sie  bei  SOUND  auch  noch 
angeben:  Die  Kanalzuordnung.  Auf  welchem  der  vier  Tonkanale 
soil  der  Ton  gespielt  werden?  Im  Gegensatz  zum  SAY-Befehl 
konnen  Sie  aber  immer  nur  einen  Kanal  (0,  1,  2  oder  3)  an- 
geben. Sie  erinnern  sich  sicher:  0  und  3  waren  links,  1  und  2 
rechts.  AmigaBASIC  benutzt  als  Grundeinstellung  den  Kanal 
Nummer  0. 

Die  Zuordnung  der  Seiten  kflnnen  Sie  nur  verfolgen,  wenn  Ihr 
Amiga  seine  Tone  in  Stereo  wiedergibt.  Aber  die  vier  Kaniile 
nutzen  Ihnen  auch  in  Mono:  So  konnen  Sie  bis  zu  vier  verschie- 
dene  T6ne  gleichzeitig  spielen.  In  unserer  Kostprobe  benutzen 
wir  zum  Beispiel  drei  Tone.  Um  zu  gewahrleisten,  dafi  die  Tone 
auch  gleichzeitig  erklingen,  mussen  Sie  noch  zwei  weitere  Be- 
fehle  kennenlernen.  Gedulden  Sie  sich  bitte  noch  ein  wenig. 

Wenn  Sie  die  Werte  fur  Lautst&rke  und  Kanalzuordnung  mit- 
einander  verbinden,  lassen  sich  interessante  Effekte  erzielen.  Ein 
Ton,  der  auf  einem  Kanal  immer  leiser  wird  und  auf  dem  an- 
deren  immer  lauter,  bewegt  sich  scheinbar  von  links  nach  rechts 
bzw.  von  rechts  nach  links.  Probieren  Sie's  mal  im  LIST- 
Window: 

FOR  x=0  TO  255 

SOUND  440,1,x,0 

SOUND  440,1,255-x,1 
NEXT  x 
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So  kdnnten  Sie  ja  mal  die  akustische  Version  des  letzten  Spiels 
Boris  Becker  gegen  Ivan  Lendl  programmieren:  Bumm  links, 
Bumm  rechts,  Bumm  links... 

Jetzt  kennen  wir  uns  zwar  schon  ganz  gut  aus  mit  SOUND,  aber 
sehr  melodisch  waren  unsere  Beispiele  bisher  noch  nicht.  Wenn 
Sie  Noten  spielen  wollen,  brauchen  Sie  Informationen  iiber  die 
Frequenzen.  Unser  Kammerton  a  hat  die  Frequenz  440  Hertz. 
Schauen  wir  uns  mal  die  Oktave  an,  in  der  dieser  Ton  liegt. 
("Oktave"  nennt  der  Musiker  den  Tonbereich  von  einem  c  zum 
nachsthSheren  c.  Zumindest  vom  hohen  C  hat  ja  jeder  schon 
mal  in  der  einen  oder  anderen  Weise  gehdrt.)  Tabelle  11  gibt 
daruber  Auskunft. 


Ton- 

Frequenz 

bezeichnung 

in  Hertz 

c 

261.63 

d 

293.66 

e 

329.63 

f 

349.23 

g 

392.00 

a 

440.00 

h 

493.88 

c 

523.25 

Tabelle  11:        Frequeiuwerte  einer  Oktave 

Sollten  sich  in  der  geschatzten  Leserschaft  Musikexperten  befin- 
den,  die  Ihren  Amiga  jetzt  gern  zum  Stimmen  nutzen  wurden, 
mussen  wir  eine  Kleinigkeit  erklSren:  AmigaBASIC  erzeugt  auf- 
grund  der  Hertzangabe  eine  Schwingung.  Dazu  werden  verschie- 
dene  interne  Schwingungen  des  Amiga  benutzt.  In  der  gegen- 
wSrtigen  Version  von  AmigaBASIC  richtet  sich  die  Berechnung 
der  Frequenzen  nach  den  Schwingungen  in  der  amerikanischer 
Amiga- Version.  Auf  dem  deutschen  Amiga  klingen  die  Tdne 
deshalb  minimal  verstimmt.  Wer  kein  geschultes  GehCr  besitzt, 
wird  den  Unterschied  aber  wohl  kaum  bemerken. 
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Eigentlich  haben  Sie  jetzt  schon  alles,  was  Sie  zum  Musikmachen 
brauchen.  Die  Berechnung  von  Frequenzen  l^uft  namlich  nach 
einem  einfachen  Prinzip:  Die  Frequenz  eines  Tons  verdoppelt 
sich  mit  jeder  Oktave.  Das  a  in  der  nachsthoheren  Oktave  hat 
also  880  Hertz,  das  f  698.46  Hertz  und  so  weiter.  Wenn  Sie  die 
Werte  halbieren,  erhalten  Sie  die  Frequenzen  der  n&chsttieferen 
Oktave.  Das  a  hat  dort  zum  Beispiel  220  Hertz.  Tiefere  Fre- 
quenzen als  die  130.82  Hertz  des  c  aus  dieser  tiefsten  Oktave 
k6nnen  Sie  zum  Musikmachen  kaum  verwenden,  da  Sie  unter 
100  Hertz  keine  T6ne,  sondern  nur  noch  Brummen  oder 
Knacken  hdren.  Urn  Ihnen  die  ganze  Umrechnerei  zu  ersparen, 
gibt's  in  Tabelle  12  eine  Ubersicht  iiber  die  gebrauchiichsten 
Notenwerte. 


Tonbezeichnung,     Frequenz  Tonbezeichnung,      Frequenz 

Oktave  Nummer      in  Hertz  Oktave  Nummer      in  Hertz 


c.l 

130.82 

c,3 

523.28 

d,l 

146.83 

d,3 

587.28 

e,l 

164.82 

e,3 

659.28 

f.l 

174.62 

f.3 

698.48 

g.l 

196.00 

g.3 

784.00 

a,l 

220.00 

a,3 

880.00 

h,l 

246.94 

h,3 

987.76 

c,2  261.63  c,4  1046.52 


d,2 

293.66 

d,4 

1174.52 

e,2 

329.63 

e,4 

1318.52 

f,2 

349.23 

f.4 

1396.92 

8.2 

392.00 

g,4 

1568.00 

a,2 

440.00 

a,4 

1760.00 

h,2 

493.88 

h,4 

1975.52 

c,3  523.25  c,5  2093.00 

Tabelle  12:        Noten  und  Frequeneen  fUr  den  SOUND -Befehl 
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Das  c  mit  2093.00  Hertz  ist  schon  ziemlich  hoch.  Hflhere  Fre- 
quenzen  werden  Sie  fur  Ihre  Musik  auch  kaum  benutzen. 

Jetzt  kflnnten  Sie  die  Noten  aus  der  DATA-Zeile  unserer  Kost- 
probe  herausfinden,  indem  Sie  die  angegebenen  Frequenzen  in 
unserer  Tabelle  suchen.  Beim  "Komponieren"  von  Musik  geht's 
genau  umgekehrt:  Sie  kennen  die  Note  und  suchen  die  Frequenz. 

Fehlen  Ihnen  nur  noch  Angaben  uber  die  Tondauer.  Ein  Musi- 
ker  gibt  die  Lfcnge  eines  Tons  nicht  in  Sekunden,  sondern  in 
Zeittakten  an.  Und  solchen  Zeittakten  entspricht  die  L&ngen- 
angabe  im  SOUND-Befehl.  Ziemlich  genau  18  Zeittakte  ent- 
sprechen  einer  Sekunde.  In  Tabelle  13  die  ganz  exakten  Werte: 


LSnge  in 

Wert  im 

Sekunden 

SOUND-Befehl 

0.1 

1.8 

0.2 

3.6 

0.4 

7.3 

0.5 

9.1 

0.6 

10.9 

0.8 

14.6 

1.0 

18.2 

2.0 

36.4 

3.0 

54.6 

4.0 

72.8 

Tabelle  13:            Tonl&naen  in 

Sekunden  und  die  sugehi 

Anhand  dieser  Tabelle  kdnnen  Sie  jede  Toniange  errechnen. 
Wenn  Sie  3.5  Sekunden  brauchen,  addieren  Sie  einfach  den  Wert 
fur  3.0  und  den  Wert  fur  0.5  Sekunden:  54.6  +  9.1  =  63.7.  Eine 
L&ngenangabe  von  63.7  erzeugt  also  einen  Ton  von  dreieinhalb 
Sekunden  Dauer.  In  der  Kostprobe  haben  wir  die  Tonl&ngen 
nach  Gefuhl  angegeben.  Experimentieren  Sie  ruhig  ein  wenig 
mit  den  Tempi  in  unserem  Programm. 
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Und  wenn  Sie  Lust  haben,  kSnnen  Sie  sich  ja  jetzt  mal  an  die 
^Composition  von  "Alle  meine  Entchen"  oder  (fiir  Fortgeschrit- 
tene)  Beethovens  Fiinfter  machen. 


7.3        As  Time  goes  by  -  SOUND  WAIT  und  SOUND  RESUME 

Der  SOUND-Befehl  schreibt  die  erzeugten  T6ne  in  eine  Warte- 
schlange. Ein  Ton  nach  dem  anderen  wird  gespielt.  Erst  wenn 
ein  SOUND-Befehl  beendet  ist,  kommt  der  nSchste  Ton  dran. 
Das  Ganze  l&uft  ubrigens  wieder  im  Hintergrund  ab:  Wahrend 
der  Amiga  Musik  macht,  kann  sich  AmigaBASIC  schon  wieder 
ganz  anderen  Problemen  widmen.  Fur  eine  stSndige  Musik  - 
berieselung  genugt  es,  hie  und  da  ein  paar  neue  Tflne  in  die 
Warteschlange  zu  schreiben.  Bitte  nicht  zu  viele,  denn  jeder  Ton 
kostet  Speicherplatz.  Wenn  Sie  eine  ganze  Partitur  auf  einmal 
runterspielen  wollen,  erhalten  Sie  schon  recht  friih  im  ersten 
Satz  einen  "Out  of  memory"-Error. 

Wie  aber  kann  man  es  erreichen,  daB  mehrere  Stimmen  gleich- 
zeitig  spielen?  Wir  haben  ja  vorhin  gesagt,  daB  zur  selben  Zeit 
bis  zu  vier  T6ne  erklingen  konnen.  Dazu  brauchen  Sie  einen 
Befehl,  der  die  T6ne  anhait  und  nicht  sofort  zum  Spielen  frei- 
gibt:  SOUND  WAIT.  Alle  nun  folgenden  SOUND-Befehle  Iaufen 
auf,  und  bleiben  zunSchst  gespeichert.  Folgt  dann  der  Befehl 
SOUND  RESUME,  wird  die  Warteschlange  entriegelt,  und  alle 
Tdne  werden  gespielt.  Und  zwar  nach  folgender  Regel:  Tone, 
die  den  gleichen  Kanal  benutzen,  kommen  hintereinander  dran. 
Tflne  auf  verschiedenen  Kanaien  gleichzeitig.  Probieren  wir  das 
mal  aus: 

sound  wait 
sound  440,10 
sound  880,10 
sound  resume 

Die  beiden  Tone  werden  hintereinander  gespielt,  weil  sie  beide 
den  Kanal  0  benutzen. 
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sound  wait 
sound  261 .63,36, ,0 
sound  329.63,36,, 1 
sound  392,36,, 2 
sound  resume 


Dieser  Dreiklang  erklingt  gleichzeitig  (sollte  ein  Dreiklang 
auch...),  weil  jeder  Ton  einen  anderen  Kanal  benutzt.  Wenn  Sie 
Musikstucke  komponieren,  bei  denen  zu  unterschiedlichen  Zei- 
ten  unterschiedliche  Anzahlen  an  Tflnen  erklingen,  mussen  Sie 
die  unbenutzen  Kanale  mit  0-LautstSrken  besetzen,  damit  die 
richtigen  T6ne  beieinander  bleiben.  Eine  Skizze  verdeutlicht  das: 


1.  Ton 

2.  Ton      8.  Ton 

4.  Ton 

5.  Ton 

6.  Ton      7.  Ton 

Kanal  0 

523.25 

784            698.48 

659.28 

587.28 

1046.52     784 

Kanal  1 

659.28 

987.76      0 

0 

0 

1318.52    987.76 

Kanal  2 

784.00 

1174.52    0 

0 

0 

1568          1174.52 

Kanal  3 

- 

- 

- 

- 

- 

Wiirden  Kanal  1  und  2  beim  dritten  bis  funften  Ton  nicht  mit 
0-T6nen  besetzt,  wiirde  der  6.  Ton  dieser  beiden  Kanale  bereits 
zusammen  mit  dem  3.  Ton  des  ersten  Kanals  erklingen.  Nur  die 
Ruhe!  Lesen  Sie  diesen  Satz  noch  mal  langsam  durch  und  ver- 
gleichen  Sie  die  genannten  T6ne  mit  der  Skizze,  dann  wird's 
klar.  Wollen  Sie  sich  das  Ergebnis  mal  anhdren?  Schreiben  Sie 
das  Programm  am  besten  ins  LIST-Window  oder  laden  Sie  es 
von  Diskette  (,'StarWars3stimmH). 

SOUND  WAIT 

Lesen: 

READ  Freq,Oauer,Lautst, Kanal 

IF  Freq=-1  THEN  Spielen 

SOUND  Freq,Dauer,Lautst, Kanal 
GOTO  Lesen 

Spielen: 

SOUND  RESUME 
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DATA  523.23,15,127,0,  659-28,15,96,1,  784,15,96,2 

DATA  784.15,15,222,0,  987.76,15,180,1,  1174.52,15,180,2 

DATA  698.48,6,127,0,  0,6,0,1,  0,6,0,2 

DATA  659.28,6,127,0,  0,6,0,1,  0,6,0,2 

DATA  587.28,6,127,0,  0,6,0,1,  0,6,0,2 

DATA  1046.52,15,255,0,  1318.52,15,180,1,  1568,15,180,2 

DATA  784,24,180,0,  987.76,24,160,1,  1174.52,24,160,2 

DATA  -1,-1,-1,-1 


Klingt  gut,  nicht?  Die  DATAs  entsprechen  genau  der  Stim- 
menzuteilung  aus  der  Skizze  von  oben.  Die  'Lesen:'-Schleife  liest 
alle  Werte  fur  den  SOUND-Befehl  ein  und  SOUND  schreibt  sie 
in  die  Noten-Warteschlange.  Wenn  als  Frequenz  der  Wert  -1 
eingelesen  wurde,  erkennt  das  Programm,  daB  nun  alle  DATAs 
beendet  sind.  Sollte  Ihnen  die  Stimmlage  der  Melodie  zum  Mit- 
singen  oder  Genie/Jen  zu  hoch  sein,  teilen  Sie  die  Frequenz  nach 
dem  Lesen  einfach  durch  2: 

SOUND  Freq/2,Dauer,Lautst,Kanat 

Schon  spielt  sich  die  ganze  Sache  eine  Oktave  tiefer  ab.  Von 
noch  tieferen  oder  h6heren  Frequenzen  raten  wir  jedoch  ab. 

Mit  diesen  Befehlen  steht  Ihnen  jetzt  schon  eine  recht  groBe 
Spielwiese  fur  eigene  Kompositionen  zur  Verfugung.  Aber  es 
kommt  noch  toller. 


7.4        Horchet,  wie  es  klinget  -  ein  biBchen  Ton-Theorie 

Bevor  wir  die  weiteren  Mdglichkeiten  der  Musikerzeugung  in 
AmigaBASIC  besprechen,  sollten  Sie  ein  paar  technische 
Grundlagen  erfahren,  damit  Sie  das,  was  wir  danach  erkiaren, 
besser  und  leichter  verstehen. 

DaB  jeder  Ton  letztlich  eine  Luftschwingung  ist,  wissen  Sie 
schon.  Jedes  GerSt,  das  auf  irgendeine  Art  Musik  erzeugt  oder 
wiedergibt,  muB  also  eine  Schwingung  produzieren.  Ein  Musik  - 
instrument  ubertragt  die  Schwingung  einer  Saite  (Gitarre,  Geige, 


542 AmigaBASIC 


Klavier)  oder  Lufterschiitterungen  (Trompete,  Trommeln)  auf 
die  Umgebung.  Stereoanlagen  und  Computer  verwenden  die 
Membran  eines  Lautsprechers  zur  Schwingungserzeugung.  Zur 
Ubermittlung.  der  Tonsignale  sendet  der  Verstarker  an  den 
Lautsprecher  ein  Stromsignal,  das  abhangig  von  der  Schwingung 
starker  oder  schw&cher  wird.  Die  Eigenschaften  eines  Tons  han- 
gen  von  der  Beschaffenheit  der  Schwingung  ab.  Um  sich  Luft- 
schwingungen  besser  vorstellen  zu  kdnnen,  vergleicht  man  sie 
mit  Wellen:  Ahnlich  wie  eine  Wasseroberfl&che  auf  und  ab 
schwingt,  bewegen  sich  auch  die  Luftschichten. 

Eine  typische  Wellenform  fur  Tdne  ist  die  Sinuskurve.  Ja  richtig 
-  genau  die  Sinuskurve,  die  uns  schon  im  Grafik-Kapitel 
tatkraftig  unterstutzt  hat.  Spricht  man  von  einer  "Sinuswelle"  und 
meint  dabei  Tdne,  bedeutet  das,  daB  die  Schwingung  wie  die 
Werte  der  Sinusfunktion  gleichmaBig  an-  und  absteigt.  Aller- 
dings  ziemlich  schnell.  Fiir  unseren  Kammerton  a  zum  Beispiel 
440mal  pro  Sekunde.  Schauen  Sie  sich  mal  Bild  19  an.  Diese  Si- 
nuskurve steht  fur  eine  komplette  Schwingung:  Die  Welle  be- 
ginnt  auf  H6he  der  Mittellinie.  Sie  fallt  ab,  steigt  wieder  an, 
durchquert  die  Mittellinie,  steigt  weiter  an,  f&llt  wieder  ab,  und 
in  dem  Augenblick,  in  dem  sie  wieder  die  Mittellinie  erreicht, 
ist  die  Schwingung  beendet.  (Auch  wenn  es  sich  so  anhort:  Das 
ist  keine  Ubertragung  eines  FuBbalianderspiels,  sondern  Ton- 
theorie...)  440mal  in  einer  Sekunde  muB  diese  Schwingung  pas- 
sieren,  damit  wir  ein  'a'  horen.  Die  Frequenz  gibt  die  Anzahl 
der  Schwingungen  pro  Sekunde  an.  Je  hflher  dieser  Wert,  um  so 
hoher  hdren  wir  den  Ton. 
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Bild  19: 


Eine  Sinusschwingung 


Unterhalb  einer  bestimmten  Grenze,  sie  liegt  in  der  Gegend  von 
20  Hertz,  empfinden  wir  eine  Schwingung  nicht  mehr  als  Ton. 
Das  ist  auch  gut  so,  sonst  wiirden  wir  jeden  Luftzug  und  jede 
Luftbewegung  hflren.  Nur  wenn  die  Schwingung  sehr  groB  ist, 
h6ren  wir  doch  etwas.  Zum  Beispiel  den  Knall,  wenn  jemand 
eine  Tur  zuschlagt.  Die  H6he  eines  Tons  hangt  also  von  der  Fre- 
quenz  der  Schwingung  ab. 


Auch  die  Lautstarke  hangt  von  der  Schwingung  ab:  Je  starker 
eine  Welle  schwingt,  umso  lauter  hdren  wir  sie.  Die  StSrke  einer 
Schwingung,  also  der  Abstand  des  hdchsten  Punkts  der  Welle  zur 
Grundlinie  nennt  der  Fachmann  "Amplitude".  Die  Amplitude  der 
Schwingung  ist  fur  den  Lautstarkeverlauf  des  Tons  zustSndig. 
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Auch  andere  Eigenschaften  der  Welle  beeinflussen  den  Ton:  Fur 
die  Klangfarbung,  also  den  typischen  Klang  eines  Instruments 
Oder  eines  Gerauschs,  ist  die  Form  der  Welle  ausschlaggebend. 
Daruber  sprechen  wir  ausfuhrlich  im  n&chsten  Kapitel. 

Um  eine  Tonwelle  zu  speichern  und  spSter  wiederzugeben,  be- 
nutzte  man  bis  vor  kurzem  ausschlieBlich  die  sogenannte  "ana- 
logeM  Tonaufzeichnung:  Beim  Abspielen  einer  Schallplatte  wird 
die  Abtastnadel  in  Schwingungen  versetzt,  die  dann  an  den  Ver- 
starker  weitergegeben  werden.  Bei  Tonbandern  und  Cassetten 
liest  der  Tonkopf  magnetische  Signale,  deren  Starke  sich  andert. 
Seit  einigen  Jahren  gibt  es  aber  ein  anderes,  moderneres  Kon- 
zept,  das  seinen  Weg  in  Form  von  CDs  (Compact  Disks)  und 
Synthesizern  auch  in  die  Privathaushalte  gefunden  hat:  Die  digi- 
tale  Tonaufzeichnung.  "Digital"  hat  mit  Computern  und  Bits  zu 
tun.  Wen  wunderfs  dann,  daB  dieses  Konzept  auch  im  Amiga 
benutzt  wird.  Wie  es  funktioniert?  Nun,  was  kann  sich  der 
Amiga  besser  merken  als  Zahlen.  Bei  digitaler  Tonerzeugung, 
-speicherung  und  -wiedergabe  werden  analoge  Schwingungen 
durch  digitale  Werte  vertreten. 

Das  Prinzip  ist  eigentlich  ganz  einfach.  Schauen  wir  uns 
zunachst  die  digitale  Tonaufzeichung  bzw.  -speicherung  an,  wie 
sie  zum  Beispiel  bei  der  Aufnahme  von  CDs  verwendet  wird: 
Mehrmals  pro  Sekunde  wird  der  aktuelle  Stand  der  Schwingung 
abgetastet  und  in  eine  Zahl  umgerechnet.  Je  h6her  die  Ampli- 
tude, desto  grfiBer  die  Zahl.  Findet  die  Abtastung  haufig  genug 
statt,  entsteht  eine  Reihe  von  Zahlen,  die  den  Verlauf  der  Welle 
recht  gut  wiedergibt.  Und  zwar  sowohl  die  Frequenz  (Tonh6he) 
als  auch  die  AmplitudengrdBe  (Lautstarke)  und  die  Wellenform 
der  Schwingung. 

Das  Verfahren,  Schwingungen  durch  Zahlen  zu  reprasentieren, 
heiBt  Sampling.  ("Sample"  bedeutet  auf  Deutsch  "Probe,  Stich- 
probe".  Sampling  ist  das  Erstellen  von  Stichproben.)  Wie  realis- 
tisch  ein  durch  Sampling  erzeugter  Ton  klingt,  hangt  in  erster 
Linie  von  der  Sampling-Rate  ab.  Die  Sampling- Rate,  also  die 
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Anzahl  an  Amplituden-Abfragen,  kann  beim  Amiga  bis  zu 
30000  Werte  pro  Sekunde  betragen.  Ein  CD-Plattenspieler  tastet 
mit  uber  40000  Werten  pro  Sekunde  ab. 

Bei  der  Wiedergabe  Oder  der  kunstlichen  Erzeugung  von  Musik 
lauft  der  Vorgang  genau  umgekehrt  ab:  Der  Chip  "Paula",  der 
unter  anderem  fur  die  Tonerzeugung  zustandig  ist,  wandelt  die 
digitalen  Werte,  die  irgendwo  im  Speicher  stehen,  in  analoge 
Stromsignale  urn.  Dazu  gibt  es  sogenannte  Digital/Analog- 
Wandler.  Das  sind  kleine  elektronische  Bauteile,  die  eine  digita- 
liserte  Zahl  (also  z.B.  ein  Byte)  einlesen  und  je  nach  GrdBe  der 
Zahl  einen  entsprechend  starken  Stromwert  erzeugen.  Dieser 
Strom  mufi  dann  nur  noch  zum  Tonausgang  des  Amiga  gelenkt 
werden,  schon  ist  ein  digitaler  Sound  erzeugt.  Und  weil  in  Paula 
vier  D/A-Wandler  eingebaut  sind,  stehen  uns  eben  auch  vier 
Tonkanale  zur  Verfugung. 


7.5        Platscher,  Platscher  -  Wellenformen 

Welche  Eigenschaften  einer  Welle  fiir  Lautstarke  und  Tonhohe 
verantwortlich  sind,  wissen  Sie  mittlerweile:  Die  Frequenz  steu- 
ert  die  Tonhohe,  die  Amplitude  ist  fur  die  Lautstarke  zustandig. 
Fast  noch  wichtiger  als  diese  beiden  Werte  ist  die  Wellenform. 
Sie  bestimmt  den  Klang  des  Tons.  Wenn  man  eine  Tonwelle,  die 
von  einem  Musikinstrument  oder  auf  irgendeine  andere  Weise 
erzeugt  wurde,  grafisch  darstellt,  sieht  man  fur  jeden  Ton-Ver- 
ursacher  sehr  charakteristische  Wellenformen.  Eine  Sinuswelle 
klingt  sehr  weich,  sehr  harmonisch.  Reine  Sinusschwingungen 
kommen  aber  in  der  Natur  nicht  vor.  Schlaginstrumente  (wie 
zum  Beispiel  eine  Trommel)  erzeugen  unregelmJLBige,  eckige, 
scharfe  Wellenformen. 

Je  h6her  die  Sampling-Rate  ist,  desto  besser  kann  der  Verlauf 
der  Original-Welle  nachgebildet  werden  und  desto  realistischer 
klingt  der  Ton.  Vielleicht  haben  Sie  schon  Programme  fur  Ihren 
Amiga  gesehen  (bzw.  gehdrt),  die  kurze  Musikpassagen  in  er- 
staunlich  guter  Qualitat  wiedergeben.  Solche  Programme  be- 
nutzen  eine  sehr  hohe  Samplingrate  und  spielen  nur  eine  kurze 
Passage    eines    digitalisierten    Musikstiicks.    Meist    reicht    schon 
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nach  wenigen  Sekunden  der  Speicherplatz  nicht  mehr  aus:  Selbst 
512  KByte  sind  in  dieser  Hinsicht  recht  wenig.  Eine  Compact 
Disk,  die  ca.  70  Minuten  akustisch  hochwertige  Musik  speichern 
kann,  hat  eine  Speicherkapazitit  von  550  MegaByte.  Trotz  dieser 
EinschrSnkungen  sind  die  MOglichkeiten  des  Amiga  auf  dem 
Gebiet  der  Musikerzeugung  beachtlich.  AmigaBASIC  anderer- 
seits  ist  recht  zuriickhaltend,  was  die  Unterstutzung  dieser  M6g- 
lichkeiten  betrifft.  Es  gibt  nur  zwei  Befehle  zur  Tonerzeugung: 
SOUND  und  WAVE.  Den  SOUND-Befehl  kennen  Sie  schon. 
Und  WAVE  erm6glicht  die  Verwendung  eigener  Wellenformen. 

Die  Wellenform,  die  von  AmigaBASIC  normalerweise  zur 
Tonerzeugung  verwendet  wird,  ist  eine  Sinuswelle.  In  alien  un- 
seren  Beispielen  hdrten  wir  bisher  nur  diese  Wellenform.  Wollen 
Sie  eine  andere  Wellenform  benutzen,  geben  Sie  einfach  ein 
Integerfeld  an,  das  mindestens  256  Elemente  enthait  und  in  dem 
die  gesampelten  Wellen  stehen.  Die  Zahlen  im  Feld  dOrfen  zwi- 
schen  -128  und  127  liegen.  Das  entspricht  einer  Analog/Digital- 
Auflosung  von  8  Bit:  Der  digitale  Wert,  der  bei  der  Umwand- 
lung  herauskommt,  ist  eine  8-Bit-Zahl. 

Zum  Vergleich:  Ein  CD-Plattenspieler  bietet  eine  Auflosung  von 
16  Bits.  Das  heiBt  aber  nicht,  daB  so  ein  CD- Player  doppelt  so 
gute  Ergebnisse  liefert  wie  der  Amiga:  Durch  verschiedene 
Tricks  in  Hard-  und  Software  klingt  die  Amiga-Tonerzeugung 
wesentlich  besser  als  man  aufgrund  der  technischen  Daten  er- 
warten  wiirde. 

Aber  zuruck  zu  WAVE:  Der  Wert  -128  im  Feld  bedeutet,  daB 
die  Welle  zum  gegenwiirtigen  Zeitpunkt  den  tiefsten  m6glichen 
Wert  unterhalb  der  Grundlinie  hat.  Und  127  ist  der  gr66te  posi- 
tive Wert  fur  die  Schwingung.  Wir  kSnnen  nun  ein  Programm 
Werte  fur  das  Integerfeld  ausrechnen  lassen  und  so  eigene  Wel- 
lenformen erzeugen,  die  AmigaBASIC  zur  Tonwiedergabe  ver- 
wendet. Stellt  sich  bloB  die  Frage,  wie  so  eine  Wellenform  aus- 
sehen  soil. 

Nun,  es  gibt  neben  Sinuswellen  noch  weitere  bekannte  und  be- 
liebte  Wellenformen,  die  recht  unterschiedliche  Ergebnisse  ha- 
ben.  Zuerst  ware  da  die  Dreiecks-Schwingung.  Sie  verHiuft  ahn- 
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lich  wie  die  Sinuswelle,  klingt  aber  scharfer,  weil  die  Schwin- 
gung  nicht  langsam  ihre  Werte  Sndert,  sondern  sehr  abrupt  um- 
kehrt.  Eine  grafische  Darstellung  dieser  Wellenform  sehen  Sie  im 
Bild  20. 


Sinus5chifinguii£      treieck- 

SGhtfinsunsr 


IRechtMlc-         Rauschen 


B'ld  20:  Verschiedene  Wellenformen 


Wir  wollen  das  Ganze  anhand  unseres  dreistimmigen  StarWars- 
Musikprogramms  ausprobieren.  Laden  Sie  es  bitte  und  geben  Sie 
den  folgenden  Programmteil  ganz  am  Anfang  ein.  Auf  der  Dis- 
kette hat  diese  Komposition  den  Namen  "SW.Dreieck". 


DIM  Dreieck%(256) 
FOR  x=0  TO  62 

a=a+2 

Dreieck%(x)=a 
NEXT  x 


548  AmigaBASIC 


FOR  x=63  TO  188 

a=a-2 

Dreieck%(x)=a 
NEXT  x 
FOR  x=189  TO  255 

a=a+2 

Dreieck%(x)=a 
NEXT  x 

WAVE  0,Dreieck% 
WAVE  l,Dreieck% 
WAVE  2,Dreieck% 

ERASE  DreieckX 


Das  Integerfeld  ,Dreieck%'  muB  zuniichst  dimensioniert  werden. 
Die  erste  FOR...NEXT-Schleife  erzeugt  die  Feldinhalte  fur  den 
Teil  der  Dreieckschwingung,  der  von  der  Grundlinie  zum  ersten 
(positiven)  Extremwert  reicht.  Die  zweite  Schleife  berechnet  die 
Werte  fur  den  Ruckfall  auf  den  untersten  Extremwert.  Und  das 
dritte  FOR...NEXT  sorgt  fur  den  Anstieg  zuriick  bis  zur  Grund- 
linie. Vergleichen  Sie  diese  Phasen  der  Dreieckswelle  bitte  mit 
der  Abbildung  in  Bild  20. 

Mit  dem  Befehl  WAVE  wird  das  Feld  'Dreieck%*  dann  der 
Reihe  nach  den  drei  verwendeten  Stimmen  zugewiesen.  Sie  k6n- 
nen  aber  auch  auf  jeder  der  vier  Amiga-Stimmen  eine  andere 
Wellenform  benutzen.  Die  Zuweisung  mit  WAVE  reserviert  je- 
der Stimme  einen  Speicherbereich,  aus  dem  sie  ihre  Sampling- 
Werte  lesen  kann.  Deshalb  hat  das  Feld  ,Dreieck%'  nach  der 
Zuweisung  mit  WAVE  jede  Existenzberechtigung  verloren,  wir 
ldschen  es  mit  ERASE.  Bei  groBen  oder  mehreren  Wellenform- 
Dateien  ist  das  wirklich  ratsam,  denn  sonst  wurde  viel  Speicher- 
platz  sinnlos  verschwendet. 

Wenn  das  Programm  muft,  werden  Sie  hSren,  daB  sich  die  T6ne 
jetzt  etwas  anders  anhoren.  Die  Wellenform  wird  auch  im 
Direktmodus  weiterverwendet.  So  kfinnen  Sie  im  BASIC-Window 
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noch  zusStzliche  Experimente  machen.  Beachten  Sie  bitte,  dali 
sogar  der  BEEP  sich  anders  anhdrt  als  vorher  -  auch  er  l^uft 
iiber  Tonkanal  0. 

Wenn  Sie  sich  jetzt  nach  Ihrem  guten  alten,  vertrauten  BEEP 
sehnen,  haben  wir  eine  gute  Nachricht  fur  Sie.  Geben  Sie  doch 
mal  ein: 

WAVE  0,SIN 

Durch  diesen  Befehl  wird  die  Wellenform  von  Kanal  0  auf  die 
Sinusschwingung  zuruckgesetzt.  SIN  ist  kein  Feld,  sondern  eine 
Option  des  WAVE-Befehls,  um  schnell  wieder  zur  Grundein- 
stellung  (eben  der  Sinuswelle)  zuruckzukommen. 

Die  n&chste  Wellenform,  die  wir  Ihnen  vorstellen  wollen,  heifit 
Rechteckschwingung.  Sie  besteht  nur  aus  Sprungen  von  einer 
Amplitude  zur  anderen.  Der  so  erzeugte  Klang  ist  etwas  holzern. 
Eine  grafische  Darstellung  finden  Sie  wieder  im  Bild  20.  Und 
wenn  Sie's  mal  hfiren  mflchten,  speichern  Sie  Ihre  Dreiecks- 
Version  bitte  ab  und  verbessern  Sie  den  Anfangsteil  des  Pro- 
gramms,  so  daB  das  folgende  Listing  dabei  herauskommt.  Oder 
laden  Sie  schlicht  und  einfach  "SW.Rechteck". 

DIM  Rechteck%(256) 
FOR  x=0  TO  127 

Rechteck%(x)=127 
NEXT  X 
FOR  X=128  TO  256 

Rechteck%(x)=-128 
NEXT  X 

WAVE  0,Rechteck% 
WAVE  1,Rechteck% 
WAVE  2,RechteckX 

ERASE  RechteckX 
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Der  restliche  Teil  bleibt  unver&ndert.  Eine  Rechteckwelle  ist 
sehr  einfach  zu  erzeugen:  In  die  erste  H&lfte  des  Datenfelds 
*Rechteck%'  lesen  wir  den  Maximalwert  127  und  in  die  zweite 
HSlfte  lesen  wir  -128  ein,  den  tiefstmflglichen  Wert.  Der  stan- 
dige  Wechsel  zwischen  diesen  beiden  Amplituden  erzeugt  die 
gewunschte  Schwingung.  Die  Abbildung  in  Bild  20  zeigt  natiir- 
lich  mehrere  Rechteckschwingungen,  nicht  nur  eine. 

Wenn  Sie  dieses  Programm  abspeichern,  geben  Sie  ihm  bitte 
einen  neuen  Namen,  vielleicht  "Rechteck". 

Als  dritten  und  letzten  im  Bunde  stellen  wir  Ihnen  noch  die 
Wellenform  "Rauschen"  vor.  Diese  Welle  folgt  uberhaupt  keinen 
festen  Regeln,  sie  ist  vielmehr  eine  Zufallsschwingung.  Dabei 
kommen  T6ne  heraus,  die  an  eine  elektrische  Klingel  oder  einen 
Wecker  erinnern.  Bei  tiefen  Frequenzen  kdnnen  Sie  damit  auch 
Explosionen  oder  ahnliche  Gerausch-Effekte  erzielen.  In  unse- 
rem  Bild  20  sehen  Sie  auch  eine  grafische  Darstellung  einer  ty- 
pischen  "RauschenM-Wellenform. 


DIM  Rauschen%(256) 
FOR  x=0  TO  256 

Rauschen%(x)=RND*255-128 
NEXT  x 

WAVE  0,Rauschert% 
WAVE  1,Rauschen% 
WAVE  2,Rauschen% 

ERASE  RauschenX 


Die  Formel  RND*255-128  erzeugt  Zufallszahlen  zwischen  -128 
und  127.  Das  ist  genau  der  Bereich,  den  wir  fur  unser  Feld 
'Rauschen%'  brauchen.  Auf  der  beiliegenden  Diskette  finden  Sie 
dieses  Beispiel  unter  "SW.Rauschen". 
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Jetzt  haben  Sie  Beispiele  fur  drei  verschiedene  selbst  erzeugte 
Wellenformen  kennengelernt.  Die  Dreieckswelle  klingt  etwas 
scharfer,  transparenter  als  die  Sinuswelle.  Und  die  Rechteck- 
welle  klingt  hdlzern,  aber  klar.  Interessanterweise  sind  tiefe 
T5ne,  die  in  den  Wellenformen  "RechteckM  und  "Rauschen"  ge- 
spielt  werden,  besser  zu  hdren  als  dieselben  Frequenzen  bei  ei- 
ner  Sinuswelle  oder  einer  Dreieckswelle. 

Sicher  mflchten  Sie  jetzt  verschiedene,  eigene  Wellenformen  aus- 
probieren.  Um  Ihnen  dieses  Ausprobieren  zu  erleichtern,  haben 
wir  mal  wieder  ein  Utility  fur  Sie  geschrieben.  Es  ist  auch 
gleichzeitig  das  letzte  Utility,  das  wir  in  diesem  Buch  zusammen 
schreiben  werden.  Na,  na,  Sie  werden  doch  nicht  schon  in  Ab- 
schiedsstimmung  geraten?  Das  w&re  dann  doch  noch  etwas 
verfriiht. 


7,6        Ausklang  -  das  Synthesizer-Utility 

Unser  Synthesizer-Programm  ist  mit  Sicherheit  kein  Ersatz  fur 
Musikprogramme  wie  "Musicraft",  "Instant  Music"  oder  das  "De- 
luxe Music  Construction  Set".  T6ne  zu  erzeugen,  die  auch  nur 
ansatzweise  mit  den  Ergebnissen  solcher  Programme  vergleichbar 
wSren,  ist  mit  den  eingeschrfcnkten  musikalischen  Fahigkeiten 
von  AmigaBASIC  unmflglich. 

Das  folgende  Programm  ist  dafiir  gedacht,  eigene  Wellenformen 
zu  erzeugen.  Sie  kflnnen  sie  ausprobieren,  und  wenn  Sie  einen 
sch6nen  Klang  gefunden  haben,  das  WAVE-Datenfeld  abspei- 
chern  und  spater  in  Ihren  eigenen  Programmen  benutzen.  Das 
Programm  finden  Sie  unter  dem  Namen  "Synthesizer"  in  der 
"Musik"-Schublade  unserer  Diskette.  Sie  kflnnen  es  naturlich 
auch  selbst  abtippen. 

Vorbereitungen: 
DIM  UeUe%<256) 

OEF  FNYWeUe%(a)=ABS(Wetle%(a)-128) 
SCREEN  1,320,200,2,1 
WINDOW  2,»Wellenform»,(0,0)-(256f63),22,1 
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FOR  x=0  TO  256 

Welle%(x)=127*SIN(x/20) 
NEXT  x 

WINDOW  3,»Funktionen",(195,80)-(310,175),22,1 
WINDOW  OUTPUT  3 

LINE  (5,5)-(55,30),1,b 
PSET  (5,17) 
FOR  x=0  TO  48 

LINE  -((x+5),17-10*SIN(x/3.8)) 
NEXT  x 

LINE  (59,5)-(110,30),1,b 

LINE  <59,18)-<67,7>  :  LINE  -(83,27) 

LINE  -(99,7)  :  LINE  -(107,18) 

LINE  (5,35)-(55,60),1,b 

LINE  (7,47)-(7,37) 

LINE  -(18,37)  :  LINE  -(18,57) 

LINE  -(30,57)  :  LINE  -(30,37) 

LINE  -(41,37)  :  LINE  -(41,57) 

LINE  -(53,57)  :  LINE  -(53,47) 

LINE  (59,35)-(110,60),1,b 

LOCATE  6,9  :  PRINT  "Losch" 

LINE  (5,65)-(55,90),1,b 

LOCATE  10,2  :  PRINT  "Save" 

LINE  (59,65)-(110,90),1,b 

LOCATE  10,9  :  PRINT  "Load" 

GOSUB  WelleZeigen 

ON  HOUSE  GOSUB  Maussteuerung 
MOUSE  ON 

WINDOW  3 

Eingabe: 
a$=INKEY$ 
f=0 
IF  a$=""  THEN  Eingabe 
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IF  a$=CHR$<9)  THEN  f =261. 63 

IF  a$="1"  THEN  f=277.18 

IF  a$=»q»  THEN  f =293. 66 

IF  a$=»2"  THEN  f=311.13 

IF  a$=»w"  THEN  f =329. 63 

IF  a$="e"  THEN  f =349. 23 

IF  a$=»4"  THEN  f =369. 99 

IF  a$="r"  THEN  f=392.00 

IF  a$=»5"  THEN  f=415.3 
IF  a$=»t»  THEN  f =440. 00 
IF  a$=»6»  THEN  f =466. 16 
IF  a$=»z»  THEN  f=493.88 
IF  a$=»u»  THEN  f =523. 25 
IF  a$="8"  THEN  f=554.37 
IF  a$="i"  THEN  f=587.58 
IF  a$="9"  THEN  f =622. 25 
IF  a$="o»  THEN  f =659. 28 
IF  a$="p»  THEN  f =698. 48 
IF  a$=»B»  THEN  f =739. 99 
IF  a$=»u»  THEN  f=784 

IF  a$= THEN  f=830.61 

IF  a$=»+»  THEN  f =880. 00 
IF  a%=»\»   THEN  f =932. 33 
IF  a$=CHR$(13)  THEN  f=987.76 
IF  a$=CHR$(8)  THEN  f=1046.52 
IF  f=0  THEN  Eingabe 

Spiel en: 

Laut=127  :  if  f=0  then  1=0 

SOUND  WAIT 

SOUND  f,3,Laut,0 

SOUND  f,3,Laut,1 

SOUND  RESUME 
GOTO  Eintesen 

Maussteuerung: 

IF  WINDOW(0)=2  THEN  WellenformAendern 
IF  WINDOW(0)=3  THEN  FunktionAendern 
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We U enf ormAendern : 
WINDOW  2 
WHILE  MOUSE(0)<0 

x=MOUSE<5) 

IF  x>256  THEN  GOSUB  WelleZeigen  :  RETURN 

IF  x<1  THEN  x=1 

y=M0USE(6) 

IF  y>63  THEN  GOSUB  WelleZeigen  :  RETURN 

LINE  (x-1,FNYWelle(x-1)/4)-(x,FNYWelle(x>/4),0 

LINE  (x-1,FNYWelle(x-1)/4)-(x,y),1 

Welle%(x)=127-(y*4) 
WEND 

GOSUB  WelleZeigen 
RETURN 

FunktionAendern: 
Test=MOUSE(0) 
x=MOUSE(3) 
y=MOUSE(4) 

IF  x>4  AND  x>56  AND  y>4  AND  y<31  THEN 
WINDOW  3  :  PAINT  (7,6), 3,1 
FOR  x=0  TO  256 

Welle%(x)=127*SIN(x/20) 
NEXT  x 

GOSUB  WelleZeigen 
WINDOW  3  :  PAINT  (6,6), 0,1 
END  IF 

IF  x>58  AND  x<111  AND  y>4  AND  y<31  THEN 
WINDOW  3  :  PAINT  (60,6),3,1 
FOR  x=0  TO  256 

IF  x<41  then  Welle%(x)=x*3  :  a=x*3 

IF  <x>=41  AND  x<126)  OR  (x>=210)  THEN  a=a-2.57  :  Welle(x)=a 
IF  x>=126  AND  y<210  THEN  a=a+2.57  :  Welle%(x)=a 
NEXT  x 

GOSUB  WelleZeigen 
WINDOW  3  :  PAINT  (60, 6), 0,1 
END  IF 

IF  x>4  AND  x<61  AND  y>34  AND  y<61  THEN 
WINDOW  3  :  PAINT  (6,36),3,1 
FOR  x=0  TO  256 
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IF  x<64  OR  <x>=128  AND  x<191)  THEN  Wei le%(x)=127 
IF  (x>=64  AND  x<128)  OR  x>192  THEN  Welle%(x)=-128 
NEXT  x 

GOSUB  Wellezeigen 
WINDOW  3  :  PAINT  (6, 36), 0,1 
END  IF 

IF  x>58  AND  x<111  AND  y>34  AND  y<61  THEN 
WINDOW  3  :  PAINT  (60, 36), 3,1 
FOR  x=0  TO  256 

Welle%(x)=0 
NEXT  x 

GOSUB  WelleZeigen 
WINDOW  3  :  PAINT  (60, 36), 0,1 
END  IF 

IF  x>4  AND  x<61  AND  y>64  AND  y<91  THEN 
WINDOW  3  :  PAINT  (6, 66), 3,1 
GOSUB  EingabeName 

IF  Naro$=""  THEN  PAINT  (6, 66), 0,1  :  RETURN 
OPEN  Nam$  FOR  OUTPUT  AS  1 
FOR  X=0  TO  256 

PRINT  #1,CHR$(127-Welle%(x)); 
.  NEXT  x 
CLOSE  1 

WINDOW  3  :  PAINT  (6,66),0,1 
END  IF 

IF  x>58  AND  x<111  AND  y>64  AND  y<91  THEN 
WINDOW  3  :  PAINT  (62, 66), 3,1 
GOSUB  EingabeName 

IF  Nam$=»»  THEN  PAINT  (62, 66), 0,1  :  RETURN 
OPEN  Nan*  FOR  INPUT  AS  1 
FOR  x=0  TO  256 

Wei te%(x)=127-ASC( INPUT$(1 , 1 )) 
NEXT  x 
CLOSE  1 

WINDOW  3  :  PAINT  (62, 66), 0,1 
END  IF 
RETURN 

WelleZeigen: 
WINDOW  2  :  CLS 
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FOR  x=1  TO  256 

LINE  <x-1,FNYWeUe(x-1)/4)-<x,FNYWeUe(x)/4>,1 
NEXT  X 
WINDOW  3 
WAVE  0,Welte% 
WAVE  1,Uelle% 
RETURN 

EingabeName: 

WINDOW  4,"Bitte  Dateinamen  eingeben:",<5,100)-(300,110),0,1 

CLS  :  LINE  INPUT  Nan* 

IF  NartS=  "=»  OR  NantS=  «*»  THEN  Nem$=Altname$ 

IF  NamSo'1"  THEN  Altnam3$=Nant» 

WINDOW  CLOSE  4  :  WINDOW  3 
RETURN 


Wenn  Sie  es  tatsachlich  selbst  abgetippt  haben,  speichern  Sie  das 
Programm  bitte  gleich  ab. 

Dann  gehen  wir  daran,  die  einzelnen  Programmfunktionen  zu 
besprechen.  In  unseren  bekannten  und  beliebten  'Vorbereitun- 
gen:*  wird  zunfcchst  das  Integerfeld  'Welle'V  dimensioniert.  Wir 
verwenden  257  Einzelwerte  fur  unsere  Welle. 

Der  nSchste  Befehl  ist  gleich  wieder  ein  Unbekannter:  DEF  FN. 
Wir  haben  ihn  bisher  noch  nicht  gebraucht,  aber  in  Program- 
men,  die  viele  Berechnungen  durchfuhren  miissen,  ist  er  sehr 
hilfreich.  DEF  FN  ("Define  Function"  -  "Definiere  eine  Funk- 
tion") dient  dazu,  eigene  BASIC-Funktionen  festzulegen. 
y=SIN(x)  ist  eine  Funktion,  die  fest  in  AmigaBASIC  eingebaut 
ist.  Wenn  Sie  aber  zum  Beispiel  innerhalb  eines  Programms  oft 
die  Funktion  y=SIN(x)*COS(x)+0.5*(SIN(x)-COS(x))  benfitigen, 
w&re  es  unzweckmSBig  und  unubersichtlich,  jedesmal  den  gan- 
zen  langen  Ausdruck  einzutippen.  Sie  kOnnen  sich  stattdessen 
mit  DEF  FN  eine  eigene  Funktion  definieren.  Fur  unser  Beispiel 
muBte  am  Beginn  des  Programms  stehen: 

DEF  FNHallo(x)=SIN(x)*COS(x)+0.5*(SIN(x)-COS(x)).  Von  da  an 
kdnnen  Sie  im  Programm  die  Funktion  'FNHallo(x)'  verwenden. 
Der  Name  der  Funktion  ist  'Hallo1.  Urn  so  ein  'Hallo*  von  nor- 


Tone  und  Musik  557 


malen  Variablen  unterscheiden  zu  kflnnen,  steht  das  FN  davor. 
Wenn  Sie  PRINT  FNHallo(l)  schreiben,  sieht  AmigaBASIC  in 
der  Funktionsdefinition  nach  und  rechnet  die  eingegebene  For- 
mel  fur  den  Wert  1  aus. 

In  der  Funktionsdefinition  geben  Sie  hinter  dem  Funktions- 
namen  eine  oder  mehrere  Variablen  an.  Dann  kommt  die  For- 
mel,  die  mit  den  Werten  dieser  Variablen  durchgefuhrt  werden 
soil.  Den  Variablennamen  in  der  Definitionszeile  kSnnen  Sie  im 
Programm  normal  verwenden,  er  dient  bloB  dazu,  die  Funktion 
festzulegen.  Noch  nicht  ganz  verstanden? 

Nehmen  wir  ein  ganz  einfaches  Beispiel: 

DEF  FNVerdopple(x)  =  2*x.  Wenn  irgendwo  im  Programm 
'FNVerdopple(2)'  steht,  schaut  AmigaBASIC  in  der  DEF  FN- 
Zeile  nach  der  Definion  von  'FNVerdopple1  und  weiB  dann: 
"Wenn  hinter  'FNVerdopple'  ein  Wert  steht  wie  das  x  in  der 
DEF  FN-Zeile,  muB  ich  diesen  Wert  verdoppeln  wie  das  x  in 
der  DEF  FN-Zeile."  Geben  Sie  eine  Funktion  an,  die  nicht  mit 
DEF  FN  definiert  wurde,  erhalten  Sie  einen  "Undefined  user 
function"-Error:  "Nicht  definierte  Benutzer-Funktion." 

In  unserem  Synthesizer-Programm  benutzen  wir  die  Funktion 
'FNYWelle'.  Sie  rechnet  die  Werte,  die  wir  zur  Felddefinition 
verwenden,  in  Werte  zwischen  0  und  255  um.  Zur  Erinnerung: 
WAVE-Felder  mussen  Werte  zwischen  -128  und  +127  beinhal- 
ten.  Wenn  wir  von  so  einem  Wert  128  abziehen  und  das  Vor- 
zeichen  weglassen,  bekommen  wir  eine  Zahl  zwischen  0  und 
255.  Auf  BASIC:  DEF  FNYWelIe(a)=ABS(Well%(a)-128). 

Unser  Programm  lauft  auf  einem  niedrigaufldsenden  Screen  (320 
mal  200  Punkte).  Dort  erzeugen  wir  zunSchst  ein  Window,  das 
Window  2  ("Wellenform"),  in  dem  Sie  die  Wellenform  festlegen 
k&nnen. 

Als  Grundeinstellung  benutzt  das  Synthesizer-Programm  eine 
Sinuswelle.  Sie  unterscheidet  sich  aber  etwas  von  der  Sinuswelle, 
die  AmigaBASIC  normalerweise  benutzt.  Die  Werte,  die  fur  un- 
sere  Sinuswelle  in  ,Welle%'  stehen  mussen,  errechnet  die 
FOR...NEXT-Schleife  im  'Vorbereitungen^-Teil. 
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Das  Window  beinhaltet  die  Kastchen,  in  die  Sie  fur  bestimmte 
Funktionen  klicken  miissen.  Es  gibt  ein  Kastchen,  urn  eine 
Sinuswelle  als  Wellenform  zu  iibernehmen,  ein  Kastchen  fur  eine 
Dreieckswelle  und  ein  Kastchen  fur  eine  Rechtecks-Welle.  Wie 
diese  Wellen  aussehen  mussen,  wissen  Sie  ja  schon.  Wir  erzeugen 
die  Symbole  dafiir  mit  LINE-Befehlen.  Fiir  "Sinus"  wird  im  er- 
sten  Kastchen  eine  kleine  Sinuskurve  gezeichnet.  Fiir  "Dreieck" 
malen  wir  aus  vier  LINE-Befehlen  eine  Dreieckwelle.  Bei 
"Rechteck"  brauchen  wir  insgesamt  neun  Linien.  Aufler  diesen 
Kastchen  gibt  es  noch  ein  Kastchen  fiir  Lflschen  der  Welle,  eines 
zum  Speichern  und  eines  zum  Lesen  von  Wellendaten. 

1st  der  Aufbau  des  Windows  3  erledigt,  rufen  wir  'WelleZeigen:' 
auf,  das  im  Window  2  die  aktuelle  Wellenform  (am  Programm- 
anfang  eben  eine  Sinuswelle)  darstellt.  Das  Ausgabewindow  fiir 
unser  Programm  ist  bei  alien  anderen  Funktionen  Window  3. 
Wahrend  Sie  T6ne  spielen,  mussen  Sie  dieses  Window  aktiviert 
haben.  AmigaBASIC  kann  Tastatureingaben  ja  immer  nur  einem 
Window  zuordnen,  und  dafiir  haben  wir  eben  Window  3  ausge- 
wahlt.  Vorher  wird  ubrigens  noch  Event  Trapping  fiir  die  Maus 
aktiviert. 

Der  Programmteil  "Eingabe:"  checkt  die  Tastatureingaben  ab.  Wir 
haben  in  der  obersten  und  zweiten  Tastaturreihe  eine  Klaviatur 
simuliert.  Die  Tasten  <TAB>,  <Q>,  <W>,  <E>,  und  so  weiter  bis 
<+>,  <RETURN>  und  <BACKSPACE>  erzeugen  die  Grundtdne, 
die  daruberliegenden  Tasten  entsprechen  den  schwarzen  Tasten 
auf  dem  Klavier.  Abhangig  von  *a$\  dem  eingegeben  String, 
weisen  wir  T  eine  Frequenz  zu.  Die  Frequenzen  der  Grundt5ne 
kennen  Sie  ja  aus  Tabelle  12.  Die  Frequenzen  der  Zwischentdne 
haben  wir  zusatzlich  ausgerechnet,  Sie  sehen  die  Werte  im 
Programmlisting. 

Aus  Werten  wie  440.00  macht  AmigaBASIC  ein  440!.  Aber  das 
ist  mit  Ihrem  Wissen  iiber  einfach  genaue  FlieCkommazahlen 
(das  stammt  aus  Zwischenspiel  7,  unserem  Gruselkabinett  - 
wer's  nicht  mehr  weiB,  muB  wieder  zuriick!)  sicher  keine  Uber- 
raschung  fur  Sie. 
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Der  Programmteil  'Spielen:'  spielt  den  Ton  zur  gedriickten  Taste. 
Wir  schicken  jeweils  einen  Ton  auf  den  linken  und  einen  auf 
den  rechten  Kanal.  Beide  Tdne  starten  dann  gleichzeitig  mit 
SOUND  RESUME.  So  kommt  der  Ton  spater  aus  beiden  Laut- 
sprechern,  wenn  Sie  Ihren  Amiga  stereo  hdren. 

In  'Maussteuerung:*,  dem  Label,  das  durch  Event  Trapping  bei 
einem  Mausklick  angesprungen  wird,  verzweigt  das  Programm 
zu  den  Unterprogrammen  'WellenformAendern:'  und  'Funk- 
tionAendern:',  abh&ngig  vom  Window,  in  das  geklickt  wurde. 
Die  Funktion  WINDOW(O)  liefert  uns  die  Windownummer. 

In  'WellenformAendern:*  wird  Window  2  zum  Ausgabewindow 
gemacht.  In  diesem  Window  kdnnen  Sie  mit  der  Maus  eine 
Wellenform  eingeben,  ahnlich  wie  Sie  auch  im  Malprogramm  ar- 
beiten.  Der  Wellenteil,  der  vorher  an  der  aktuellen  Stelle  war, 
wird  geloscht.  Wenn  Sie  mit  der  Maus  aus  dem  Window  fahren 
(IF  x>256...  oder  IF  y>63...),  rufen  wir  das  Unterprogramm 
'WelleZeigen:'  auf,  das  die  passende  Wellenform  im  Window  2 
neu  aufbaut,  um  die  nicht  geldschten  Reste  der  alten  Welle  vom 
Bildschirm  zu  bekommen,  und  springen  danach  mit  RETURN 
zuruck.  Die  dann  im  Programm  folgenden  LINE-Befehle  dienen 
zum  L6schen  der  alten  Wellenteile  (Farbe  0)  und  zum  Zeichnen 
der  neuen  (Farbe  1).  Zuletzt  bekommt  die  Position  in  'Welle%\ 
die  ja  identisch  mit  der  x-Koordinate  des  Mausklicks  ist,  ihren 
neuen  Wert.  Die  Variable  'y\  die  y-Koordinate  des  Mausklick- 
Punkts,  liegt  zwischen  0  und  63  (der  Windowh6he).  Um  daraus 
Werte  zwischen  -128  und  +127  zu  bekommen,  benutzen  wir  die 
Formel  127-(y*4). 

Zuletzt  wird  in  jedem  Fall  das  Unterprogramm  'WelleZeigen:* 
aufgerufen.  Manchmal  -  vor  allem  bei  schnellen  Bewegungen 
mit  der  Maus  -  bleiben  namlich  Teile  der  alten  Welle  auf  dem 
Bildschirm  stehen,  die  gar  nicht  mehr  im  Feld  'Welle:'  stehen. 
Deshalb  zeichnen  wir  die  Wellenform  nach  jeder  Anderung  neu. 
AuBerdem  wird  in  'WelleZeigen:'  der  Feldinhalt  mit  WAVE  den 
beiden  Stimmen  zugeordnet. 
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Jetzt  kommt  der  Teil  'FunktionAendern:'.  Er  ist  fiir  die  Aus- 
wertung  und  Bearbeitung  der  Klicks  von  Window  3  (mit  dem 
Titel  "Funktionen")  zustandig.  Die  Variablen  V  und  y  bekom- 
men  die  Startkoordinaten  der  Mausbewegung  zugewiesen.  So  er- 
halten  wir  in  jedem  Fall  den  Klickpunkt  und  nicht  die  aktuellen 
Koordinaten,  die  ja  unter  Umst&nden  an  ganz  anderer  Stelle 
liegen  kdnnen.  (Dann  namlich,  wenn  der  Anwender  nach  dem 
Klick  die  Maus  schnell  wegbewegt.) 

Der  erste  IF/END  IF-Block  checkt  ab,  ob  ins  "SinusM-Kastchen 
geklickt  wurde.  Falls  ja,  schreiben  wir  die  Werte  einer  Sinus- 
welle  ins  'Welle%'-Feld,  rufen  'WelleZeigen:*  auf  und  springen 
zurtick.  Zur  Bestatigung  des  Mausklicks  wird  ubrigens  immer  am 
Anfang  der  Bearbeitung  das  angeklickte  Kastchen  ausgemalt  und 
vor  dem  Riicksprung  wieder  gelfischt.  I>er  nachste  Teil  funktio- 
niert  fiirs  nachste  Kastchen  ("Dreieck")  genauso,  nur  wird  eben 
eine  Dreieckwelle  erzeugt.  Dazu  wird  die  Variable  'a*  abwech- 
selnd  nach  oben  und  nach  unten  gezahlt:  Wir  erhalten  die  Werte 
fiir  eine  Dreiecksschwingung.  Auch  der  Programmteil,  der  fiirs 
"RechteckM-Kastchen  zustandig  ist,  funktioniert  so.  Er  erzeugt 
eine  Rechteckwelle.  Die  Feldinhalte  von  'Welle**)'  bekommen 
eine  Zeit  lang  den  Wert  127,  dann  -128,  dann  wieder  127  und  so 
weiter. 

Mit  dem  Kastchen  "Loschen"  lfischen  Sie  die  aktuelle  Wellen- 
form.  Dazu  werden  einfach  alle  Werte  von  'Welle%'  auf  0  ge- 
setzt. 

Bleiben  noch  die  Kastchen  'Save'  und  'Load'.  Im  ersten  Fall 
wird  eine  sequentielle  Datei  zum  Schreiben  geflffnet,  im  zweiten 
zum  Lesen.  Der  Programmteil  'EingabeName:'  -  ein  guter  alter 
Bekannter  aus  vielen  Programmen  dieses  Buchs  -  sorgt  vorher 
fiir  den  Dateinamen.  Und  schon  ist  auch  'FunktionAendern:' 
vorbei.  Jetzt  fehlen  nur  noch  die  beiden  Unterprogramme. 

'WelleZeigen:'  stellt  die  aktuelle  Welle  im  Window  2  dar.  Fiir  die 
Berechnung  der  Bildschirmkoordinaten  kflnnen  wir  gut  unsere 
Funktion  'FNYWelle'  gebrauchen.  Sie  kam  ubrigens  auch  schon 
beim  'WellenformAendern:'  zum  Einsatz.  Aus  den  Ergebnissen 
im  Bereich  0  bis  256  errechnen  wir  mit  Division  durch  4  die 
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Bildschirmkoordinaten.  Die  beiden  WAVE-Befehle  am  Ende  be- 
wirken,  daB  die  Wellenformen  dann  auch  wirklich  fiir  die 
Tonerzeugung  benutzt  werden. 

'Eingabename:'  verlangt  die  Eingabe  eines  Dateinamens.  Sie  k6n- 
nen  den  zuletzt  verwendeten  wieder  mit  "=H  oder  "*"  abkiirzen. 
Zu  Eingabe  erzeugen  wir  kurzzeitig  ubrigens  ein  viertes  Window 
in  der  Bildschirmmitte. 

Tja,  und  das  war's  dann  auch.  Die  Bedienung  des  Programms  ist 
ganz  einfach.  Malen  Sie  mit  der  Maus  ins  "Wellenform"- Window 
eine  Wellenform.  Sie  werden  schon  bald  Erfahrung  darin  haben, 
welche  Wellenform  wie  klingt.  Auf  den  oberen  beiden  Tasten- 
reihen  k6nnen  Sie  dann  Tdne  spielen.  Leider  ist  nicht  mehr  als 
ein  Ton  gleichzeitig  mflglich,  weil  nicht  mehr  Tasten  gleichzeitig 
abgefragt  werden  kflnnen. 

Wollen  Sie  zuerst  eine  der  Grundformen  ubernehmen,  um  die 
dann  abzuSndern,  klicken  Sie  einfach  ins  entsprechende  Kast- 
chen  im  "FunktionenM-Window.  Mit  "Lflschen"  k5nnen  Sie  auch 
die  Wellenform  ganz  loschen.  Solange  das  der  Fall  ist,  horen  Sie 
naturlich  auch  keine  T6ne.  Denn  wo  nichts  ist,  kann  man  auch 
nichts  hSren. 

Gefallt  Ihnen  eine  Wellenform,  kSnnen  Sie  sie  mit  einem  Klick 
ins  "Save"-Feld  abspeichern.  Geben  Sie  den  Dateinamen  an,  das 
war  schon  alles.  Und  ein  Klick  in  "Load"  ermdglicht  das  Ein- 
lesen  von  gespeicherten  Werten.  Die  so  erzeugten  Dateien  kdn- 
nen  Sie  in  eigenen  Programmen  einlesen  und  fiir  eigene  Wellen- 
formen verwenden.  Die  Einleseroutine  muB  so  aussehen: 

OPEN  (Feldname)  FOR  INPUT  AS  1 

FOR  x=0  TO  256 
UeUenfeld(x)=127-ASC(INPUTS<1,1)) 

NEXT  x 
CLOSE  1 
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Das  Wellenfeld  weisen  Sie  mit  WAVE  den  gewunschten  Stimmen 
zu.  (Sie  wissen  ja  noch,  Sie  kflnnen  auch  verschiedene  Wellen- 
formen  fur  jede  einzelnen  Stimme  angeben.)  Jeder  SOUND-Be- 
fehl  auf  der  jeweiligen  Stimme  benutzt  die  eingelesene  Welle. 

Bleibt  uns  nur  noch,  Ihnen  auch  damit  viel  SpaB  und  viel  Erfolg 
zu  wunschen.  Wie  gesagt,  mehr  Musik  steckt  in  AmigaBASIC 
leider  nicht  drin.  Im  Amiga  natiirlich  schon,  davon  kann  sich 
jeder  uberzeugen,  der  das  eine  Oder  andere  professionelle 
Musikprogramm  mal  gehflrt  hat.  Damit  ist  das  Sound-Kapitel 
auch  zu  Ende. 

Im  vierten  Teil  geht  es  nun  noch  um  ein  ganz  anderes  Thema. 
N&mlich  darum,  wie  Sie  Ihre  BASIC-Programme  durch  einen 
Compiler  schneller  machen  kdnnen. 


IV.  Der  Turbo-Amiga 
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8.     Sprachhistorie  -  Von  Maschinensprache, 
Compilern  und  Interpretern 

Eigentlich  spricht  Ihr  Amiga  Oberhaupt  kein  BASIC.  Und  er 
versteht  es  auch  nicht.  "Das  ist  ja  die  H6he!"  hdren  wir  jetzt  ei- 
nige  Leser  aufschreien,  "Da  bringen  uns  die  beiden  auf  uber  500 
Seiten  AmigaBASIC  bei,  und  dann  behaupten  sie,  der  Amiga 
wurde  uberhaupt  kein  BASIC  verstehen."  Bevor  solche  Stimmen 
in  eine  allgemeine  Protestbewegung  umschlagen,  wollen  wir  doch 
besser  ganz  schnell  Licht  in  die  Sache  bringen: 

Wie  Sie  in  diesem  Buch  schon  gelesen  haben,  ist  fur  die  gesamte 
Rechenarbeit  im  Amiga  der  68000  zust&ndig.  Der  68000  ist  der 
Hauptprozessor  des  Amiga.  Bei  seiner  Arbeit  wird  er  von  den 
Co-Prozessoren  Agnus,  Denise  und  Paula  untersttitzt,  denen  wir 
die  uberragenden  Grafik-  und  Tonm6glichkeiten  unseres  Com- 
puters verdanken.  Aber  furs  Rechnen  ist  wie  gesagt  allein  der 
68000  zustandig.  Und  was  tut  ein  Computer  letzten  Endes  schon 
anderes  als  rechnen? 

Jedes  Programm  ist  eine  Ansammlung  von  Rechen-  und  Steuer- 
befehlen.  Und  die  einzige  Programmiersprache,  die  unser  68000 
versteht,  ist  Maschinensprache.  Dieser  Begriff  tauchte  schon  an 
verschiedenen  Stellen  in  diesem  Buch  auf  und  hatte  immer  ein 
wenig  den  Hauch  des  Komplizierten  und  Unerlernbaren  um 
sich. 

Der  Grund  dafiir  ist,  daB  Maschinensprache  fur  Menschen  sehr 
schwer  zu  lernen  ist.  Maschinensprache  eben.  Sie  besteht  streng 
genommen  n&mlich  nur  aus  Nullen  und  Einsen.  Eben  den  beiden 
Signalen,  die  ein  Computer  unterscheiden  kann.  Im  Zwischen- 
spiel  4  haben  wir  Ihnen  gezeigt,  mit  welchen  Tricks  man  aus 
solchen  Nullen  und  Einsen  schlieBlich  doch  grdBere  Zahlen  oder 
auch  Buchstaben  und  Zeichen  bilden  kann. 

Auch  jeder  Programmbefehl,  den  der  68000  verarbeiten  soil, 
muB  in  Form  von  Nullen  und  Einsen  vorliegen.  Da  Binarzahlen 
fur  Menschen  aber  extrem  uniibersichtlich  und  ungeheuer 
schwer  zu  merken  sind,  haben  sich  die  Programmierer,  die  den 
68000    direkt    in    Maschinensprache    programmieren,    leichter 
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merkbare  Befehlskiirzel  einfallen  lassen.  Diese  Befehlskiirzel 
heiBen  "Mnemonics".  Wir  wissen,  daB  dieses  Wort  ziemlich 
schwer  auszusprechen  ist.  Andererseits  waren  die  Mnemonic- 
Sprachsch6pfer  wohl  Schlimmeres  gewohnt,  denn  die  erwahnten 
Befehlskiirzel  sind  auch  nicht  eben  einfach  auszusprechen.  Um 
nur  einige  wenige  Beispiele  zu  nennen:  JSR,  RTS,  BSR,  CMP. 

Die  meisten  Mnemonics  sind  Abkiirzungen  fiir  die  englische 
Funktionsbeschreibung  eines  Befehls.  JSR  steht  z.B.  fiir  "Jump 
SubRoutine"  -  "Unterprogramm  aufrufen".  Oder  CMP  fiir 
"CoMPare"  -  "Vergleichen".  Wer  mit  solchen  Kiirzeln  program- 
miert,  arbeitet  in  der  Programmiersprache  Assembler.  Das  ist  die 
eigentliche  Programmierung  in  Maschinensprache. 

Was  diese  Programmierung  so  schwierig  macht,  sind  zwei  Dinger 
Erstens  muB  jede  Programmfunktion  in  ungeheuer  kleine  Ein- 
heiten  zerlegt  werden.  Das  macht  groBe  Maschinenprogramme 
sehr  fehleranfailig  und  erfordert  eine  umfassende  Planung  beim 
Programmieren.  Und  zweitens  muB  der  Maschinensprache-Pro- 
grammierer  genau  iiber  jede  Eigenschaft  des  Prozessors  und  der 
Co-Prozessoren  Bescheid  wissen.  In  Maschinensprache  gibt  es 
z.B.  keinen  Befehl,  um  eine  Bildschirmfarbe  zu  verandern.  Statt 
dessen  muB  unser  Programmierer  wissen,  in  welche  Adresse 
welches  Co-Prozessors  er  welchen  Wert  schreiben  muB,  damit 
die  Hardware  dann  ihrerseits  die  Farbe  verfcndert. 

Einfach  ist  das  alles  nicht.  Trotzdem  muB  irgendwann  jeder 
Computer  einmal  in  Maschinensprache  programmiert  werden. 
Und  zwar  dann,  wenn  sein  Betriebssystem  geschrieben  wird.  Nur 
ist  das  eben  ein  Job  fiir  absolute  Profis,  sogenannte  Systempro- 
grammierer.  Und  selbst  denen  ist  das  Hantieren  mit  JSR,  RTS  & 
Co.  nicht  immer  sehr  angenehm.  Ein  fehlerfreies  Betriebssystem 
gibt  es  wohl  bis  heute  noch  nicht... 

Aus  diesem  Grund  sind  viele  Maschinensprache-Programmierer 
schon  bald  auf  die  Idee  gekommen,  Programme  zu  schreiben, 
die  ihnen  diese  unangenehme  Arbeit  abnehmen.  Programme,  die 
leichter  merkbare  Befehle  in  Maschinensprache  iibersetzen.  Der 
Programmierer  formuliert  seine  Wunsche  an  den  Computer  dann 
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etwas  verstandlicher  und  einfacher  (z.B.  Color  =  White)  und  das 
Ubersetzungsprogramm  erzeugt  daraus  automatisch  die  notwen- 
digen  Folgen  von  Maschinensprache-Befehlen. 

Ein  solches  Ubersetzungsprogramm  nennt  man  Compiler.  Com- 
piler gibt  es  fur  viele  verschiedene  Programmiersprachen.  Auf 
dem  Amiga  ist  zum  Beispiel  die  Sprache  C  sehr  verbreitet  und 
beliebt.  Und  zwar  deshalb,  weil  sie  noch  relativ  "maschinennah" 
arbeitet,  also  gute  Kontrollm6glichkeiten  fiber  die  Hardware 
bietet,  und  trotzdem  flexibler  und  deutlich  einfacher  ist  als 
Maschinensprache.  Der  Systemprogrammierer  kann  nun  seine 
Programme  in  der  Sprache  C  schreiben,  der  Compiler  ubersetzt 
das  Programm  dann  und  am  Ende  steht  ein  Programm  in  Ma- 
schinensprache. 

Nun  wird  es  Sie  wohl  nicht  mehr  uberraschen,  wenn  wir  Ihnen 
erzahlen,  daB  groBe  Teile  des  Amiga-Betriebssystems  in  C  ge- 
schrieben  wurden.  Ein  C-Compiler  hat  dann  diese  C-Befehle  in 
fur  den  68000-Prozessor  verst&ndliche  Maschinensprache  uber- 
setzt. Aus  diesem  Grund  ist  C  bei  Amiga-Programmierern  iibri- 
gens  so  beliebt:  Diese  Sprache  ist  quasi  die  "Muttersprache"  des 
Amiga  und  seines  Betriebssystems.  Mit  ihr  kann  man  fast  alles 
auf  dem  Amiga  realisieren. 

Programmierer,  die  Anwendungsprogramme  wie  Deluxe  Paint 
oder  PageSetter  schreiben,  arbeiten  daher  meistens  in  C.  Nur 
wenige  von  ihnen  programmieren  noch  direkt  in  Maschinen- 
sprache. 

Doch  auch  C  ist  noch  vergleichsweise  kompliziert  und  schwer  zu 
lernen.  Fur  Hobby-Programmierer  und  Einsteiger  in  die  Welt 
des  Programmierens  wurden  deshalb  andere  Programmierspra- 
chen entwickelt.  Wie  eben  zum  Beispiel  AmigaBASIC. 
AmigaBASIC  ist  sehr  komfortabel,  aber  nicht  mehr  sehr  maschi- 
nennah.  Wir  haben  das  im  Verlauf  des  Buches  zum  Beispiel 
daran  gemerkt,  daB  Funktionen,  die  nicht  von  vorneherein  vor- 
gesehen  sind  (etwa  das  Auslesen  der  Farbwerte  oder  das  Laden 
von  IFF-Bildern),  nur  unter  groBem  Aufwand  realisiert  werden 
kOnnen. 
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Das  Grundprinzip  ist  bei  BASIC  nicht  anders  als  bei  C:  Die 
einzelnen  Befehle  miissen  fur  den  68000-Prozessor  in  Maschi- 
nensprache-Befehle  tibersetzt  werden.  Jedoch  sind  die  Befehle 
von  BASIC  wesentlich  IeistungsfShiger  und  komfortabler  als  die 
Befehle  von  C.  Um  den  Preis,  daB  BASIC  eben  nicht  mehr  so 
nah  an  der  Hardware  ist. 

Aber  zwischen  AmigaBASIC  und  C  gibt  es  noch  einen  anderen 
wichtigen  Unterschied.  Wenn  Sie  einen  AmigaBASIC-Befehl  im 
BASIC-Window  eingeben,  wird  der  Befehl  sofort  ausgefuhrt. 
Und  wenn  Sie  ein  Programm  ins  LIST-Window  eingeben  und 
starten,  fangt  der  Amiga  sofort  an,  das  Programm  abzuarbeiten. 
Wenn  er  dabei  einen  Fehler  entdeckt,  halt  er  das  Programm  an 
und  bringt  eine  Fehlermeldung.  Das  alles  funktioniert  nur,  weil 
BASIC  eine  sogenannte  MInterpreter"-Sprache  ist.  Das  englische 
Wort  "Interpreter"  wird  ungefahr  "IntSrrprSterr"  ausgesprochen 
und  bedeutet  ubersetzt  "Dolmetscher".  Und  genauso  kdnnen  Sie 
sich  AmigaBASIC  auch  vorstellen:  Wie  ein  Dolmetscher  einen 
Satz  hdrt  und  ubersetzt,  findet  AmigaBASIC  eine  Programmzeile 
vor  und  ubersetzt  sie  in  Maschinensprache.  Dieser  Vorgang  fin- 
det wahrend  der  Abarbeitung  des  Programms  statt. 

Im  Gegensatz  dazu  arbeitet  ein  Compiler  eher  wie  der  Ange- 
stellte  eines  Ubersetzungsburos:  Er  ubersetzt  den  ganzen  Text 
auf  einmal  und  gibt  ihn  dann  weiter  an  den  Adressaten.  Sollten 
beim  Ubersetzen  irgendwelche  Unklarheiten  oder  Probleme  auf- 
treten,  wird  der  Urheber  des  Textes  vorher  gefragt.  Beim  Com- 
piler lauft's  nun  ganz  genauso:  Er  ubersetzt  das  komplette  Pro- 
gramm und  erzeugt  dann  ein  eigenes  Programm  in  Maschinen- 
sprache (die  Ubersetzung).  Treten  beim  Compilieren  Fehler  oder 
Unklarheiten  auf,  bricht  der  Compiler  ab  und  meldet  dem  Pro- 
grammierer,  daB  in  dem  zu  tibersetzenden  Programm  (engl.: 
Source-Code,  deutsch:  Quell-Programm)  etwas  unklar  ist. 

Der  Nachteil  bei  Interpreter-Sprachen  ist,  daB  die  Ubersetzung 
wahrend  des  Programmablaufs  erfolgt.  Befehl  fur  Befehl,  Zeile 
fur  Zeile.  Die  Zeit,  die  AmigaBASIC  zum  Ubersetzen  benfltigt, 
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verlangsamt  logischerweise  Ihr  Programm.  Programme,  die  von 
einem  Interpreter  abgearbeitet  werden,  sind  deshalb  immer 
langsamer  als  compilierte  Programme. 

Vielleicht  fragen  Sie  sich  jetzt,  welchen  Vorteil  es  dann  hat,  daB 
AmigaBASIC  als  Interpreter  arbeitet.  Ganz  einfach:  Interpreter- 
sprachen  sind  einfacher  zu  handhaben:  Sie  kdnnen  Ihr  BASIC- 
Programm  eintippen,  ausprobieren  und  abwarten,  wo  ein  Fehler 
auf tritt.  Den  Fehler  verbessern  Sie  dann  und  starten  das  Pro- 
gramm von  Neuem.  Diese  "Trial  and  ErrorH-Methode  -  Auspro- 
bieren und  aus  den  Fehlern  lernen  -  ist  far  BASIC  besonders 
typisch. 

Bei  einer  Compiler-Sprache  wird  das  Ganze  wesentlich  aufwen- 
digen  Vielleicht  merkt  der  Compiler  einen  Fehler  erst  nach 
mehreren  Minuten  Ubersetzungszeit.  Dann  muB  der  Program- 
mierer  den  Compiler  verlassen,  sein  Quellprogramm  laden,  nach 
dem  Fehler  suchen,  ihn  verbessern,  die  verbesserte  Version  ab- 
speichern,  den  Compiler  neu  starten  und  hoffen,  daB  diesmal 
kein  Fehler  mehr  auf  tritt.  So  gesehen  ist  AmigaBASIC  als  Inter- 
pretersprache  also  wesentlich  angenehmer.  Was  bleibt,  ist  der 
Nachteil  der  Geschwindigkeit.  AmigaBASIC  geh6rt  zwar  zu  den 
Schnellsten  seiner  Art,  aber  Sie  haben  sicher  schon  an  der  einen 
oder  anderen  Stelle  gemerkt,  daB  es  manchmal  ganz  sch6n  auf 
sich  warten  l&Bt. 


8.1        Machen  Sie  Ihren  BASIC- Programmen  Beine  -  der 
AC/BASIC-Compiler 

Die  Nachteile,  die  AmigaBASIC  als  Interpretersprache  hat, 
brachten  die  amerikanische  Softwarefirma  Absoft  auf  eine  Idee: 
Sie  hat  fur  AmigaBASIC  einen  Compiler  geschrieben.  Dieser 
Compiler  hat  den  Namen  "AC/BASIC"  und  kostet  etwa  zwischen 
DM  200,-  und  DM  300,-.  Wenn  Sie  sich  dieses  Programm  kau- 
fen,  haben  Sie  die  Mdglichkeit,  Ihre  AmigaBASIC- Programme 
zu  compilieren.  Das  heiBt,  der  Compiler  ubersetzt  ein  ganz  nor- 
males    AmigaBASIC-Programm    in    ein    Maschinensprache-Pro- 
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gramm.  Unter  bestimmten  Voraussetzungen  kann  man  damit 
einen  beachtlichen  Geschwindigkeitsgewinn  erzielen  -  eben  sei- 
nen  BASIC- Programmen  Beine  machen. 

In  diesem  vierten  Teil  unseres  Buchs  wollen  wir  Ihnen  nun  die 
MGglichkeiten  des  AC/BASIC-Compilers  vorstellen.  Wir  wollen 
Ihnen  zeigen,  wann  sich  der  Kauf  und  Einsatz  dieses  Programms 
lohnt,  und  wann  nicht.  Und  wir  wollen  Ihnen  einige  Tips  geben, 
die  Sie  beachten  sollten,  wenn  Sie  die  Beispielprogramme  aus 
diesem  Buch  compilieren  wollen.  Das  soil  Ihnen  spater  helfen, 
wenn  Sie  selbstgeschriebene  Programme  compilieren  und  dabei 
Schwierigkeiten  und  Probleme  auftreten. 

Um  beurteilen  zu  kdnnen,  wann  ein  Compiler  fur  Ihre  Pro- 
gramme einen  deutlichen  Geschwindigkeitsgewinn  bringt,  sollten 
Sie  noch  einiges  iiber  die  Funktionsweise  von  AmigaBASIC  und 
die  Arbeit  des  Compilers  erfahren. 

Sie  wissen  ja  bereits,  daB  AmigaBASIC  selbst  ein  Programm  ist. 
Zumindest  haben  wir  das  schon  mal  ganz  am  Anfang  unseres 
Buchs  erwahnt.  Wenn  Sie  ein  BASIC-Programm  eingegeben  ha- 
ben und  es  starten,  arbeitet  das  Programm  "AmigaBASIC"  (also 
der  Interpreter)  Ihr  Listing  Befehl  fur  Befehl  ab.  Fur  jeden  Be- 
fehl  gibt  es  dabei  einen  Programmteil  in  "AmigaBASIC".  Das 
Ganze  arbeitet  also  ahnlich  wie  etwa  unser  Malprogramm:  Wenn 
Sie  dort  eine  bestimmte  Funktion  anwahlten,  etwa  "Kreise",  dann 
kummerte  sich  der  Programmteil  "Kreis:"  darum. 

Ahnlich  gibt  es  in  "AmigaBASIC"  Programmteile,  die  in  Aktion 
treten,  wenn  in  Ihrem  Listing  z.B.  ein  CIRCLE-Befehl,  ein 
SCREEN-Befehl  oder  auch  eine  FOR...NEXT-Schleife  vorge- 
funden  werden.  Ffir  jeden  BASIC-Befehl  ist  ein  Teil  des  Inter- 
preter-Programms  zustandig.  Und  wie  in  unserem  Malprogramm 
treten  die  einzelnen  Programmteile  wenn  nfltig  untereinander  in 
Verbindung.  Dieser  Vorgang  ifcuft  dann  solange  ab,  bis  Ihr 
BASIC-Programm  abgearbeitet  ist. 
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Allerdings  muB  sich  AmigaBASIC  erfreulicherweise  nicht  urn 
alles  selbst  kummern.  Viele  Funktionen  nimmt  ihm  namlich  das 
Betriebssystem  ab.  Wenn  Sie  beispielsweise  ein  neues  Window 
Sffnen,  ruft  AmigaBASIC  einfach  die  dafQr  zustfcndige  Be- 
triebssystemroutine  auf.  Und  das  ist  ja,  wie  Sie  im  letzten  Ka- 
pitel  erfahren  haben,  eine  Routine  in  Maschinensprache,  die 
durch  einen  C-Compiler  erzeugt  wurde.  Da  der  Amiga  eine 
grafische  Benutzeroberfiache  hat  und  vom  ganzen  System  her 
eine  Grafik-Maschine  ist,  finden  sich  im  Betriebssystem  beson- 
ders  viele  Routinen,  die  mit  Grafik  zu  tun  haben.  Zum  Beispiel 
zur  Verwaltung  von  Windows  und  Screens,  zum  Zeichnen  von 
Linien,  Rechtecken,  Polygonen  und  zum  Ausmalen  solcher  Fi- 
gures In  all  diesen  Fallen  ruft  AmigaBASIC  einfach  Routinen 
aus  dem  Betriebssystem  auf. 

Andere  Dinge,  wie  das  Verwalten  von  FOR.. .NEXT-  oder 
WHILE.. .WEND-Schleifen  oder  das  Berechnen  mathematischer 
Ausdrucke  kann  AmigaBASIC  nicht  ans  Betriebssystem  deligie- 
ren.  Hier  muB  es  dann  selbst  in  Aktion  treten. 
Wie  arbeitet  nun  der  AC/BASIC-Compiler?  Im  Prinzip  nicht 
viel  anders  als  AmigaBASIC.  Er  analysiert  beim  Compilieren  Ihr 
BASIC-Programm  und  erzeugt  ein  Maschinensprache-Programm, 
das  genau  dieselben  Funktionen  erfiillt.  Trifft  er  auf  einen  Be- 
fehl,  der  vom  Betriebssystem  erledigt  werden  kann,  fugt  er  in 
das  Maschinensprache-Programm  einen  entsprechenden  Be- 
triebssystem-Aufruf  ein.  Findet  er  einen  oder  mehrere  Befehle, 
die  zur  Programmsteuerung,  Abarbeitung  von  Schleifen  oder 
Berechnung  mathematischer  Ausdrucke  dienen,  verwendet  er  im 
"Object-Code"  (so  nennt  man  das  Ergebnis  des  Compilierens) 
einen  oder  mehrere  Maschinensprache-Befehle,  die  dasselbe  be- 
wirken. 

Der  Compiler  versucht  dabei  zu  vermeiden,  daB  sich  im  Object- 
Code  immer  wieder  dieselben  Routinen  wiederholen.  Stellen  Sie 
sich  vor,  in  Ihrem  Quell-Programm  kommt  an  zwanzig  verschie- 
denen  Stellen  eine  SIN-Berechnung  vor,  und  der  Compiler 
wurde  daraufhin  im  Object-Code  an  zwanzig  verschiedenen 
Stellen  ein  Maschinenprogramm  zum  Ausrechnen  von  Sinus- 
Werten  einfiigen.  Das  ware  ja  nun  wirklich  Verschwendung  von 


Per  AC /B ASIC-Compiler 571 


Speicherplatz.  Aus  diesem  Grund  benutzt  auch  der  Compiler 
Unterprogramme.  Er  hat  dazu  eine  Bibliothek  fertiger  Funktio- 
nen,  die  sogenannte  Runtime-Library. 

Langsam  nShern  wir  uns  der  Frage:  Wann  kann  der  Compiler  ei- 
gentlich  einen  deutlichen  Geschwindigkeitsvorteil  erreichen? 
Also,  beim  Aufrufen  der  Betriebssystem-Funktionen  sicher 
nicht.  Die  sind  n^mlich  immer  gleich  schnell,  egal  ob  sie  von 
AmigaBASIC  oder  einem  Object- Programm  in  Maschinensprache 
aktiviert  werden.  Wenn  wir  unterstellen,  da8  die  Berechnungen 
in  Maschinensprache  schneller  vonstatten  gehen  als  AmigaBASIC 
das  hinbekommt,  dann  ist  da  schon  eher  eine  Beschleunigung 
denkbar.  Und  bei  Schleifen,  Programmverzweigungen  etc.,  die 
in  Maschinensprache  relativ  einfach  nachgebildet  werden  kdn- 
nen,  kann  der  Compiler  auch  noch  was  herausholen. 

Das  alles  bedeutet  also:  Wenn  Sie  ein  Programm  durch  den  Com- 
piler beschleunigen  wollen,  dann  bringt  das  am  meisten,  wenn 
das  Programm  sehr  rechenintensiv  ist  und  aus  vielen  Schleifen 
und  Sprungbefehlen  besteht.  Programme,  die  viele  Grafikbefehle 
benutzen,  werden  Sie  hingegen  auch  durch  den  Compiler  kaum 
schneller  machen  k6nnen.  Auch  Programme,  die  in  erster  Linie 
Daten  von  Diskette  lesen  oder  Daten  auf  Diskette  schreiben, 
werden  kaum  schneller  werden.  Der  Grund  ist  hier,  da/3  die 
meiste  Zeit  durch  das  Lesen  und  Schreiben  im  Diskettenlauf- 
werk  verlorengeht.  Und  daran  kann  auch  der  Compiler  nichts 
&ndern. 

Wir  haben  auf  der  beiliegenden  Diskette  in  der  "Compiler"- 
Schublade  die  compilierten  Versionen  einiger  Beispielprogramme 
aus  unserem  Buch  abgelegt.  So  kOnnen  sich  auch  diejenigen,  die 
AC/BASIC  nicht  besitzen,  ein  Bild  von  der  mflglichen  Beschleu- 
nigung machen. 

Fur  alle  Besitzer  von  AC/BASIC  und  diejenigen,  die  sich  fur 
diesen  BASIC-Compiler  interessieren,  zeigen  wir  in  den  nachsten 
Kapiteln,  wie  dieser  Compiler  grundsfctzlich  bedient  wird  (denn 
leider  gibt  es  im  Moment  nur  ein  englisches  Handbuch  dazu  und 
laut  Auskunft  des  Herstellers  ist  kein  deutsches  Manual  geplant), 


572 AmigaBASIC 


wir  wollen  Ihnen  Tips  geben,  was  bei  der  Arbeit  damit  zu  be- 
achten  ist,  und  was  Sie  wissen  mussen,  wenn  Sie  bestimmte 
Beispielprogramme  aus  unserem  Buch  compilieren  wollen. 


8.2        Eins,  zwei,  drei  im  Sauseschritt  -  Vorbereitungen  und  die 
Bedienung  von  AC/BASIC 

Die  jetzt  folgenden  Anweisungen  brauchen  natiirlich  nur  dieje- 
nigen  unter  Ihnen  auch  ausf&hren,  die  den  Compiler  schon  be- 
sitzen.  Die  anderen  sollten  die  Anweisungen  einfach  ubersprin- 

gen. 

Fangen  wir  einfach  mal  mit  einem  Beispiel  an.  Angenommen, 
Sie  wollen  unser  Videotitel-Programm  compilieren.  Was  mussen 
Sie  dann  tun? 

Die  erste  Voraussetzung,  die  AC/BASIC  an  ein  BASIC-Pro- 
gramm  stellt,  ist  das  Format,  in  dem  das  Programm  vorliegt. 
AC/BASIC  verarbeitet  namlich  nur  ASCII-Dateien.  Das  bedeu- 
tet,  daB  Sie  die  Version  fur  den  Compiler  mit  SAVE  "(Pro- 
grammname)\A  abspeichern  mussen. 

-  Bitte  laden  Sie  HVideotitel.IFP.  Sie  finden  diese  Programm- 
version  z.B.  in  der  "Daten"-Schublade  auf  der  beiliegenden 
Diskette. 

-  Speichern  Sie  das  Programm  nun  bitte  als  ASCH-Datei  ab. 
Urn  die  Zeiten  fur  Schreiben  und  Lesen  von  Diskette  beim 
Compilieren  zu  verkiirzen,  kdnnten  Sie  die  ASCII- Version 
auf  der  RAM-Disk  abspeichern.  Geben  Sie  also  bitte  im 
BASIC-Window  ein: 

save  "ram:Videotitel.IFF",a 

-  Nun  k&nnen  Sie  AmigaBASIC  wieder  verlassen. 

-  Starten  Sie  dann  bitte  den  AC/BASIC-Compiler. 
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Bild  21: 


Das  Icon  von  AC/BASIC 


Vorher  mussen  Sie  den  Compiler,  so  wie  im  AC/BASIC-Hand- 
buch  erkfcrt,  auf  einer  Arbeitsdiskette,  oder  -  falls  vorhanden  - 
auf  Ihrer  Festplatte  installieren.  Sollte  es  spater  w&hrend  der 
Anwendung  Probleme  geben  und  in  AC/BASIC  die  Fehlermel- 
dung  "Overlay:  01. be  not  found"  oder  eine  ahnliche  Meldung 
erscheinen,  dann  haben  Sie  vermutlich  vergessen,  den  Inhalt  des 
L-Verzeichnisses  ins  L-Verzeichnis  Ihrer  Workbench-Diskette  zu 
kopieren. 

Bei  dieser  Gelegenheit  ein  Wort  zum  Handbuch  von  AC/BASIC. 
Wenn  Sie  AC/BASIC  besitzen,  sollten  Sie  dieses  Handbuch  auf 
jeden  Fall  durchlesen.  Es  ist  sehr  gut  geschrieben  und  enthait 
eine  Menge  nutzlicher  Hinweise.  Das  einzige  Problem  ist  wie 
gesagt,  dafl  dieses  Handbuch  bisher  nur  auf  Englisch  vorliegt. 
Wenn  Sie  AC/BASIC  gestartet  haben,  erscheint  zunfcchst  ein 
Window,  in  dem  folgendes  zu  lesen  ist 

Absoft  AC/BASIC  ConpUer 

Version  1.2  April  10,  1987 

Copyright  (c)  Absoft  Corporation  1985,  1986,  1987 

Die  Versionsnummer  entspricht  zumindest  der  Version,  die  uns 
vorlag.  Vielleicht  ist  sie  bei  Ihnen  schon  hdher  und  ein  spheres 
Datum  steht  daneben.  Aber  so  etwas  kennen  Sie  ja  schon. 
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Wenn  Sie  die  rechte  Maustaste  driicken,  werden  Sie  entdecken, 
dafi  dieses  Window  ein  einziges  Pulldown  besitzt.  Es  hat  den 
Namen  "Project". 

-  Bitte  wahlen  Sie  "Open"  aus  dem  "Projecf'-Pulldown. 

-  Auf  dem  Biidschirm  erscheint  nun  ein  Requester,  in  dem  Sie 
den  Namen  des  Programms  eingeben  konnen,  das  Sie  compi- 
lieren  wollen.  Geben  Sie  bitte  ein: 

ram:Videotitel.iff  <RETURN> 

Der  Druck  auf  die  <RETURN>-Taste  eriibrigt  das  Klicken  ins 
OK-Feld.  Wenn  Sie  sich  beim  Dateinamen  nicht  vertippt  haben, 
erscheint  nun  das  Haupt- Window  von  AC/BASIC. 


HlAbsoft  AC/BASIC  Compiler: 


SOURCE  FILE :BASICDisk:Conpi ler/Haip  NORK  AREA:  32K 


;-.'.:::  :,!-~;K'Coi*'H"e         '■■■'"  K 


Conpile  Batch 


— - — — - — — -  Conpiler  Options  — — 


|  D  A  Use  Long  Addressing 

DC  Enable  Run-tine  Tests    / 

D  D  Conpile  for  Pecinal  Hath 

D  E  Generate  Errors  List 

D  I  List  Include  Statetwnts 

DL  Generate  Full  List 


□  H   Process  Run-tine  Events 

□  R   Link  Run-tine 

DS;  Generate  Symbol  File 

□  L  Tenporaries  on  RanDisk 
DU   Default  Arrays  to  STATIC 


Bild  22: 


Das  Haupt-Window  von  AC/BASIC 
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In  diesem  Window  finden  Sie  alle  Bedienungselemente  von 
AC/BASIC.  Die  Bedienung  des  Programms  ist  ubrigens  beson- 
ders  einfach.  Sie  brauchen  also  keine  detaillierten  Kenntnisse, 
um  das  Programm  dazu  zu  bringen,  etwas  zu  compilieren. 

Unterhalb  der  Schrift  "Compiler  Options"  sehen  Sie  verschiedene 
Felder.  Sie  alle  entsprechen  verschiedenen  Optionen  von 
AC/BASIC.  Drei  Felder  sind  mit  einem  orangen  Kastchen  ge- 
kennzeichnet:  MC  Enable  Run-time  Tests",  MN  Process  Run- 
time Events"  und  MT  Temporaries  on  RamDisk".  Um  die  einzel- 
nen  Optionen  und  ihre  Bedeutung  werden  wir  uns  etwas  spater 
kummern. 

-  Bitte       klicken       Sie       noch       zusatzlich       ins       Kastchen 
"R    Link  Run-time". 

DaB  eine  Option  aktiviert  ist,  erkennen  Sie  daran,  daB 
AC/BASIC  das  Kastchen  vor  der  Option  orange  ausmalt. 

-  Bitte  klicken  Sie  nun  ins  Feld  "Compile". 

Daraufhin  verschwindet  das  Haupt-Window,  und  AC/BASIC  be- 
ginnt,  das  Videotitel-Programm  zu  compilieren.  Das  ware  es 
auch  schon  gewesen,  wenn  das  Wflrtchen  wenn  nicht  war...  Denn 
praktisch  kaum  ein  Basic-Programm  laOt  sich  so  einfach  compi- 
lieren. Kleinere  Anderungen  muB  man  haufig  durchfuhren.  Und 
damit  man  auch  weiB  welche,  gibt  der  Compiler  eine  Reihe  von 
Informationen  wahrend  und  nach  dem  eigentlichen  compilieren. 
In  einem  leeren  Window  erscheinen  deshalb  verschiedene  Ausga- 
ben  des  Programms. 

Zunachst  ist  da  zu  lesen: 

0:   ram:Videotitel.iff 

Das  ist  der  Name  des  Quell-Programms,  das  AC/BASIC  gerade 
einliest.  Darunter  zahlt  das  Programm  ziemlich  schnell  von  0  bis 
443.  Diese  Zahlen  entsprechen  den  eingelesenen  Zeilen. 
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Kurz  darauf  kfinnen  Sie  lesen: 

1:  Symbol  table  complete  •  1  error  detected 
Memory  usage: 


Labels 

4860  bytes 

Symbols 

3262  bytes 

Total 

59308  bytes 

Excess 

9340  bytes 

Source 

443  lines 

2:  Bypassing 

3:  Error  report: 

CLS  :  PRINT  "Bitte  Oateinamen  eingeben:" 

*****  error  in  tine  00368  [  CLS  :] :  56  -  Statement  not  in  a  subprogram 

block 

4:  Bypassing 

Aha.  Na,  da  kamen  ja  eine  ganze  Menge  Informationen.  Wir 
wollen  mal  der  Reihe  nach  sehen,  was  sie  zu  bedeuten  haben. 
Zun&chst  mal  die  Zahlen  0:,  1:,  2:,  3:  und  4:.  Sie  entsprechen  den 
einzelnen  Stationen,  die  unser  Programm  beim  Compilieren 
durchiauft.  AC/BASIC  ist  ein  sogenannter  2-Pass-Compiler.  Das 
bedeutet,  daB  er  das  Quell-Programm  zum  Compilieren  zweimal 
durchiauft.  Der  erste  Pass  (deutsch:  Durchlauf)  fand  bei  der 
Nummer  1:  statt.  Zum  zweiten  Pass  ist  es  allerdings  gar  nicht 
mehr  gekommen.  AC/BASIC  hat  namlich  einen  Fehler  entdeckt. 
Deshalb  steht  auch  am  Ende  der  Zeile  "1  error  detected". 

Pass  1  dient  AC/BASIC  dazu,  das  Programm  nach  verschiedenen 
Kriterien  zu  untersuchen.  Stellt  der  Compiler  dabei  einen  Error 
fest,  wird  nicht  compiliert.  Den  Fehler  erkiaren  wir  Ihnen  etwas 
spater.  Jetzt  ist  namlich  erstmal  die  "Memory  Usage"  dran.  Der 
Speicherverbrauch  also.  AC/BASIC  gibt  uns  hier  einige  Infor- 
mationen, die  alle  mit  dem  Speicherverbrauch  des  aktuellen 
Quellprogramms  zu  tun  haben. 
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Labels 

Zum  Compilieren  muB  AC/BASIC  samtliche  Labels  kennen,  die 
im  Quellprogramm  vorkommen.  Dazu  legt  der  Compiler  eine 
Label-Tabelle  an.  Die  GrdBe  dieser  Tabelle  in  Bytes  wird  hinter 
"Labels"  angezeigt. 

Symbols 

Auch  die  Variablen,  die  im  Programm  vorkommen,  mussen  von 
AC/BASIC  in  einer  eigenen  Tabelle  verwaltet  werden.  Die  An- 
gabe  hinter  "Symbols"  teilt  uns  die  GrdBe  dieser  Tabelle  in  Bytes 
mit. 

Total 

Hier  sagt  uns  AC/BASIC  wieviel  Speicher  es  selbst  zusammen 
mit  seinem  Arbeitsspeicher  benfltigt.  Vom  gesamten  Speicher  des 
Amiga  belegt  AC/BASIC  inklusive  seiner  Daten  nun  also  knapp 
60  KByte.  Wenn  man  die  Leistungsfahigkeit  des  Programms  be- 
denkt,  ist  das  ziemlich  wenig.  Finden  Sie  nicht? 

Excess 

Hier  steht,  wieviele  Bytes  vom  Arbeitsspeicher  noch  nicht  benfl- 
tigt  wurden.  Die  GrSBe  des  Arbeitsspeichers  laBt  sich  iibrigens 
mit  einem  Schieberegler  im  Haupt-Window  einstellen.  Wenn  es 
mal  beim  Compilieren  Speicherprobleme  gibt,  dann  kflnnen  Sie 
diesen  Wert  einfach  vergroBern. 

Source 

Hier  stehen  zur  Abwechslung  mal  keine  Bytes,  sondern  "lines". 
Diese  Zahl  gibt  an,  aus  wie  vielen  Zeilen  Ihr  Quell-Programm 
besteht.  Da  Sie  diesen  Wert  bei  AmigaBASIC  sonst  nie  erfahren, 
kann  man  da  selbst  manchmal  ganz  schOn  iiberrascht  werden. 
Oder  hatten  Sie  richtig  geschatzt,  daB  unser  Videotitel-Pro- 
gramm  aus  443  Zeilen  besteht? 

Im  Schritt  "2:"  findet  normalerweise  Pass  2  statt.  Da  der  aber 
aufgrund  des  gefundenen  Fehlers  ausfallen  muB,  steht  hier 
"Bypassing".  Das  bedeutet  soviel  wie  "Umleitung"  und  zeigt  an, 
daB  es  ohne  zweiten  Durchlauf  weitergeht. 
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In  3:  erfahren  wir  nun  endlich,  wo  das  Problem  liegt,  das 
AC/BASIC  beim  Compilieren  gefunden  hat.  Der  "Error  Report", 
der  "Fehlerbericht"  also,  ergibt  in  unserem  Fall  folgendes: 

CLS  :  PRINT  "Bitte  Dateinamen  eingeben:" 

Zuerst  zeigt  AC/BASIC  den  Inhalt  der  Zeile,  in  der  der  Fehler 
auftrat.  Dann  erfahren  wir,  daB  dieser  Fehler  in  Zeile  368  auf- 
trat,  und  daB  der  auslflsende  Befehl  das  CLS  war.  Nun  stellt  sich 
naturlich  die  Frage,  was  denn  wohl  nicht  stimmen  mag.  In  der 
abgedruckten  Zeile  laBt  sich  ja  beim  besten  Willen  kein  Fehler 
entdecken. 

Mai  sehen,  was  die  Fehlermeldung  besagt.  Da  steht  "Statement 
not  in  a  subprogram  block".  Der  Befehle  befindet  sich  also  nicht 
innerhalb  eines  SUB...END  SUB-Blocks.  Na  und?  Das  muB  er  ja 
wohl  auch  nicht,  oder?  Nun,  urn  Sie  nicht  lange  auf  die  Folter 
zu  spannen:  Fur  AC/BASIC  muB  er  schon.  Eine  weitere  Anfor- 
derung,  die  der  Compiler  an  seine  Quell-Programme  stellt,  ist 
namlich,  daB  samtlich  SUB-Routinen  am  Programmende  stehen 
miissen.  Bei  AmigaBASIC  ist  das  ja  nicht  unbedingt  so  -  da 
kSnnen  SUB.. .END  SUB-Blocks  nach  Belieben  auch  irgendwo 
mitten  im  Programm  stehen. 

Aus  organisatorischen  Griinden  muB  AC/BASIC  da  etwas  pinge- 
liger  sein.  Uns  bleibt  also  nichts  ubrig,  als  den  SUB.. .END  SUB- 
Block  in  unserem  BASIC-Programm  ans  Programmende  zu  brin- 
gen.  Wir  wollen  das  in  diesem  Fall  selbst  erledigen.  Auf  der 
"AC/BASIC"-Programmdiskette  finden  Sie  aber  auch  ein  BASIC- 
Programm  namens  "sortsubs",  das  Ihnen  diese  Arbeit  abnimmt. 
Das  dauert  dann  zwar  relativ  lang,  kann  aber  bei  sehr  langen 
und  komplexen  Programmen  helfen,  Ihre  Nerven  nicht  uber  Ge- 
buhr  zu  strapazieren. 

Machen  wir  uns  gleich  an  die  ndtigen  Umbau-Arbeiten.  Sie 
brauchen  AC/BASIC  dazu  nicht  zu  verlassen.  Verkleinern  Sie 
das  Window  einfach  ein  wenig  und  schieben  Sie  es  in  eine  Ecke 
des  Bildschirms,  wo  es  Sie  nicht  stort. 


Per  AC '/B ASIC -Compiler 579 


-  Starten  Sie  dann  bitte  AmigaBASIC. 

Wenn  Sie  das  Window  der  "BASICDisk"  vorhin  geschlossen  ha- 
ben,  flffnen  Sie  es  bitte  wieder  und  starten  Sie  AmigaBASIC 
durch  einen  Doppelklick.  Sollten  Sie  bisher  alles  so  gemacht  ha- 
ben,  wie  von  uns  vorgeschlagen,  liegt  die  ASCII- Version  des 
Videotitel-Programms  zur  Zeit  auf  der  RAM-Disk. 

-  Laden  Sie  bitte  dieses  Programm,  indem  Sie  im  BASIC-Win- 
dow  eingeben: 

load  "ram:Videotitel.iff" 

Sobald  das  Programm  geladen  ist  und  im  LIST-Window  er- 
scheint,  geben  Sie  bitte  im  BASIC- Window  ein: 

list  Schleife6: 

Damit  gelangen  Sie  in  unmittelbare  Nahe  des  SUB-Programms 
"Laden".  Das  ist  der  Ubeltater,  den  wir  ans  Programmende  be- 
fflrdern  mussen. 

-  Bitte  markieren  Sie  den  Programmteil  ab  der  Zeile 

SUB  Laden  STATIC 

mit  der  Maus.  Halten  Sie  die  Maus  solange  gedruckt  und  scrollen 
Sie  nach  unten  durch  das  Listing,  bis  Sie  bei  der  Zeile 

END  SUB 

im  Programteil  "EndeLaden:"  angekommen  sind. 

-  Schneiden  Sie  den  markierten  Programmteil  dann  bitte  mit 
der  Option  "Cut"  aus  dem  "Edif'-Menii  aus. 
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Es  wird  einen  Augenblick  dauern,  bis  der  Amiga  diesen  Riesen- 
brocken  geschluckt  hat.  Aber  dann  verschwindet  das  gesamte 
SUB-Programm  aus  dem  Listing.  Es  befindet  sich  nun  im 
Clipboard. 

-  Bitte  springen  Sie  nun  mit  <ALT>  <Cursor  nach  unten>  ans 
Programmende.  Dort  fugen  Sie  dann  bitte  das  ausgeschnittene 
SUB-Programm  mit  der  Option  MPasteM  aus  dem  "Edit"-Pull- 
down  wieder  ein. 

Das  war  schon  alles.  Das  SUB-Programm  steht  nun  ordnungsge- 
maU  am  Ende  des  Listings.  Wenn  Sie  in  Zukunft  Programme  von 
vorneherein  mit  der  Absicht  schreiben,  sie  zu  compilieren,  k6n- 
nen  Sie  die  SUB- Programme  ja  immer  gleich  ans  Ende  schrei- 
ben. 

-  Urn  die  korrigierte  Version  abzuspeichern,  geben  Sie  bitte  im 
BASIC-Window  ein: 

save  "ram:Videotitel.IFF",a 

-  Verlassen  Sie  dann  wieder  AmigaBASIC. 

-  Suchen  Sie  nun  auf  dem  Bildschirm  das  AC/BASIC-Window 
und  ziehen  Sie  es  wieder  auf  voile  Gr6Be. 

-  Wahlen  Sie  dann  erneut  "Open"  aus  dem  "Projecf-Menu.  Im 
daraufhin  erscheinenen  Lade- Requester  sehen  Sie  noch  immer 
den  alten  Programmnamen  "ramrVideotitel.iff1  stehen.  Klicken 
Sie  also  einfach  ins  MOK"-Feld,  urn  die  neue  Version  zu  la- 
den. 

Nun  erscheint  wieder  das  Haupt-Window  von  AC/BASIC.  Die 
Optionen  sind  alle  noch  so  eingestellt  wie  vorhin.  In  der  rechten 
oberen  Bildschirmecke  sehen  Sie  nun  auch  den  Schieberegler  fur 
den  Arbeitsspeicher,  von  dem  wir  vorhin  gesprochen  haben.  Fur 
das  aktuelle  Programm  reichen  die  32  KByte,  die  als  Minimum 
eingestellt  sind,  voll  aus.  Wenn  Sie  jedoch  an  Speicherplatz  nicht 
arm  sind  (also  so  urn  1  MByte  RAM  oder  mehr  besitzen),  dann 
kdnnen  Sie  ja  mal  testhalber  einen  anderen  Wert  einstellen.  Bis 
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zu  224  KByte  reicht  der  Schieberegler.  Das  ist  wichtig  fur  Pro- 
gramme, die  sehr  viele  Variablen  oder  Labels  beinhalten,  sehr 
groB  sind,  oder  aus  vielen  Unterprogramm  bestehen. 
Aber  wie  gesagt:  Fur  das  Videotitel-Programmen  sind  die  stan- 
dardm&Bigen  32  KByte  bereits  mehr  ais  genug. 

-    Klicken  Sie  zum  Compilieren  ins  Feld  "Compile". 

Wieder  erscheinen  Ausgaben  im  ansonsten  leeren  Window  von 
AC/BASIC. 

Diesmal  findet  der  Pass  1  jedoch  keinen  Fehler.  Nach  der  Mel- 
dung  "Symbol  table  complete"  folgt  die  bereits  bekannte  Aus- 
kunft  uber  die  Speicherbelegung.  Und  dann  geht's  folgender- 
maflen  weiter: 

2:  Object  file  complete 

3:  Program  file  complete:  24628  Bytes 

Stack  Size:  4480  Bytes 

Elapsed  time:  0:35  =  761    lines/minute 

Pass  2  meldet  also,  daB  die  erzeugte  Objekt-Datei  vollstandig  ist. 
Und  bei  3:  erfahren  Sie  noch  einiges  zum  abgespeicherten  Er- 
gebnis  des  Compilierens.  Die  Zahl  hinter  "Program  file  com- 
plete:" gibt  die  GroBe  des  erzeugten  Maschinenprogramms  an. 
Unser  Object-Programm  wird  jedoch  nachher  deutlich  grdBer 
sein,  weil  wir  die  Runtime-Library  dazugebunden  haben.  Doch 
dazu  spater  mehr.  Die  "Stack  Size"  gibt  an,  wie  viele  Bytes 
Stack-Speicher  das  erzeugte  Programm  ben6tigt. 

Hinweis:  Wenn  Sie  Ihre  Programme  von  der  Workbench- 
Oberflache  aus  starten,  brauchen  Sie  sich  urn  die 
Stack-GrGBe  nicht  zu  kummern.  Nur  CLI-Anwen- 
der,  die  ihre  Programme  direkt  aus  dem  CLI  aufru- 
fen,  mussen  hier  aufpassen:  Wenn  der  Stack-Bedarf 
eines  Programms  grdfler  ist,  als  der  vom  CLI  bereit- 
gestellte  Stack-Speicher,  lSuft  das  Programm  nicht. 
Mit  ein   wenig   Pech   kann  das   bis   zu   einer  "Guru 
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Meditation"  fuhren.  Wenn  Ihnen  der  Compiler  also 
einen  Stack-Bedarf  meldet,  der  die  standardm&Bigen 
4000  Bytes  des  CLI  tibersteigt,  dann  vergrdBern  Sie 
bitte  diesen  Speicherbereich  mit  dem  CLI-Befehl 
STACK. 

Zu  guter  Letzt  schlieBlich  teilt  Ihnen  AC/BASIC,  nicht  ganz 
ohne  Stolz,  mit,  wie  lange  es  zum  Compilieren  gebraucht  hat.  In 
unserem  Fall  waren  das  35  Sekunden.  Das  ergibt  einen  Schnitt 
von  761  Zeilen  pro  Minute.  Das  ist  schon  ganz  schfln  fix.  Wir 
kennen  jedenfalls  keinen  Ubersetzer,  der  auf  so  einen  Durch- 
schnittswert  kommt. 

Tja.  Damit  haben  Sie  Ihr  erstes  BASIC-Programm  compiliert. 
War  doch  ganz  einfach,  oder?  Sie  kSnnen  AC/BASIC  jetzt  erst- 
mal  durch  Anwahlen  der  "Quif'-Option  im  'Trojecf'-Pulldown 
verlassen,  Schauen  wir  uns  jetzt  mal  das  Ergebnis  des  Compilie- 
rens  an.  Sie  finden  es  auf  der  RAM-Disk  unter  dem  Namen 
"Videotitel.IFF.run".  Das  Icon  mit  seinen  Nullen  und  Einsen 
zeigt  ja  schon  recht  deutlich,  dafl  Sie  es  jetzt  mit  einem  Maschi- 
nenprogramm  zu  tun  haben. 


Bild  23:  Das  Icon  eines  compilierten  Programme 

Dieses  Programm  konnen  Sie  anklicken,  wie  Sie  es  von  alien 
Amiga-Programm  gewohnt  sind.  Da  es  vollig  unabhSngig  von 
AmigaBASIC,  AC/BASIC  oder  irgendwelchen  anderen  Pro- 
grammen  muft,  kdnnten  Sie  es  auch  auf  jede  beliebige  andere 
Diskette  kopieren.  Aus  dem  BASIC-Programm  wurde  ein 
waschechtes,  vollwertiges  Amiga-Maschinenprogramm. 
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Bitte  kopieren  Sie  das  Programm  zunfcchst  von  der  RAM-Disk 
auf  eine  Arbeitsdiskette.  Auch  die  Quell-Version  "Videoti- 
tel.IFF"  sollten  Sie  kopieren.  Ungesicherte  Programmversionen 
fristen  namlich  auf  der  RAM-Disk  ein  ziemlich  gefahrliches 
Dasein.  Sollte  es  aus  irgendwelchen  Grunden  zum  Systemabsturz 
kommen,  war  Ihre  ganze  Arbeit  umsonst.  Und  SystemabstGrze 
sind  bei  den  compilierten  Versionen  leider  gar  nicht  so  selten. 

Bevor  Sie  das  Programm  nun  ausprobieren,  haben  wir  noch  ei- 
nige  Anmerkungen.  Erstens:  Bitte  benutzen  Sie  den  Programm- 
punkt  "Hintergrundbild  festIegenH  noch  nicht!  Die  gegenwSrtige 
Version  sturzt  beim  Einlesen  eines  IFF-Bilds  ab.  Warum  das  so 
ist,  und  was  man  dagegen  tun  kann,  erfahren  Sie  im  nachsten 
Kapitel. 

Wir  haben  aber  auch  eine  gute  Nachricht:  Wenn  Sie  ein  Grafik- 
objekt  einlesen,  z.B.  "BASICDisk:Videotitel/Star"  und  dieses 
Objekt  dann  auf  dem  Bildschirm  positionieren,  wird  Ihnen  auf- 
fallen,  daB  das  Objekt  nun  gar  nicht  mehr  flackert.  Bei  Pro- 
grammen,  die  Sie  mit  AC/BASIC  compiliert  haben,  f&llt  das 
Flackern  der  Bobs  auf  PAL-Amigas  weg!  Toll,  nicht?  Das  liegt 
ubrigens  vermutlich  daran,  daB  Absoft  zur  Objekt-Bewegung 
die  entsprechenden  Betriebssystem-Routinen  verwendet,  wohin 
Microsoft  eigene  zeitkritische  Routinen  fur  AmigaBASIC  ge- 
schrieben  hat. 

Sie  kflnnen  ja  nun  mal  einen  Videotitel  erzeugen.  Beobachten  Sie 
dabei,  an  welchen  Stellen  das  Programm  schneller  ist  als  vorher. 
Und  bitte  halten  Sie  sich  zunfcchst  noch  vom  Einlesen  von  Hin- 
tergrundbildern  fern. 

Nur  einen  Hinweis  sollten  wir  Ihnen  noch  geben:  Namlich  wie 
Sie  das  compilierte  Programm  wieder  verlassen  kflnnen.  Das  ist 
allerdings  nicht  allzu  schwierig.  Wenn  Sie  die  rechte  Maustaste 
drucken,  entdecken  Sie  im  compilierten  Programm  ein  "Project"  - 
Pulldown.  Dessen  einziger  Menupunkt  ist  "Quit".  Wahlen  Sie  also 
"Quit",  urn  das  Programm  zu  beenden.  Sie  k6nnen  statt  dessen 
ubrigens  auch  ins  SchlieBsymbol  des  Windows  klicken.  Wenn  das 
Programm    gerade    auf   eine    Tastatureingabe    wartet,    also    der 
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Cursor  hinter  einem  Fragezeichen  steht,  mussen  Sie  zusatzlich 
nach  der  Anwahl  von  "Quit"  noch  diese  Eingabe  beenden. 
Driicken  Sie  dazu  einfach  die  <RETURN>-Taste. 


8.3        Die  KammerjMger  im  Computer  -  Debugging 

Das  hat  ja  bisher  alles  ganz  gut  geklappt.  Aber  so  vflllig  pro- 
blemlos  ist  das  Compilieren  von  BASIC- Programmen  nun  auch 
wieder  nicht.  Wir  wollen  Ihnen  das  zunSchst  beweisen. 

Bitte  speichern  Sie  alle  ungesicherten  Programme  und  Daten  ab. 
Beenden  Sie  dann  alle  Programme,  die  Sie  vielleicht  im  Rahmen 
von  Multitasking  benutzen.  Und  starten  Sie  dann  die  compilierte 
Version  "Videotitel.IFF.run".  Dieses  Experiment  klappt  ubrigens 
nur,  wenn  Sie  den  AC/BASIC-Compiler  selbst  besitzen,  und  das 
Beispiel  aus  dem  letzten  Kapitel  selbst  compiliert  haben.  In  den 
Versionen  auf  der  beiliegenden  Diskette  haben  wir  nSmlich  die 
Fehler  soweit  irgend  moglich  behoben. 

Wenn  das  Programm  lfcuft,  erstellen  Sie  bitte  einen  kleinen  Vi- 
deotitel.  Geben  Sie  sich  dabei  aber  nicht  zuviel  Muhe,  das  Er- 
gebnis  wird  namlich  nicht  lange  uberleben.  Wahlen  Sie  dann  mit 
Menupunkt  6  die  Option  "Hintergrundbild  festlegen"  und  geben 
Sie  dort  ein,  daB  hinter  Ihrem  Videotitel  irgendein  IFF-Bild 
gezeigt  werden  soil. 

Ja,  und  dann  starten  Sie  den  Titel  mit  Option  5.  Zuerst  klappt 
alles  wie  gewohnt:  Der  Countdown  zahlt  riickw^rts  von  10  nach 
0.  Sobald  er  dort  angekommen  ist,  lauft  das  Diskettenlaufwerk 
an,  von  dem  Ihr  IFF-Bild  geladen  werden  soil.  Doch  dann  ist  es 
nur  noch  eine  Frage  von  Sekunden,  bis  die  Meldung 

Software  error  -  task  held 
Finish  ALL  disk  activity 
Select  CANCEL  to  reset/debug 

CMC  CANCEL 
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auf  dem  Bildschirm  erscheint.  Vielleicht  kam  es  auch  gar  nicht 
mehr  so  weit  und  die  beriihmt-beruchtigte  "Guru  Meditation" 
erscheint  gleich  auf  dem  Bildschirm.  Driicken  Sie  bitte  die 
rechte  Maustaste,  um  den  "Software  error"  zu  bestatigen  und 
dann  die  linke  Maustaste,  um  nach  dem  "Guru"  Ihren  Amiga  neu 
zu  booten. 

Was  Sie  da  eben  erlebt  haben,  nennen  die  Software-Leute  einen 
"Bug".  Dieses  englische  Wort  bedeutet  auf  deutsch  "Kafer, 
Wanze".  Gemeint  ist  aber  ein  Programmfehler.  Stellt  sich  die 
Frage,  was  die  kleinen  Tierchen  mit  einem  Programmabsturz  zu 
tun  haben  sollen.  Daruber  gibt  es  eine  sehr  beliebte  Geschichte 
aus  den  Anf&ngen  der  Computerei.  Seinerzeit  gab  es  namlich 
noch  keine  Mikrochips.  Die  Computer  der  ersten  Generation 
waren  grCBtenteils  aus  Rflhren  aufgebaut  und  fullten  leicht 
ganze  Fabrikhallen.  DaB  die  damals  trotzdem  noch  deutlich  we- 
niger  leisteten  als  heute  zum  Beispiel  ein  VC-20,  haben  Sie  ja 
sicher  auch  schon  gehflrt.  Trotzdem  wurden  diese  Maschinen 
schon  fleiBig  eingesetzt,  um  z.B.  mathematische  Funktionen  zu 
berechnen  oder  die  Lieblingszahlen  der  Mathematiker  wie  e  oder 
Pi  auf  mehrere  hundert  Stellen  auszurechnen. 

Als  nun  eines  Tages  eines  dieser  Programme  mal  wieder  den 
Geist  aufgab  (und  mit  ihm  ein  Teil  des  Computers),  entdeckten 
die  Techniker  einen  kleinen  KSfer,  der  es  sich  in  einer  der 
Schaltungen  bequem  gemacht  hatte.  Seitdem  ist  "Bug"  die  Stan- 
dardbezeichnung  fur  Softwarefehler.  Und  der  Vorgang  des  Feh- 
ler-Behebens  heiBt  konsequenterweise  "Debugging"  -  "Entwan- 
zen".  Aus  diesem  Grund  kdnnen  sich  Programmierer  also  mit 
Fug  und  Recht  als  Computer-Kammerjager  bezeichnen. 

Widmen  wir  uns  also  dem  Bug,  der  unser  Programm  so  richtig 
satt  zum  Absturz  gebracht  hat.  Der  Absturz  ist  ja  eigentlich  sehr 
seltsam,  denn  in  der  BASIC- Version  lief  das  Programm  doch 
noch  einwandfrei.  Es  muB  also  durch  das  Compilieren  irgendet- 
was  schiefgelaufen  sein. 

Mit  diesen  Uberlegungen  machten  wir  uns  auf  die  Suche.  Bei 
einigen  anderen  Experimented  mit  dem  Malprogramm  oder  der 
IFF-Leseroutine  stellten  wir  fest,  daB  die  compilierten  Versio- 
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nen  immer  dann  absturzen,  wenn  sie  den  BODY-Chunk  einer 
IFF-Datei  einlesen  sollen.  Die  traurige  Nachricht  ist  also,  daC 
zumindest  die  gegenwfcrtig  vorliegende  Version  von  AC/BASIC 
(Version  1.2  vom  10.  April  1987)  noch  einige  gravierende  Fehler 
beim  Compilieren  macht.  Und  diese  Fehler  kflnnen  recht  schnell 
zu  einem  Systemabsturz  fuhren. 

Bei  unseren  weiteren  Experimenten  haben  wir  den  Fehler 
schlieBlich  eingekreist:  Die  Programme  sind  immer  dann  abge- 
sturzt,  wenn  die  Funktion  CVL  eingesetzt  wurde.  Sie  erinnern 
sich:  Mit  CVL  ("Convert  Long")  wandeln  wir  in  unserer  IFF- 
Routine  4  eingelesene  Bytes  in  eine  32-Bit-Zahl  urn,  die  wir 
dann  mit  POKEL  in  den  Speicher  bringen. 

Uns  bleibt  also  bei  der  gegenwSrtigen  Version  von  AC/BASIC 
nichts  anderes  ubrig,  als  auf  CVL  zu  verzichten.  Das  ist  gluck- 
licherweise  nicht  ganz  so  schlimm,  weil  der  Befehl  CVI  (Um- 
wandeln  von  2  Bytes  in  einen  16-Bit-Wert)  auch  nach  dem 
Compilieren  ordnungsgemaB  funktioniert. 

Um  die  IFF-Leseroutine  auch  nach  dem  Compilieren  funkti- 
onsfahig  zu  halten,  mussen  wir  also  eine  Anderung  vornehmen. 

-  Bitte     laden     Sie     das     Quellprogramm     "VideotiteLifP     in 
AmigaBASIC. 

-  Geben  Sie  im  BASIC-Window  ein: 

list  BodyMap: 

-  Andern  Sie  den  Programmteil 

FOR  x1=0  to  9 
POKEL  Ebnadr(b)+4*x1+40*y1,CVL(INPUT$(4,D) 

NEXT  x1 
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so,  daB  er  foIgendermaBen  aussieht: 

FOR  x1=0  TO  19 

POKEW  Ebnadr(b)+2*x1+40*y1 ,CVI ( INPUT$(2, 1 ) ) 
NEXT  x1 

Nun  werden  immer  nur  noch  2  Bytes  eingelesen,  die  mit  CVI 
umgewandelt  und  mit  POKEW  in  den  Speicher  gebracht  werden. 
Die  ganze  Aktion  wird  damit  zwar  leider  etwas  langsamer,  aber 
wenigstens  lauft  das  Programm  nun  auch  nach  dem  Compilieren, 
anstatt  anzustiirzen. 

Der  Befehl  CVL  kommt  jedoch  noch  an  zwei  anderen  Stellen  im 
Programm  vor.  Einmal  in  dem  Programmteil,  der  mit  SUB  La- 
den STATIC  beginnt  und  einmal  im  Teil  "Einlesen:'1.  Bitte  er- 
setzen  Sie  in  beiden  Programmteilen  die  Zeilen 

Laenge=CVL( INPUT$(4, 1 )) 

jeweils  durch  die  Zeile 

Laenge=CVI(INPUT$(2,1))*65536+CVI(INPUT$(2,1)) 

Wir  berechnen  den  32-Bit-Wert  aus  zwei  16-Bit-Zahlen  und 
vermeiden  so  den  CVL-Befehl.  Bevor  Sie  das  Programm  ab- 
speichern  und  compilieren,  sollten  Sie  es  zunSchst  in 
AmigaBASIC  testen.  Dabei  wurden  sich  dann  eventuelle  Tipp- 
fehler  zeigen. 

-  Wenn   alles   ordnungsgemaB   funktioniert,   speichern   Sie   die 
Version  bitte  mit 

save  "Videotitel.IFF",a 
zuruck  auf  Diskette  und  verlassen  Sie  dann  AmigaBASIC. 

-  Kopieren  Sie  das  Quellprogramm   von   Ihrer   Arbeitsdiskette 
auf  die  RAM-Disk,  und  starten  Sie  dann  AC/BASIC. 
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-  Bitte  compilieren  Sie  Mram:Videotitel.IFF.  Vergessen  Sie  dabei 
nicht,  die  Option  "R    Link  Run-time"  anzuklicken. 

-  Kopieren  Sie  nach  dem  Compilieren  "Videotitel.IFF.run"  von 
der  RAM-Disk  auf  Ihre  Arbeitsdiskette. 

Jetzt  k6nnen  Sie  das  compilierte  Videotitel-Programm  nach 
Herzenslust  ausprobieren.  Auch  das  Einlesen  von  Hintergrund- 
bildern  funktioniert  nun  einwandfrei.  Eine  typische  IFF-Datei 
haben  wir  mit  der  compilierten  Version  in  etwa  40  Sekunden 
eingelesen.  Zum  Vergleich:  Die  uncompilierte  Ur- Version  (in 
der  4  Bytes  auf  einmal  gelesen  werden  konnten)  ben5tigt  93 
Sekunden. 

Beim  Ausprobieren  kflnnen  Sie  auch  gut  testen,  an  welchen 
Stellen  sich  der  Compiler  bemerkbar  macht.  Im  Menupunkt  4 
(Farben  festlegen)  zum  Beispiel  geht  das  Verschieben  der 
Farbregler  liber  die  Tastatur  deutlich  schneller.  Auch  die  Ob- 
jektbewegung  bei  der  Wiedergabe  des  Titels  ist  leicht 
beschleunigt. 

Wir  wollen  aber  nicht  verschweigen,  daB  das  Programm  bei  un- 
seren  Tests  von  Zeit  zu  Zeit  trotzdem  absturzte.  Besonders  hau- 
fig  war  das  dann  der  Fall,  wenn  wir  fertige  Titelsequenzen  von 
Diskette  eingelesen  haben.  Es  ist  uns  nicht  gelungen,  einen  spe- 
zifischen  Fehler  zu  finden,  der  diese  Abstiirze  verursacht.  Of- 
fenbar  hat  die  aktuelle  AC/BASIC-Version  beim  Einlesen  von 
Daten  von  Diskette  grundsatzlich  Schwierigkeiten. 

In  diesem  Zusammenhang  mflchten  wir  aber  darauf  hinweisen, 
dafl  die  KSufer  von  AC/BASIC  von  Absoft  uber  einen  Update- 
Service  oder  sogenannte  Patches  versorgt  werden,  wenn  es  neue 
verbesserte  Versionen  des  Compilers  gibt.  Es  ist  sicher  nur  eine 
Frage  der  Zeit,  bis  Absoft  die  Fehler  beim  Einlesen  von  Dis- 
kette erkannt  und  behoben  hat. 
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8.4        Sie  haben  die  Wahl  -  Die  Compiler-Optionen  von 
AC/BASIC 

Nachdem  Sie  jetzt  Ihre  ersten  eigenen  Erfahrungen  mit 
AC/BASIC  gemacht  haben,  wollen  wir  ins  Haupt-Window  des 
Compilers  zuruckkehren  und  Ihnen  die  verschiedenen  Optionen 
erklSren,  die  Ihnen  beim  Compilieren  zur  Verfiigung  stehen. 

Die  meisten  Programme  lassen  sich  mit  der  Einstellung,  die  wir 
Ihnen  vorgeschlagen  haben  (Optionen  C,  N,  R  und  T  aktiv)  pro- 
blemlos  compilieren.  Sie  sollten  auf  jeden  Fall  wissen,  was  diese 
Optionen  bewirken.  Wer  sich  naher  mit  AC/BASIC  beschaftigen 
m&chte,  ist  sicher  auch  an  den  anderen  M6glichkeiten  und  ihrer 
Bedeutung  interessiert.  Allen  Besitzern  von  AC/BASIC  empfeh- 
len  wir  jedoch  unbedingt,  die  Informationen  im  Handbuch  zu 
lesen,  da  dort  noch  einige  wertvolle  Tips  und  Erkiarungen  gege- 
ben  werden.  Wir  wollen  in  unserem  Buch  nur  eine  Ubersicht 
liber  die  Mdglichkeiten  geben. 

Wie  eine  bestimmte  Option  an-  bzw.  ausgeschaltet  wird,  wissen 
Sie  schon:  Durch  Klicken  in  das  Kastchen  vor  einer  Option 
schalten  Sie  den  jeweiligen  Punkt  an.  Zur  Kontrolle  wird  das 
Kastchen  orange  ausgemalt.  Ein  weiterer  Klick  schaltet  die  Op- 
tion wieder  ab  -  das  Kastchen  ist  wieder  blau.  Die  Optionen 
bleiben  solange  eingestellt,  wie  Sie  den  AC/BASIC-Compiler  be- 
nutzen.  Sobald  Sie  ihn  jedoch  verlassen,  vergiBt  er  auch  die  ein- 
gestellten  Optionen.  Sie  kflnnen  aber  durch  einen  Klick  ins 
"SAVEM-Kastchen  rechts  unten  im  Haupt-Window  die  aktuellen 
Einstellungen  auf  der  Compiler-Diskette  abspeichern.  Beim 
nachsten  Start  des  Programms  sind  Ihre  Optionen  dann  vorein- 
gestellt. 

C    Enable  Run-time  Tests 

(Runtime-Tests  durchfiihren)  Wenn  Sie  diese  Option  anwahlen, 
fuhrt  das  compilierte  Programm  wahrend  des  Ablaufs  Fehler- 
kontrollen  durch,  so  wie  Sie  das  vom  AmigaBASIC-Interpreter 
gewohnt  sind.  Tritt  dann  wahrend  des  Programmablaufs  ein 
Fehler  auf,  erscheint  eine  Fehlermeldung  im  aktuellen  Ausgabe- 
window.  Diese  Fehlermeldungen  sind  im  Gegensatz  zu  Amiga- 
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BASIC  keine  Klartext-Meldungen,  sondern  lediglich  Fehler- 
nummern.  Die  Bedeutung  dieser  Fehlernummern  k5nnen  Sie  im 
AC/BASIC-Handbuch  im  Anhang  F  nachlesen.  Der  Nachteil 
dieser  Fehleruberprufungen  ist,  daB  sie  die  Verarbeitungsge- 
schwindigkeit  eines  Programms  deutlich  bremsen  kdnnen.  Wenn 
es  Ihnen  auf  hohe  Geschwindigkeit  ankommt,  sollten  Sie  diese 
Option  deshalb  abschalten. 

N    Process  Run-time  Events 

(Runtime-Events  verarbeiten).  Bei  dieser  Option  geht  es  urn 
Event  Trapping.  Wenn  ein  Programm  Event  Trapping  benutzt, 
miissen  Sie  diese  Option  anschalten.  Der  Compiler  schreibt  das 
Maschinenprogramm  dann  so,  daB  standig  die  mdglichen  Events 
uberpruft  werden.  Wenn  Sie  diese  Option  ausschalten,  kann  das 
Object-Programm  kein  Event  Trapping  durchfuhren.  Wenn  in 
Ihrem  Programm  OBJECT-Befehle  vorkommen,  muB  die  N-Op- 
tion  unbedingt  aktiviert  sein. 

R    Link  Run-time 

(Runtime-Library  einbinden)  Damit  ein  compiliertes  Programm 
laufen  kann,  ist  eine  Bibliothek  aus  verschiedenen  Maschinen- 
routinen  nfltig.  Wir  haben  dariiber  schon  kurz  im  Kapitel  8.2 
gesprochen.  In  dieser  sogenannten  "Runtime-Library"  stehen 
verschiedene  Funktionen,  die  das  Object-Programm  aufrufen 
muB. 

Sie  haben  nun  zwei  Mflglichkeiten:  Entweder  Sie  aktivieren  die 
Option  R  (so  wie  wir  das  bisher  immer  gemacht  haben)  und 
binden  damit  die  Runtime-Library  automatisch  in  Ihr  Programm 
mit  ein.  Der  Vorteil  dieses  Systems  ist,  daB  das  compilierte  Pro- 
gramm dann  eigenstandig  und  vdllig  unabhangig  laufen  kann. 
Der  Nachteil  ist  der  ben5tige  Speicherplatz.  Die  Runtime-Li- 
brary ist  ca.  40  KByte  lang  und  diese  40  KByte  kommen  zur 
Lange  des  erzeugten  Maschinenspracheprogramms  dazu.  Ihre 
Object-Dateien  werden  daher  ziemlich  groB. 
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Die  Alternative  besteht  darin,  die  R-Option  auszuschalten.  So- 
bald  Ihr  Maschinenprogramm  geladen  ist,  sucht  es  dann  im  ak- 
tuellen  L-Verzeichnis  seine  Runtime-Library.  Dabei  handelt  es 
sich  entweder  urn  die  Datei  BAS.DL  oder  die  Datei  BAS.RL,  je 
nachdem  welche  Mathe-Routinen  Sie  mit  der  Option  D  ausge- 
wShlt  haben.  Der  Nachteil  besteht  darin,  daJ3  Sie  dafiir  sorgen 
mussen,  dafl  Ihr  Programm  die  gesuchte  Runtime-Datei  in  je- 
dem  Fall  findet.  Dafur  sparen  Sie  aber  auch  wieder  eine  ganze 
Menge  Speicherplatz  auf  Diskette.  Wenn  Sie  mehrere  compilierte 
Dateien  auf  einer  Diskette  haben,  lohnt  es  sich,  ein  L-Verzeich- 
nis  anzulegen  und  die  Runtime-Library  dort  hineinzukopieren. 

T    Temporaries  on  RamDisk 

(tempore  Dateien  auf  der  RAM-Disk  anlegen)  Wahrend  der 
Compiler  Ihr  Programm  bearbeitet,  legt  er  verschiedene  tem- 
pore Arbeitsdateien  an.  Diese  Dateien  werden  nach  dem  Com- 
pilieren  wieder  automatisch  geldscht.  Mit  der  T-Option  konnen 
Sie  AC/BASIC  veranlassen,  diese  temporSren  Dateien  auf  der 
RAM-Disk  anzulegen.  Das  Compilieren  geht  dann  wesentlich 
schneller,  weil  die  Zugriffszeiten  auf  die  RAM-Disk  viel  kurzer 
sind  als  die  auf  eine  Diskette  oder  die  Festplatte.  Schwierigkei- 
ten  kann  es  allerdings  geben,  wenn  Sie  nicht  genug  Speicherplatz 
zur  Verfugung  haben.  Wenn  AC/BASIC  eine  entsprechende 
Meldung  bringt  oder  der  Requester  "Volume  RAM  is  full"  er- 
scheint,  mussen  Sie  Ihre  temporBren  Dateien  wohl  oder  libel  auf 
eine  Diskette  auslagern  und  die  T-Option  abschalten. 

A    Use  Long  Addressing 

(32-Bit-Adressierung  verwenden)  Hier  geht  es  urn  die  Anzahl  an 
Bytes,  die  im  Maschinenprogramm  fur  die  Angabe  einer  Spei- 
cheradresse  verwendet  werden.  Im  Normalfall  lassen  Sie  diese 
Option  einfach  ausgeschaltet.  Der  Compiler  arbeitet  dann  mit 
16-Bit-Adressen. 
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Sollte  sich  wfchrend  des  Compilierens  herausstellen,  daB  diese  16 
Bit  fur  die  Adressierung  nicht  ausreichen,  bringt  der  Compiler 
eine  entsprechende  Meldung: 

Address  out  of  16  bit  range  -  use  A  option 

In  diesem  Fall  schalten  Sie  die  A-Option  ein.  Durch  die  Ver- 
wendung  von  32-Bit-Adressen  wird  der  Object-Code  etwas 
grftBer. 

D    Compile  for  Decimal  Math 

(Dezimalmodus  fur  Mathe-Berechnungen)  Diese  Option  geht 
schon  ziemlich  ans  Eingemachte.  Mit  ihr  kdnnen  Sie  die  interne 
Darstellung  von  Zahlen  beeinflussen.  AmigaBASIC  benutzt  nor- 
malerweise  eine  Bin&r-Darstellung.  AC/BASIC  bietet  alternativ 
dazu  eine  Dezimal-Darstellung,  die  Sie  mit  der  D-Option  an- 
wahlen  kflnnen.  Wenn  Sie  sich  fur  dieses  Thema  naher  interes- 
sieren,  mflchten  wir  Sie  auf  den  Anhang  D  des  Commodore- 
AmigaBASIC-Handbuchs  und  auf  den  Anhang  A  des 
AC/BASIC-Handbuchs  verweisen. 

Im  Normalfall  sollten  Sie  diese  Option  ausgeschaltet  lassen.  Wenn 
Sie  Binar-Darstellung  verwenden,  benotigt  Ihr  Programm  die 
Runtime-Library  BAS.RL.  Bei  Dezimal-Darstellung  ist  es  die 
Datei  BAS.DL. 

£    Generate  Errors  List 

(Fehler-Datei  erzeugen)  Mit  dieser  Option  beauftragen  Sie 
AC/BASIC,  die  Fehlermeldungen,  die  in  Pass  1  auftreten,  nicht 
auf  den  Bildschirm,  sondern  in  eine  Datei  zu  schreiben.  Wenn  in 
Ihrem  Programm  sehr  viele  Fehler  auftreten,  ist  die  Datei  uber- 
sichtlicher  und  kann  mehrfach  durchgelesen  werden. 
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I    List  Include  Statements 

(Include-Befehle  auflisten)  Wenn  Sie  einige  Erfahrung  mit 
AC/BASIC  gesammelt  haben,  kdnnen  Sie  weitergehende  M6g- 
lichkeiten  anwenden.  Dazu  gehflrt  z.B.  das  Einbinden  von  ande- 
ren  BASIC-Programmen  w&hrend  des  Compilierens.  Der  dafiir 
zustandige  Befehl  heiflt  INCLUDE  ("Einfugen")  und  wird  im 
AC/BASIC-Handbuch  beschrieben.  Mit  dieser  Option  kflnnen 
Sie  die  INCLUDE-Befehle  in  eine  List-Datei  ausgeben  lassen. 
Wenn  beim  Compilieren  Probleme  auftreten,  kdnnen  diese  In- 
formationen  hilfreich  sein. 

L    Generate  Full  List 

(komplettes  Listing  erzeugen)  Wenn  Sie  diese  Option  anklicken, 
erzeugt  der  Compiler  ein  komplettes  Listing  Ihres  Quell-Pro- 
gramms.  Dieses  Listing  wird  in  einer  Datei  abgelegt,  die  den 
Namen  Ihres  Quell-Programms  urn  ".1st"  erweitert  hat.  Wenn 
Fehler  auftreten,  druckt  AC/BASIC  sie  direkt  unter  die  betrof- 
fene  Zeile. 

S    Generate  Symbol  File 

(Variablendatei  erzeugen)  Diese  Option  wird  erst  in  Zukunft 
interessant,  wenn  Absoft  mdglicherweise  Hilfprogramme  zum 
Debugging  anbietet. 

U    Default  Arrays  to  Static 

(Nur  statische  Datenfelder  verwenden)  Im  Gegensatz  zum 
AmigaBASIC-Interpreter  kann  AC/BASIC  Datenfelder  statisch 
verwalten.  Das  bedeutet,  diese  Datenfelder  kflnnen  nicht  mehr 
geldscht  oder  neu  dimensioniert  werden.  Dadurch  werden  dem 
Object-Code  komplizierte  Berechnungen  erspart,  wodurch  die 
Programme  unter  Umstanden  deutlich  schneller  laufen.  Naheres 
dazu  finden  Sie  im  AC/BASIC-Handbuch. 
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Das  waren  sie,  die  Compiler-Optionen  von  AC/BASIC.  Zusatz- 
lich  gibt  es  auch  noch  die  M8glichkeit,  ins  Programmlisting  so- 
genannte  "Metacommands"  einzufugen,  die  bestimmte  Optionen 
fur  einzelne  Bereiche  Ihres  Source-Codes  steuern.  Diese  M6g- 
lichkeiten  fiihren  jedoch  fur  dieses  Kapitel  zu  weit.  Im  Hand- 
buch  zu  AC/BASIC  sind  sie  alle  ausfuhrlich  beschrieben. 

In  den  folgenden  Kapiteln  wollen  wir  Ihnen  nun  noch  einige 
Tips  zum  Compilieren  einiger  Programme  aus  diesem  Buch  ge- 
ben. 


8.5        Der  schnelle  Pinsel  -  Compilieren  des  Malprogramms 

Wenn  Sie  unser  AmigaBASIC-Malprogramm  compilieren  wollen, 
gibt  es  eigentlich  nur  eine  grflBere  Schwierigkeit  zu  umschiffen. 
Und  selbst  die  haben  Sie  schon  kennengelernt.  Problematisch  1st 
in  der  aktuellen  Version  von  AC/BASIC  der  Fehler  beim  Befehl 
CVL,  der  die  IFF-Leseroutine  zum  Absturz  bringt. 

Laden  Sie  also  bitte  das  Malprogramm  in  AmigaBASIC,  geben 
Sie 

list  BodyMap: 

ins  BASIC-Window  ein  und  verfcndern  Sie  die  Programmzeilen 

FOR  x1=0  TO  9 
POKEL  Ebnadr(b)+4*x1+40*y1,CVL(INPUT$(4,1)) 

NEXT  x1 

so,  daB  sie  folgendermaBen  aussehen: 

FOR  x1=0  TO  19 
POKEW  Ebnadr(b)+2*x1+40*y1,CVI<INPUT$<2,1>> 

NEXT  x1 
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Wie  schon  im  Videotitel-Programm,  kommt  auch  im  Malpro- 
gramm  der  Befehl  CVL  an  noch  zwei  anderen  Stellen  vor.  Nam- 
Jich  im  Teil  "Laden:"  und  im  Teil  "Einlesen:".  Bitte  ersetzen  Sie 
in  diesen  beiden  Programmteilen  die  Zeilen 

Laenge=CVL(INPUT$(4,1)) 

jeweils  durch  die  Zeile 

Laenge=CVI(INPUT$(2#1))*65536+CV!(INPUT$(2,1)) 

Auch  beim  Abspeichern  von  IFF-Grafiken  mussen  Sie  etwas 
verandern.  Im  Programmteil  "Speichern:"  finden  Sie  die  Zeile 

OPEN  Nam$  FOR  OUTPUT  AS  1  LEM  =  FRE(0)-500 

Mit  dieser  Zeile  haben  wir  in  unserem  Programm  den  verblei- 
benden  BASIC-Speicher  bis  auf  500  "Sicherheits-Bytes"  als  Aus- 
gabepuffer  fur  unsere  Datei  genutzt.  Die  Funktion  FRE(O)  lie- 
ferte  uns  dabei  den  noch  nicht  belegten  BASIC-Speicher.  Bei 
compilierten  Programmen  gibt  es  keinen  BASIC-Speicher. 
AC/BASIC  liefert  bei  FRE(O)  und  FRE(-l)  immer  denselben 
Wert,  namlich  den  verbleibenden  Systemspeicher.  Wenn  Sie  aber 
versuchen,  Speicherbereiche  in  der  GrflBenordnung  von  mehre- 
ren  100K  als  Ausgabepuffer  zu  verwenden,  erhalten  Sie  vom 
compilierten  Programm  einen  *****  Error  6",  was  einem  "Over- 
flowM-Error  entspricht. 

Die  einfachste  Methode,  dieses  Problem  zu  umgehen,  besteht 
darin,  die  LEN-Eingabe  einfach  zu  lflschen.  Ubrig  bleibt  in  der 
genannten  Zeile: 

OPEN  Nan*  FOR  OUTPUT  AS  1 

Nach  diesen  Anderungen  sollte  die  compilierte  Version  pro- 
blemlos  laufen.  Deutliche  Geschwindigkeitsverbesserungen  mer- 
ken  Sie  besonders  beim  Aufbau  der  Windows  fur  "Farben  an- 
dern"   und   "Muster   andern"   und   den   Einstellungen    in   diesen 
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Windows.  Auch  das  Einlesen  und  Abspeichern  von  IFF-Grafiken 
geht  schneller  als  in  der  uncompilierten  Version.  Viel  SpaB  beim 
Ausprobieren! 


8.6        Der  schnelle  Blick  -  das  Balken-  und  Tortengrafik- 
Utility 

Ob  sich  das  Compilieren  unserer  Statistikdaten-Verwaltung 
lohnt,  daruber  kdnnte  man  schon  geteilter  Meinung  sein.  Im 
iiberwiegenden  Teil  der  Zeit  ist  das  Programm  mit  Disketten- 
operationen  oder  dem  Erstellen  von  Grafiken  besch&ftigt.  Deut- 
liche  Geschwindigkeitsunterschiede  durfte  man  hochstens  im 
Editor  erwarten.  Da  beim  Compilieren  dieses  Programms  aber 
einige  typische  Probleme  auftreten,  wollten  wir  es  doch 
besprechen. 

Mit  dem  SUB-Programm  "PicSave"  gibt  es  erfreulicherweise 
keine  Probleme,  da  es  sowieso  schon  am  Programmende  steht. 
Sie  mussen  lediglich  im  Quell-Programm  in  der  HPicSaveM- Rou- 
tine die  Zeile 

OPEN  Nan*  FOR  OUTPUT  AS  1   LEN  =  FRE(0)-500 

gegen  die  Zeile 

OPEN  Nan*  FOR  OUTPUT  AS  1 

ersetzen.  Dieses  Problem  und  seine  Ldsung  kennen  Sie  schon 
vom  Malprogramm.  Beim  ersten  Versuch,  dieses  Programm  zu 
compilieren,  meldet  Pass  1  jedoch  zwei  Fehler: 

RUN 
*****  error  in  line  00290  C   RUN]:  43  -  Unexpected  end  of  statement 

IF  FeldJN%=1  THEN  SHARED  FarbenXO 
*****  error  \n   nne  00362  [HARED  ] :  16  -  Illegal  statement  ordering 
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Beide  Fehler  hangen  wieder  mit  Eigenheiten  von  AC/BASIC 
zusammen.  Zum  einen  erlaubt  AC/BASIC  den  RUN-Befehl 
nicht  in  der  Form,  wie  wir  den  Befehl  benutzt  haben.  Der  Com- 
piler versteht  bloB  die  Form  RUN  (Programmname),  die  er  dazu 
nutzt,  ein  anderes  Programm  nachzuladen.  Wir  benutzen  den 
RUN-Befehl  im  Programmteil  "DatenLoeschen:",  weil  er  der 
schnellste  Weg  ist,  den  Speicher  zu  lflschen  und  das  Programm 
neu  zu  starten.  Fur  den  Compiler  mussen  wir  diesen  RUN-Be- 
fehl durch  die  Zeile 

CLEAR  :  GOTO  Vorbereitungen 

ersetzen.  Der  zweite  Fehler  tritt  innerhalb  der  "PicSave"-Routine 
am  Programmende  auf.  Aufgrund  der  Organisation  von  Daten- 
feldern  unter  AC/BASIC  erlaubt  der  Compiler  den  SHARED- 
Befehl  nicht  hinter  IF...THEN-Ausdriicken  oder  anderen  Bedin- 
gungen.  In  diesem  Programm  ist  das  nicht  weiter  schlimm.  Sie 
k6nnen  die  Zeile 

IF  FeldJN%=1  THEN  SHARED  Farben%() 

ersatzlos  loschen.  Denn  die  "PicSave"-Routine  wird  vom  Haupt- 
programm  sowieso  mit  dem  Parameter  FeldJN%=0  aufgerufen. 
Das  heiBt,  das  SUB-Programm  soil  seine  eigene  Farbtabelle  an- 
legen  und  zum  Abspeichern  verwenden.  Da  in  den  folgenden 
Programmzeilen  ein  ERASE-Befehl  vorkommt,  durfen  Sie  das 
Statistikdaten-Programm  nicht  mit  eingeschalteter  U-Option 
("Default  Arrays  to  STATIC")  compilieren. 

Die  Unterschiede  in  der  Behandlung  von  Datenfeldern  zwischen 
dem  Interpreter  und  dem  Compiler  machen  es  auBerdem  not- 
wendig,  dafl  Sie  im  Programmteil  "Vorbereitungen:"  auch  das 
Feld  'Farben%'  dimensionieren.  Und  zwar  im  SHARED-Modus, 
also  auch  fur  Verwendung  in  SUB-Programmen.  AmigaBASIC 
hat  diese  Dimensionierung  bei  der  ersten  Verwendung  des  Felds 
automatisch  vorgenommen.  Das  tut  AC/BASIC  nicht.  Die  ersten 
drei  Zeilen  des  Listings  mussen  also  so  aussehen: 
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Vorbereitungen: 
DIM  Nunmer$<58>,Bez$(58>,Zahl$<58> 
DIM  SHARED  FarbenX<31,2) 

Das  Programm  lSuft  nach  dem  Compilieren  problemlos.  Ledig- 
lich  eine  Schwierigkeit  bei  der  Bedienung  ergibt  sich: 
AC/BASIC  scheint  im  Gegensatz  zum  AmigaBASIC-Interpreter 
ein  Window  durch  einen  WINDOW-Befehl  nicht  automatisch  in 
den  Vorgrund  zu  holen.  Wenn  eine  Grafik  aufgebaut  ist  und  Sie 
durch  Tastendruck  zuruck  ins  Daten-Window  gelangen  wollen, 
wird  das  Daten-Window  zwar  zum  aktuellen  Window  erkiart, 
aber  es  bleibt  hinter  dem  Screen  mit  der  Grafikdarstellung  ver- 
borgen. 

Ein  Trick,  wie  man  sich  aus  dieser  Situation  befreien  kann,  ist, 
die  Pulldown-Option  "Datei  laden"  anzuwahlen.  Nun  erzeugt  das 
Programm  ein  neues  Window  (in  dem  Sie  den  Dateinamen  ein- 
geben  sollen),  wodurch  der  Screen  mit  dem  Daten-Window  nach 
vorne  geholt  wird.  Wenn  Sie  dann  im  Window  "Bitte  Dateinamen 
eingeben:"  einfach  eine  leere  Eingabe  machen,  also  nur 
<RETURN>  drucken,  bleiben  Ihre  Daten  im  Speicher  und  Sie 
sind  wieder  auf  dem  richtigen  Screen  gelandet.  Wem  dieser 
Kniff  auf  Dauer  nicht  gefallt,  kann  auch  im  Quell-Programm 
den  letzten  Block  des  Programmteils  folgendermaBen  erweitern: 

Vorher: 

GOSUB  Grafik 

WINDOW  2, "Bitte  drucken  Sie  eine  Taste!", <350,0)-<631,0), 20,4 
COLOR  0,1  :  CLS 
WHILE  INKEY$=M" 
WEND 

WINDOW  CLOSE  2 
WINDOW  1 
MENU  ON 

MENU  1,0,1  :  MENU  2,0,1 
END  IF 
RETURN 
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Nachher: 

GOSUB  Grafik 

WINDOW  2,"Bitte  driicken  Sie  eine  Taste!"ff(350,0)-(631,0),20f4 
COLOR  0,1  :  CLS 
WHILE  INKEY$="" 
WEND 

WINDOW  CLOSE  2 

WINDOW  2,"  Dummy", <0,0)-<0,0), 0,-1 
WINDOW  CLOSE  2 
WINDOW  1 
MENU  ON 

MENU  1,0,1  :  MENU  2,0,1 
END  IF 
RETURN 

Wenn  Sie  das  Programm  danach  neu  compilieren,  sind  Sie  auch 
das  Problem  mit  den  Windows  los.  Dadurch,  daB  wir  auf  dem 
Screen  -1  (dem  Workbench-Screen)  ein  winziges  Window  erzeu- 
gen  und  gleich  wieder  loschen,  bringt  auch  AC/BASIC  den 
richtigen  Screen  in  den  Vordergrund. 


8.7        Die  schnellen  Wellen  -  das  Synthesizer-Utility 

Zu  guter  Letzt  wollen  wir  noch  zusammen  das  Synthesizer-Uti- 
lity compilieren.  Vielleicht  fragen  Sie  sich,  warum  wir  das  Da- 
tenbank-Programm  und  das  Sprachutility  ausgelassen  haben. 
Ganz  einfach:  Erinnern  Sie  sich  bitte  daran,  wann  es  sich  lohnt, 
ein  Programm  zu  compilieren.  Na?  Beim  Datenbankprogramm 
dreht  sich  alles  urn  relative  Dateiverwaltung.  Die  Geschwindig- 
keit  hangt  fast  nur  von  der  Zugriffsgeschwindigkeit  der  Disket- 
tenlaufwerke  bzw.  der  Festplatte  ab.  Also  wenig  Verbesserungs- 
moglichkeiten  fur  den  Compiler.  Ahnlich  beim  Sprachutility.  Da 
ist  das  einzige  verz6gernde  Moment  der  Grafikaufbau.  Und  der 
kann  bekanntlich  auch  nicht  schneller  gemacht  werden. 
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Anders  sieht's  nun  wieder  beim  Synthesizer-Utility  aus.  Beson- 
ders  der  Wellenaufbau  kostet  viel  Rechenzeit.  Hier  mftBte  der 
Compiler  einiges  herausschlagen  k6nnen.  Und  urn  es  Ihnen 
gleich  zu  verraten:  Er  tut  es  auch.  Bei  unseren  Tests  mit  diesem 
Programm,  trat  ein  merkwQrdiges  Problem  auf.  Obwohl  im 
Quell-Programm  klar  und  eindeutig  stand,  daB  beim  Abspei- 
chern  auf  Diskette  256  Werte  geschrieben  werden  sollen,  wurden 
die  abgespeicherten  Dateien  immer  nur  255  Werte  lang.  Ver- 
suchte  man  dann,  diese  Datei  wieder  einzulesen,  fehlte  der  Le- 
seroutine  riaturlich  ein  Wert  und  das  Programm  brach  mit  **** 
Error  62  -  "Input  past  End"  ab. 

Nachdem  wir  dann  testhalber  die  Lese-  und  Schreibroutine  auf 
255  Werte  verkleinerten,  lief  alle  wie  am  Schnurchen.  M6gli- 
cherweise  hat  AC/BASIC  bei  der  Verwaltung  der  Zahlen  ein 
Problem.  Jedenfalls  haben  wir  keine  andere  Erkiarung  gefunden. 
Da  sich  der  Fehler  auf  keine  andere  Art  beheben  lieB,  empfeh- 
len  wir  Ihnen,  die  Schleifen  einfach  auf  255  zu  kurzen.  Der 
letzte  Wert  der  abgespeicherten  Wellenformen  kann  vernachias- 
sigt  werden.  Andern  Sie  also  bitte  die  Programmzeilen 

OPEM  Name$  FOR  OUTPUT  AS  1 

FOR  x=0  TO  256 
PRINT  #1,CHR$<127-Uelle%(x)); 

NEXT  x 
CLOSE  1 


in 


OPEN  Name$  FOR  OUTPUT  AS  1 

FOR  x=0  TO  255 
PRINT  #1,CHR$<127-UeUeX(x>); 

NEXT  x 
CLOSE  1 
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und  den  Block 

OPEN  Name*  FOR  INPUT  AS  1 

FOR  x=0  TO  256 
WeLle%(x)=127-ASC<INPUT$(1,1)) 

NEXT  x 
CLOSE  1 

in 

OPEN  NameS  FOR  INPUT  AS  1 

FOR  x=0  TO  255 
Welle%(x)=127-ASC(INPUT$(1,1)) 

NEXT  x 
CLOSE  1 

Sonst  brauchen  Sie  beim  Compilieren  des  Synthesizer-Utilities 
nichts  weiter  zu  beachten.  Wenn  Sie  die  compilierte  Version  te- 
sten,  wird  Ihnen  sicher  auffallen,  daB  die  Berechnung  und  Dar- 
stellung  der  Wellenformen  im  Vergleich  zur  Interpreter- Version 
stark  beschleunigt  ist.  Wie  gesagt  -  bei  rechenintensiven  Pro- 
grammen  lohnt  sich  das  Compilieren. 

Tja,  das  war's.  Mit  dem  Compilieren  des  Synthesizer-Utilities  ist 
nun  auch  das  letzte  Kapitel  in  unserem  Buch  zuende  gegangen. 
Wenn  sich  der  eine  oder  andere  von  Ihnen  nun  entschlossen  hat, 
sich  den  AC/BASIC-Compiler  zu  kaufen  oder  einige  ihn  viel- 
leicht  schon  besitzen,  wollen  wir  Ihnen  an  dieser  Stelle  nochmal 
ans  Herz  legen,  das  Compiler-Handbuch  durchzulesen.  Viele 
Details  und  Besonderheiten  konnten  wir  gar  nicht  in  der  Aus- 
fuhrlichkeit  beschreiben,  wie  Sie  sie  in  der  Absoft-Dokumenta- 
tion  finden. 

Ubrigens:  Einige  Funktionen  wollten  wir  auch  nicht  beschrei- 
ben -  denn  dieses  Kapitel  und  die  compilierten  Ver- 
sionen  der  Programme  in  der  Compiler-Schublade, 
sollten  keine  Hilfestellung  fur  Raubkopierer  sein! 
Wir  wollten  denen  die  dieses  Programm  gekauft  ha- 
ben  und  trotzdem  nicht  so  ganz  zurecht  kommen  - 
sei  es  wegen  des  englischen  Handbuches  oder  auch 
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wegen  der  Komplexitat  des  Themas  -  mit  ein  paar 
Hinweisen  und  Tricks  helfen.  Der  letzte  Tip:  Beson- 
ders  der  Referenzteil  des  Compiler-Handbuches,  in 
dem  fur  jeden  AmigaBASIC-Befehl  die  Beson- 
derheiten  des  Compilers  erkiart  werden,  ist  beim 
Austesten  der  Programme  Gold  wert. 

Es  folgen  nun  noch  einige  fur  Sie  nutzliche  und  informative 
Anhange,  aber  vorher  mussen  wir  uns  natiirlich  noch  schnell 
verabschieden.  Und  bei  der  Menge  an  Biichern,  die  wir  mittler- 
weile  geschrieben  haben,  ist  es  sozusagen  eine  Abschieds-und- 
Aufwiedersehens-Party  Alle  G^ste  dieser  Veranstaltung  sind  im 
nSchsten  Minikapitel  herzlich  willkommen. 


Das  war's 
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Leider  haben  wir  gerade  eben  erfahren,  daB  man  so  kurzfristig 
(von  einer  Seite  zur  nfcchsten)  weder  Champagner  noch  andere 
Delikatessen  auftreiben  kann.  Also  muB  unser  Abschied  mit  den 
bescheidenen  Mitteln  des  Wortes  stattfinden. 

Zuallererst  hoffen  wir  natiirlich,  daB  sie  Ihnen  ein  wenig  SpaB 
gemacht  hat,  unsere  Reise  durch  die  Welt  des  AmigaBASIC. 
Wenn  Sie  jetzt  Lust  haben,  selber  in  BASIC  Programme  zu 
schreiben,  dann  haben  wir  unser  Ziel  eigentlich  schon  erreicht. 
Ubrigens:  Wir  wiirden  uns  freuen,  wenn  Sie  auch  mal  zur  Feder 
greifen.  Es  mussen  ja  nicht  gleich  700  Seiten  dabei  heraus- 
kommen.  Aber  eine  kurze  Kritik  (es  darf  natiirlich  auch  ein  lan- 
ges  Lob  sein)  wurde  uns  schon  freuen.  Dazu  aber  gleich  auch 
ein  wichtiger  Hinweis:  Der  Kontakt  zu  unseren  Lesern  ist  uns 
wichtig.  Egal  ob  auf  Messen,  per  Post  oder  wenn  es  gar  nicht 
anders  geht,  per  Telefon.  Aber  zwei  Anmerkungen:  Wir  bitten 
urn  Verstandnis,  wenn  die  Antwort  auf  Ihren  Brief  ein  wenig 
auf  sich  warten  lSBt.  Sie  schreiben  einen  an  uns,  aber  wir  be- 
antworten  eine  ganze  Menge  Briefe  und  das  braucht  Zeit  - 
zumal  wir  zwischendrin  ja  auch  noch  hie  und  da  ein  Buch 
schreiben... 

Zweitens:  Wenn  man  unsere  Telefonnummern  hat  und  uns  an- 
ruft,  geben  wir  durchaus  gerne  Auskunft.  Aber  wie  jeder  andere 
normale  Mensch  sind  wir  von  Anrufen  an  Sonn-  und  Feiertagen, 
in  aller  Hergottsfruhe  oder  gar  mitten  in  der  Nacht  nicht  so 
begeistert.  Das  ist  durchaus  nicht  bdse  gemeint,  aber  ein  biBchen 
Privatleben  gehflrt  halt  nun  mal  auch  dazu.  Denn  damit  erhalten 
wir  uns  die  gute  Laune,  die  vielen  von  Ihnen  das  Lesen  unserer 
Bucher  so  angenehm  macht. 

Ansonsten  wtinschen  wir  Ihnen  auch  weiterhin  viel  SpaB  mit 
Ihrem  Amiga.  Und  wer  weiB,  vielleicht  sehen  wir  uns  mal  wie- 
der  -  in  einem  anderen  Buch. 

Vorerst  bleibt  uns  nur  noch,  einige  Leute  dankend  zu  erwahnen, 
die  mehr  oder  weniger  wesentlich  zum  Gelingen  dieses  Buches 
beigetragen  haben. 
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Ganz  wichtig  ist  hier  Alexander  Graham  Bell.  Seiner  genialen 
Erfindung  (dem  Telefon)  haben  wir  es  besonders  zu  verdanken, 
daB  trotz  der  raumlichen  Trennung  zwischen  Hannes  (Wiirz- 
burg/Stuttgart)  und  Christian  (Dusseldorf)  ein  gemeinsames  Buch 
entstanden  ist.  Der  Deutschen  Bundespost  danken  wir  nicht, 
denn  die  hat  ja  die  Gebiihren  dafiir  kassiert. 

Toleranz  zu  bescheinigen  ist  Brigitte,  die  nicht  nur  hie  und  da 
trflstende  Worte  in  den  heiBen  Phasen  wShrend  unserer  letzten 
langen  NSchte  in  Dusseldorf  fand  ("Willst  du  ein  Bonbon?"), 
sondern  auch  nicht  bose  uber  all  die  viele  Zeit  war,  die  ihr  und 
Christian  auf  diese  Weise  entging.  (Der  hatte  namlich  Urlaub  - 
eigentlich...)  Und  diesen  Mut  behielt  sie  erfreulicherweise  bei 
der  ersten,  zweiten,  dritten  und  jetzt  der  vierten  Auflage  des 
Buches. 

Als  nSchstes  gilt  unser  Dank  Hannes'  Eltern,  die  sich  irgendwie 
daran  gewShnt  hatten,  ihren  Sohn  mehrere  Monate  lang  nur 
beim  Essen  zu  Gesicht  zu  bekommen. 

Ganz  besonders  danken  wir  auch  Herrn  Dr.  Peter  Kittel  von 
Commodore  Frankfurt  fur  die  freundliche  Unterstutzung. 

Ein  groBes  Dankesch6n  geht  auch  nach  Westchester/USA  an 
Carolyn  Scheppner,  die  uns  erlaubte,  Teile  ihres  Programms 
"LoadlLBM-SaveACBM"  fur  unser  "ILBMEntzerren"  zu  verwen- 
den.  Hi  Carolin,  Thanks  a  lot! 

Und  weil  wir  gerade  dabei  sind:  Den  SoftwarehSusern  Electronic 
Arts,  Discovery  Software  und  Gold  Disk  verdanken  wir  die 
Entstehung  der  Skizzen  und  Bildschirmausdrucke.  Die  Skizzen 
wurden  mit  dem  Programm  Deluxe  Paint  II  gemacht,  die  Hard- 
copies  haben  wir  mit  "GRABBit"  abgespeichert,  und  die  Aus- 
drucke  auf  unserem  Laserdrucker  mit  "Professional  Page" 
erstellt. 

Hannes  dankt  noch  Johannes  -  es  lebe  die  Musik,  die  lange 
Nachte  ertrSglich  macht. 
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Bleibt  noch  Vater  Staat  (vertreten  durch  die  Bundeswehr  Veits- 
hdchheim),  der  dem  Gefreiten  Rugheimer  hie  und  da  kurzfirstig 
ein  paar  Tage  Urlaub  gdnnte,  urn  die  erste  Auflage  dieses  Buch 
zu  schreiben.  (DaB  er  dafur  wieder  Steuern  kriegt,  steht  ja  auf 
einem  anderen  Blatt...) 


IV.  Anhange 
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Anhang  A:     Fehlermeldungen  und  Abhilfe 

In  diesem  Anhang  sind  alle  Fehlermeldungen,  die  bei  der  Arbeit 
mit  AmigaBASIC  auftreten  k6nnen,  alphabetisch  aufgefuhrt. 
Wenn  beim  Arbeiten  mit  diesem  Buch  oder  beim  Programmieren 
ein  Fehler  auftritt,  kflnnen  Sie  hier  nachschlagen,  was  die  m6g- 
lichen  Ursachen  sind  und  was  man  gegebenenfalls  dagegen  un- 
ternehmen  kann. 

Ein  Teil  der  Fehler  wird  von  AmigaBASIC  schon  vor  dem  Pro- 
grammablauf  entdeckt,  ein  Teil  erst  unmittelbar  vor  der  Aus- 
fuhrung  des  betroffenen  Befehls.  In  jedem  Fall  wird  der  Fehler 
im  LIST-Window  markiert,  und  ein  Error- Dialog  window  er- 
scheint.  Bevor  Sie  irgend  etwas  gegen  den  Fehler  unternehmen 
kflnnen,  mussen  Sie  erst  ins  OK-Feld  der  Meldung  klicken.  Die 
Fehlernummern,  die  in  dieser  Ubersicht  aufgefuhrt  sind,  brau- 
chen  Sie  im  Zusammenhang  mit  dem  Befehl  ON  ERROR  und 
der  Systemvariablen  ERR.  Naheres  daruber  im  Anhang  B. 


Advanced  Feature 
Fehlernummer:  73 
"Eigenschaft  eines  erweiterten  BASIC" 

Wenn  Sie  diesen  Fehler  erhalten,  haben  Sie  einen  Befehl  ver- 
wendet,  der  nicht  in  unserem  Buch  vorkommt.  AmigaBASIC 
bringt  diese  Meldung,  wenn  es  einen  Befehl  zwar  erkennt,  aber 
in  der  gegenwSrtigen  Version  noch  nicht  ausfiihren  kann.  Uns 
ist  bisher  noch  kein  solcher  Befehl  bekannt.  Dieser  Fehler  ist  ein 
Uberbleibsel  der  anderen  BASIC- Versionen  von  Microsoft.  Beim 
IBM  PC  gibt  es  z.B.  drei  verschieden  leistungsfahige  Microsoft- 
B  ASIC- Versionen. 
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Argument  count  mismatch 

Fehlernummer:  37 

"Fehler  in  der  Anzahl  an  Argumenten" 

Tritt  dann  auf,  wenn  Sie  beim  Aufruf  eines  SUB-Programms  zu 
viele  oder  zu  wenige  Argumente  (Werte,  Texte)  angeben. 
Schauen  Sie  in  der  ersten  Zeile  des  SUB-Programms  nach,  wie- 
viele  und  welche  Angaben  verlangt  werden,  und  geben  Sie  ge- 
nauso  viele  im  Aufruf  an. 


Bad  file  mode 
Fehlernummer:  54 
"Falscher  Datei-Modus" 

Dieser  Fehler  tritt  dann  auf,  wenn  Sie  bei  der  Arbeit  mit  Da- 
teien  Befehle  oder  Angaben  verwenden,  die  nicht  zur  ange- 
gebenen  Datei  passen.  Im  einzelnen  kann  es  folgende  Ursachen 
geben: 

-  Sie  wollen  mit  MERGE  ein  Programm  anhSngen,  das 
nicht  im  ASCII-Format  gespeichert  wurde.  In  diesem 
Fall  mussen  Sie  das  Programm  laden  und  mit 
SAVE  "(Programmname)\A  erneut  abspeichern. 

-  Sie  wollen  eine  relative  Datei  mit  LOAD  laden.  Das 
geht  natiirlich  nicht. 

-  Sie  verwenden  fur  eine  sequentielle  Datei  einen  der 
Befehle  fur  relative  Dateien,  wie  GET  oder  PUT. 

-  Sie  haben  fur  den  OPEN-Befehl  einen  anderen  Modus 
als  T,  "O",  MAM  oder  ttRw  angegeben.  Andere  Modi  gibt 
es  aber  nicht. 
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Bad  file  name 
Fehlernummer:  64 
"Falscher  Dateiname" 

Der  Dateiname,  den  Sie  angegeben  haben,  ist  falsch.  Das  heiBt, 
er  ist  entweder  zu  lang  oder  nicht  so  aufgebaut,  wie  von  Amiga- 
BASIC  erwartet.  In  Kapitel  3.2  erfahren  Sie,  wie  ein  zulfcssiger 
Dateiname  aussieht.  Er  hat  im  HOchstfall  folgende  Bestandteile: 

"(Geratename  oder  Laufwerk):(Schublade)/(Schublade)/.. ./(Dateiname)" 


Bad  file  number 
Fehlernummer:  52 
"Falsche  Dateinummer" 

Bedeutet  fast  immer,  da/3  Sie  bei  einem  Befehl  wie  PRINT# 
oder  INPUT#  die  Nummer  einer  Datei  angegeben  haben,  die 
nicht  ge6ffnet  wurde.  Schauen  Sie  sich  die  OPEN-Befehle  in 
Ihrem  Programm  an,  da  stehen  die  Dateinummern. 


Bad  record  number 
Fehlernummer:  63 
HFalsche  Satznummer" 

Bei  einem  GET-  oder  PUT-Befehl  wollen  Sie  einen  Satz  ange- 
ben,  der  nicht  erlaubt  ist.  Zuiassige  Satznummern  liegen  zwi- 
schen  0  und  16777215. 


Block  ELSE/END  IF  must  be  Ist  statement  on  the  line 
Fehlernummer  - 

"ELSE  oder  END  IF  in  einem  IF/END  IF-Block  muB  der  erste 
Befehl  in  der  Zeile  sein." 
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Die  beiden  miissen  sogar  der  erste  und  der  einzige  Befehl  in  der 
Zeile  sein.  Sonst  erkennt  AmigaBASIC  nicht,  dafl  es  sich  um 
eine  IF/ELSE/END  IF-Struktur  handelt.  Strukturierte  Program- 
mierung  hilft,  solche  Probleme  zu  verhindern.  Dieser  Fehler 
wird  schon  vor  der  Programmausfuhrung  erkannt  und  angezeigt. 


Can't  continue 

Fehlernummer:  17 

"Ich  kann  nicht  weitermachen" 

Tritt  nach  der  Eingabe  von  CONT  oder  dem  Anwahlen  von 
"Continue"  aus  dem  MRunH-Pulldown  auf:  Weitermachen  ist  nur 
mflglich,  wenn  kein  Fehler  aufgetreten  ist,  und  das  Programm 
seit  dem  Abbruch  nicht  verSndert  wurde.  Sie  miissen  das  Pro- 
gramm in  diesem  Fall  mit  RUN  neu  starten. 


Deadlock 
Fehlernummer:  77 
"Verriegelung  (!?)" 

Hier  sind  wir  uns  selbst  nicht  ganz  sicher.  Diese  Fehlermeldung 
gibt  es,  aber  es  sind  bisher  keine  Informationen  daruber  aufzu- 
treiben,  wer  oder  was  da  verriegelt  wird.  Wahrscheinlich  kommt 
der  Fehler  nicht  von  AmigaBASIC,  sondern  direkt  vom  Be- 
triebssystem.  Er  klingt  auf  jeden  Fall  sehr  unerfreulich,  etwa  in 
der  Art  von  'Internal  error'.  Sollten  Sie  diesen  Fehler  erhalten, 
schreiben  Sie's  uns  doch  mal. 


Device  I/O  error 

Fehlernummer:  57 

"Geratefehler  bei  Ein-  oder  Ausgabe" 

Bei  einem  Input/Output- Vorgang  hat  AmigaDOS  einen  ernsten 
Fehler  festgestellt.  Ein  technisches  Problem,  z.B.  mit  einer 
Diskette,  kOnnte  die  Ursache  sein.  Meist  miissen  Sie  in  so  einem 
Fall  die  Workbench  neu  laden. 
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Device  Unavailable 
Fehlernummer:  68 
"Gerat  ist  nicht  verfttgbar" 

Das  angesprochene  GerSt  ist  entweder  nicht  angeschlossen  oder 
nicht  eingeschaltet.  Es  ist  AmigaBASIC  nicht  gelungen,  Verbin- 
dung  mit  dem  Ger&t  aufzunehmen.  Da  AmigaBASIC  besonders 
bei  der  Arbeit  mit  Peripheriegeriten  hin  und  wieder  Fehler 
macht,  miissen  Sie  bei  dieser  Meldung  m6glichweise  die  Work- 
bench neu  laden. 


Disk  full 
Fehlernummer:  61 
"Diskette  ist  voir 

Tritt  meistens  beim  Speichern  von  Programmen  oder  Schreiben 
von  Daten  auf:  Auf  der  Diskette  ist  nicht  mehr  genug  Platz. 
Entweder  Sie  16schen  ein  paar  Programme  bzw.  kopieren  sie  auf 
eine  andere  Diskette,  oder  Sie  verwenden  eine  neue  Diskette  fur 
die  Speicherung,  die  den  Fehler  verursachte.  Wenn  Ihnen  dieser 
Fehler  zum  ersten  Mai  begegnet,  w&hrend  Sie  in  den  ersten  Ka- 
piteln  unseres  Buchs  mit  der  Extras-Diskette  arbeiten,  lesen  Sie 
bitte  Kapitel  3.1. 


Division  by  zero 
Fehlernummer:  1 1 
"Division  durch  Null" 

Dividieren  durch  Null  ist  verboten.  PRINT  1/0  erzeugt  also  z.B. 
diesen  Fehler.  Es  kann  auch  daran  liegen,  daB  eine  Variable 
noch  keinen  Wert  hat  oder  daB  in  Ihren  Formeln  ein  Fehler 
steckt.  Oder  haben  Sie  sich  vielleicht  beim  Variablennamen  ver- 
tippt? 
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Duplicate  Definition 
Fehlernummen  10 
MDoppelte  Dimensionierung" 

Dieser  Fehler  tritt  auf,  wenn  Sie  ein  bereits  dimensioniertes 
Datenfeld  nochmal  dimensionieren  wollen.  DaB  das  Feld  bereits 
dimensioniert  ist,  kann  verschiedene  Grunde  haben:  Entweder  es 
gab  schon  einmal  einen  DIM-Befehl  fur  denselben  Variablen- 
namen.  Oder  Sie  haben  das  Feld  schon  einmal  verwendet,  bevor 
das  zugehflrige  DIM  im  Programm  steht.  Dadurch  wird  ein  Feld 
ja  automatisch  dimensioniert.  Sie  kOnnen  in  einem  solchen  Fall 
ein  Feld  mit  ERASE  Idschen.  Mit  LBOUND  und  UBOUND  er- 
halten  Sie  die  Ober-  und  die  Untergrenze  des  Datenfelds.  Wenn 
Sie  den  Befehl  OPTION  BASE  nach  dem  ersten  DIM  im  Pro- 
gramm verwenden,  kommt  ebenfalls  diese  Fehlermeldung. 


Duplicate  label 

Fehlernummer:  33 

"Doppeltes  Label,  doppelte  Sprungmarke" 

Im  selben  Programm  haben  Sie  fur  zwei  verschiedene  Pro- 
grammteile  dasselbe  Label  verwendet.  Einen  Programmteil  mus- 
sen  Sie  umtaufen!  Oder  erkennt  AmigaBASIC  vielleicht  eine  La- 
beldefinition,  wo  gar  keine  beabsichtigt  war?  Dann  muB  der 
Doppelpunkt  am  Ende  des  Texts  weg.  Vielleicht  liegt  es  an  einer 
Verwechslung  von  SUB-Programm  und  Unterprogramm?  Sie 
durfen  zwar  einem  SUB-Programm  einen  Namen  geben,  der 
schon  als  Label  verwendet  wird  (obwohl  das  nicht  zu  empfehlen 
ist,  da  es  zu  Unklarheiten  fuhrt),  aber  ein  kl£rendes  CALL  beim 
Aufruf  ist  dann  in  Zweifelsfailen  schon  n5tig. 


ELSE/ELSE  IF /END  IF  without  IF 

Fehlernummer:  - 

"ELSE/ELSE  IF/END  IF  ohne  zugeh6riges  IF" 

Einer  der  genannten  Befehle  wurde  gefunden,  ohne  daB  Sie  mit 
IF  einen  giiltigen  IF.. .END  IF-Block  begonnen  haben.  Haben  Sie 
vielleicht  in  der  IF-Zeile  hinter  THEN  weitere  Befehle  einge- 
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geben?  Durfen  Sie  namlich  nicht,  wenn  sich's  urn  einen 
IF...END  IF-BIock  handelt,  denn  dadurch  findet  ja  die  Unter- 
scheidung  statt.  Diesen  Fehler  erkennt  AmigaBASIC  schon  vor 
dem  Programmstart. 


EXIT  SUB  outside  of  a  subprogram 

Fehlernummer:  - 

"EXIT  SUB  auBerhalb  eines  SUB-Programms" 

Den  Befehl  EXIT  SUB  durfen  Sie  nur  innerhalb  der  Klammer 
SUB/END  SUB  verwenden.  1st  das  END  SUB  zu  weit  nach  oben 
gerutscht  oder  haben  Sie  END  SUB  und  EXIT  SUB  verwechselt? 
Auch  diesen  Fehler  merkt  AmigaBASIC  sofort,  wenn  es  sich  Ihr 
Programm  vor  dem  Start  kurz  ansieht. 


FIELD  overflow 

Fehlernummer:  50 

"Uberlauf  des  Dateipuffers  durch  FIELD-Befchl" 

Dieser  Fehler  bedeutet,  daB  bei  einer  relativen  Datei  mehr 
Pufferbytes  mit  FIELD  angelegt  werden  sollen,  als  bei  der 
Dateil&nge  im  OPEN-Befehl  angegeben  wurde.  Am  besten,  Sie 
planen  Ihren  Dateiaufbau  ganz  genau  vor,  dann  wissen  Sie 
immer,  wieviele  Bytes  wofur  verwendet  werden. 


File  already  exists 
Fehlernummer:  58 
HDatei  existiert  bereits" 

Beim  Speichern  (SAVE)  oder  Umbenennen  (NAME)  haben  Sie 
einen  Namen  angegeben,  den  es  bereits  gibt.  Verwenden  Sie 
einfach  einen  anderen  Namen.  Wenn  es  unbedingt  der  ge- 
wunschte  Dateiname  sein  muB,  wechseln  Sie  mit  CHDIR  in  ein 
anderes  Inhaltsverzeichnis. 
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File  already  open 
Fehlernummer:  55 
HDatei  bereits  geflffnet" 

Tritt  auf,  wenn  Sie  versuchen,  eine  bereits  gedffnete  Datei 
nochmal  zu  5ffnen.  AmigaBASIC  bringt  diese  Fehlermeldung 
auch,  wenn  Sie  versuchen,  eine  zur  Zeit  ge6ffnete  Datei  mit 
KILL  zu  Idschen.  Vorher  mussen  Sie  die  Datei  nSmlich  wieder 
schlieBen. 


File  not  found 
Fehlernummer:  53 
"Datei  nicht  gefunden" 

Die  Datei,  sie  Sie  angegeben  haben,  konnte  nicht  gefunden  wer- 
den.  Haben  Sie  sich  beim  Dateinamen  vertippt?  Oft  befinden  Sie 
sich  auch  im  falschen  Inhaltsverzeichnis  (prufen  Sie's  mit  FILES 
und  Sndern  Sie's  gegebenenfalls  mit  CHDIR). 


FOR  without  NEXT 
Fehlernummer:  26 
"FOR  ohne  NEXT" 

AmigaBASIC  hat  einen  FOR-Befehl  gefunden,  zu  dem  kein 
NEXT  geh6rt.  Entweder  Sie  haben  das  NEXT  vergessen  oder 
beim  Namen  der  Zahlvariablen  einen  Fehler  gemacht.  Am  si- 
chersten  ist  es,  FOR...NEXT-Schleifen  schdn  ubersichtlich 
strukturiert  zu  programmieren  und  hinter  NEXT  gar  keinen 
Variablennamen  mehr  anzugeben.  (Das  ist  nSmlich  auch  erlaubt.) 


IF  without  END  IF 
Fehlernummer:  - 
MIF-Befehl  ohne  END  IP 

Wenn  Sie  einen  IF/END  IF-Block  verwenden,  muB  er  mit 
END  IF  aufhoren.  Haben  Sie  END  IF  vielleicht  vergessen?  Oder 
wollten  Sie  gar  keinen  IF/END  IF-Block  erzeugen,  haben  aber 
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hinter  THEN  in  der  IF-Zeile  nichts  mehr  geschrieben?  Dann 
denkt  AmigaBASIC  namlich,  es  handle  sich  urn  einen 
IF/END  IF-BIock.  Wollen  Sie  hinter  einem  THEN  keinen  Befehl 
angeben,  so  schreiben  Sie  am  besten  ein  REM  dorthin.  Weil 
dieser  Fehler  vor  der  Programmausfuhrung  entdeckt  wird,  kann 
er  beim  Entwickeln  eines  Programms  auf  treten,  weil  Sie  eine 
Zeile  noch  nicht  zu  Ende  programmiert  haben.  Vor  der  Aus- 
fuhrung  von  Befehlen  im  Direktmodus  uberpruft  AmigaBASIC 
das  Programm  im  LIST-Window  namlich  auf  offensichtliche 
Fehler.  'IF  without  END  IF  ist  einer  davon.  Sie  erkennen  solche 
Fehler  in  dieser  Ubersicht  daran,  daB  sie  keine  Fehlernummer 
haben. 


Illegal  direct 
Fehlernummer:  12 
"Unerlaubter  Direktbefehl" 

Manche  Befehle  sind  nur  innerhalb  von  Programmen  erlaubt  und 
nicht  im  Direktmodus.  Den  obenstehenden  Fehler  erhalten  Sie, 
wenn  Sie  so  einen  Befehl  im  BASIC-Window  eintippen. 
DEF  FN,  COMMON  oder  SUB  sind  typische  Beispiele. 


Illegal  function  call 
Fehlernummer:  5 
"Unerlaubter  FunktionsaufruP 

Dieser  Fehler  tritt  auf,  wenn  Sie  einen  unerlaubten  Wert  an 
einen  BASIC-Befehl  ubergeben.  Wenn  Sie  negative  Werte  fur 
Datenfeld-Elemente  oder  GET-  und  PUT-Befehle  angeben, 
kommt  er  ebenfalls.  Auch  wenn  Sie  zu  groBe,  zu  kleine  oder 
falsche  Parameter  bei  BASIC-Befehlen,  die  verschiedene  Optio- 
nen  haben,  angeben,  kann  der  Fehler  entstehen.  Tritt  diese  Feh- 
lermeldung  nach  LIST  auf,  wurde  das  BASIC-Programm  ge- 
schOtzt  abgespeichert  (SAVE  M...W,P). 
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Input  past  end 

Fehlernummer:  62 

"Einlesen  hinter  dem  Dateiende  versucht" 

Kommt  vor,  wenn  Sie  Daten  aus  einer  Datei  lesen  wollen,  die 
bereits  zu  Ende  ist  oder  die  zum  Schreiben  (FOR  OUTPUT)  ge- 
dffnet  wurde.  Benutzen  Sie  die  Befehle  EOF  und  LOF,  urn  die- 
sen  Fehler  zu  vermeiden. 


Internal  error 
Fehlernummer:  51 
"Interner  Fehler" 

Da  kflnnen  Sie  wahrscheinlich  gar  nichts  dafur.  AmigaBASIC  hat 
bei  sich  selbst  einen  Fehler  gefunden.  In  diesem  Fall  miissen  Sie 
AmigaBASIC  leider  neu  starten. 


Line  buffer  overflow 
Fehlernummer:  23 
"Zeilenpuffer  ist  voir 

Dieser  Fehler  tritt  auf,  wenn  der  Bildschirmeditor  im  LIST- 
Window  Probleme  hat.  Vielleicht  versuchen  Sie,  zuviele  Zeichen 
in  einer  Zeile  einzugeben?  Nach  255  ist  namlich  Schlufl.  Das 
Problem  kann  aber  auch  durch  einen  Fehler  im  Bildschirmeditor 
entstehen.  Benutzen  Sie  ein  paarmal  CUT  und  PASTE  aus  dem 
HEdit"-Menu.  Oft  verschwindet  der  Fehler  dann  wieder. 


Missing  operand 

Fehlernummer:  22 

"Fehlender  Wert  hinter  logischer  Verknupfung" 

Wenn  hinter  Befehlen  (wie  AND,  OR,  XOR,...)  oder  Rechen- 
zeichen  (wie  +,  -...)  kein  Wert  mehr  folgt,  erscheint  dieser  Error. 
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Missing  STATIC  in  SUB  statement 

Fehlernummer:  - 

"STATIC  fehlt  beim  SUB-Befehl" 

Zu  SUB  gehflrt  immer  STATIC.  Wenn  das  immer  der  Fall  ist, 
hatte  man's  eigentlich  auch  weglassen  kSnnen,  da  haben  Sie 
schon  recht.  Trotzdem  muB  das  STATIC  angegeben  werden,  und 
weniTs  fehlt,  meldet  AmigaBASIC  einen  Fehler.  Und  zwar  schon 
vor  dem  Programmstart. 


NEXT  without  FOR 

Fehlernummer:  1 

"NEXT  ohne  zugeh6riges  FOR" 

AmigaBASIC  hat  ein  iiberzahliges  NEXT  gefunden.  Das  ist  das 
logische  Gegenteil  von  'FOR  without  NEXT.  Schauen  Sie  bitte 
dort  nach,  wenn  Sie  weiteres  wissen  wollen. 


No  RESUME 

Fehlernummer:  19 

"Kein  RESUME  gefunden" 

AmigaBASIC  konnte  innerhalb  einer  ON  ERROR-Routine 
(Fehlerbehandlung)  keinen  RESUME-Befehl  finden.  Dieser  Be- 
fehl  gehort  aber  nun  mal  dazu.  Er  schlieBt  das  behandelnde 
Unterprogramm  ab  und  laBt  das  Programm  danach  zuruck  an  die 
Stelle  des  Fehlers  springen. 
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Out  of  DATA 
Fehlernummer:  4 
"Keine  DATAs  mehr" 

Beim  Einlesen  von  DATA-Werten  mit  READ  haben  Sie  das 
Ende  der  DATA-Liste  erreicht.  Es  gibt  keine  DATAs  mehr.  Das 
sollte  Ihr  Programm  selbst  merken  k&nnen!  Geben  Sie  z.B.  -1  als 
letzten  DATA-Wert  an  und  vergleichen  Sie  die  gelesenen  Daten 
mit  dieser  Zahl.  Und  vergessen  Sie  nicht,  daB  Sie  mit  RESTORE 
den  DATA-Zeiger  vertindern  kdnnen. 


Out  of  heap  space 
Fehlernummer:  14 
"Keine  freier  Systemspeicher  mehr" 

Der  hat  Sie  sicher  ganz  sch6n  erschreckt!  Er  erscheint  in  krafti- 
gem  Rot  auf  dem  Bildschirm  und  sieht  fast  aus  wie  eine  'Guru 
Meditation'.  1st  aber  keine.  Dieser  Fehler  wird  von  AmigaBASIC 
erzeugt  und  sagt  uns,  daB  der  System-Speicherplatz  nicht  aus- 
reicht.  Klicken  Sie  einfach  mit  der  linken  Maustaste,  dann  geht's 
weiter.  Vielleicht  hilft  CLEAR?  Wenn  nicht,  speichern  Sie  Ihr 
Programm,  starten  Sie  die  Workbench  neu  und  klicken  Sie 
AmigaBASIC  an.  Wenn  es  keine  anderen  Speicherplatz-Anwarter 
im  Amiga  gibt,  reicht  der  Platz  manchmal  etwas  linger.  Denken 
Sie  daran,  alle  uberflussigen  Programme  und  Windows  zu 
schlieBen. 


Out  of  memory 

Fehlernummer:  7 

"Kein  freier  BASIC-Speicher  mehr" 

Dieser  Fehler  bedeutet,  daB  im  BASIC-Speicherplatz  kein  Spei- 
cher  mehr  zur  Verfugung  steht.  Das  heiBt  aber  nicht,  daB  not- 
wendigerweise  im  ganzen  System  Jceiner  mehr  frei  ist.  Nur  Ihr 
Programm  und  Ihre  BASIC-Daten  brauchen  zusammen  zuviel 
Platz.  Auch  hier  hilft  oft  der  CLEAR-Befehl.  Lesen  Sie  auch 
mal  den  Teil  uber  'Out  of  heap  space'. 
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Overflow 
Fehlernummer:  6 
"Uberlauf,  Zahl  zu  groB" 

Das  bedeutet,  daB  eine  Zahl  zu  groB  ist,  urn  im  gewunschten 
Zahlenformat  (siehe  Zwischenspiel  7)  dargestellt  zu  werden. 
M6glicherweise  k6nnen  Sie  diesen  Fehler  vermeiden,  wenn  Sie 
doppelt  genaue  Variablen  verwenden. 


Permission  Denied 
Fehlernummer:  70 
"Erlaubnis  verweigert" 

Dieser  Fehler  tritt  meist  dann  auf,  wenn  die  Diskette,  auf  die 
Sie  schreiben  wollen,  schreibgeschutzt  ist.  Wollen  Sie  wirklich 
darauf  schreiben,  entnehmen  Sie  die  Diskette  aus  dem  Laufwerk 
(Rote  Lampe  darf  nicht  leuchten!),  schieben  Sie  den  Schreib- 
schutz-Schieber  auf  die  andere  Stellung  und  legen  Sie  die  Dis- 
kette wieder  ein. 


Rename  across  disks 

Fehlernummer:  74 

MUmbennen  iiber  verschiedene  Disketten" 

Sie  haben  versucht,  beim  NAME-Befehl  in  einem  Dateinamen 
einem  neuen  Diskettennamen  anzugeben.  Den  Diskettennamen 
durfen  Sie  aber  nicht  andern,  da  das  Resultat  ja  sonst  ein  Ko- 
pieren  und  kein  Umbenennen  ware. 


RESUME  without  error 

Fehlernummer:  20 

"RESUME,  ohne  daB  ein  Fehler  aufgetreten  ist." 

AmigaBASIC  hat  einen  RESUME-Befehl  gefunden,  es  ist  aber 
kein  Error  aufgetreten.  Mdglichweise  hat  sich  das  Programm  in 
die  ERROR-Schleife  verirrt.  Vor  ERROR-Schleifen  und  Unter- 
programmen   sollten   Sie    immer   das    Hauptprogramm    beenden 


Anhang  A 621 


Oder  hinter  den  ON  ERROR/RESUME-Block  springen  lassen. 
Wie  Unterprogramme  werden  nSmlich  auch 

ON  ERROR/RESUME-Blocks  nicht  automatisch  ubersprungen. 


RETURN  without  GOSUB 

Fehlernummer:  3 

"RETURN  ohne  zugehflriges  GOSUB" 

AmigaBASIC  hat  einen  RETURN-Befehl  gefunden,  ohne  daB 
der  aktuelle  Programmteil  mit  GOSUB  angesprungen  wurde. 
Dieser  Fehler  passiert  am  h&ufigsten  dadurch,  daB  ein  Programm 
sich  versehentlich  in  ein  Unterprogramm  verirrt.  Bedenken  Sie, 
daB  im  Gegensatz  zu  SUB-Programmen  Unterprogramme  nicht 
automatisch  ubersprungen  werden.  In  der  letzten  Zeile  vor  dem 
Unterprogramm  miissen  Sie  Ihr  Programm  an  eine  andere  Stelle 
schicken. 


SHARED  outside  of  a  subprogram 

Fehlernummer:  - 

"SHARED-Befehl  auBerhalb  eines  SUB-Programms" 

Der  Befehl  SHARED  darf  nur  innerhalb  eines  SUB-Programms 
verwendet  werden.  Vielleicht  ist  das  END  SUB  ein  paar  Zeilen 
zu  weit  nach  oben  gerutscht?  Oder  Sie  haben  EXIT  SUB  und 
END  SUB  verwechselt.  Diesen  Fehler  teilt  Ihnen  AmigaBASIC 
vor  der  Programmausfuhrung  mit. 


Statement  illegal  within  subprogram 

Fehlernummer:  - 

"Befehl  innerhalb  des  SUB-Programms  verboten" 

Einige  Befehle  durfen  innerhalb  von  SUB-Programmen  nicht 
verwendet  werden.  Im  einzelnen  sind  verboten:  DEF  FN,  der 
COMMON-Befehl  und  der  CLEAR-Befehl.  Auf  diese  Befehle 
miissen  Sie  zwischen  SUB  und  END  SUB  verzichten.  Amiga- 
BASIC merkt  solche  Fehler  vor  dem  Programmstart. 
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String  formula  too  complex 

Fehlernummer.  16 

"Die  String-Formel  ist  zu  komplex,  zu  verschachtelt" 

Wenn  Sie  diesen  Fehler  erhalten,  haben  Sie  eine  Formel  verwen- 
det,  die  zuviele  verschachtelte  String-Befehle  (MIDS,  LEFTS, 
RIGHTS  u.a.)  enthait.  Sie  sollten  die  Formel  in  mehrere  Einzel- 
Formeln  zerlegen  und  in  verschiedenen  Programmzeilen  aus- 
fuhren  lassen. 


String  too  long 
Fehlernummer  15 
"Der  String  ist  zu  langH 

Ein  String  darf  in  AmigaBASIC  32767  Zeichen  lang  sein.  Wenn 
er  langer  wird,  gibt's  diesen  Fehler.  Zerlegen  Sie  den  String 
einfach  in  kleinere  Teil-Strings. 


SUB  already  defined 
Fehlernummer:  - 
"SUB-Programm  bereits  definiert" 

Kommt  vor,  wenn  Sie  zwei  SUB-Programme  verwenden,  die  den 
gleichen  Namen  haben.  Eines  der  beiden  mussen  Sie  umtaufen. 
Diesen  Fehler  erkennt  AmigaBASIC  vor  der  Programmaus- 
fuhrung. 


Subprogram  already  in  use 

Fehlernummer:  36 

"SUB-Programm  wird  bereits  benutzt" 

Ein  SUB-Programm  darf  zwar  andere  SUB-Programme  auf- 
rufen,  aber  nicht  sich  selbst.  Steht  also  der  eigene  SUB-Aufruf 
innerhalb  einer  SUB-Routine,  gibt's  diesen  Fehler.  Diese  Feh- 
lermeldung  kommt  auch  vor,  wenn  Sie  ein  SUB-Programm  ab- 
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brechen  und  dann  neu  aufrufen.  Beenden  Sie  in  diesem  Fall  das 
alte  SUB-Programm  mit  CONT  oder  starten  Sie  das  Programm 
mit  RUN  neu. 


Subscript  out  of  range 

Fehlernummer:  9 

"Feldelement  auflerhalb  des  gultigen  Bereichs" 

Dieser  Fehler  kommt  vor,  wenn  Sie  ein  Element  eines  Daten- 
felds  benutzen,  das  auBerhalb  des  Bereichs  liegt,  der  mit  DIM 
(oder  automatisch)  dimensoniert  wurde.  Oder  wenn  Sie  mehr 
Dimensionen  angeben,  als  durch  DIM  festgelegt  wurde.  Der 
Fehler  ist  typisch  fur  einen  Tippfehler  im  Feldnamen.  Vielleicht 
verwenden  Sie  zur  Angabe  des  Feldelements  auch  eine  Variable, 
die  im  Programm  einen  falschen  Wert  erhalten  hat. 


SUB  without  END  SUB 

Fehlernummer:  - 

"SUB  ohne  zugehoriges  END  SUBM 

Die  Befehle  SUB  und  END  SUB  gehdren  paarweise  zueinander. 
Es  gibt  ein  SUB,  zu  dem  AmigaBASIC  kein  END  SUB  findet. 
Wie  bei  alien  Befehlsklammern  (FOR.. .NEXT,  IF/END  IF, 
WHILE.. .WEND  etc.)  hilft  strukturiertes  Programmieren,  solche 
Fehler  zu  verhindern. 


Syntax  error 
Fehlernummer:  2 
"Syntax-Fehler,  Satzbau-Fehler" 

AmigaBASIC  hat  zwar  Teile  des  eingegebenen  Befehls  verstan- 
den,  aber  andere  Teile  sind  falsch  geschrieben,  stehen  in  einer 
falschen  Reihenfolge  oder  in  falschem  Zusammenhang.  Viel- 
leicht paBt  auch  die  Anzahl  offener  und  geschlossener  Klam- 
mern  nicht  zusammen.  'Syntax  error'  tritt  auch  auf,  wenn  in  ei- 
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ner  DATA-Zeile  ein  String  steht,  der  mit  READ  in  eine  nor- 
male  Variable  eingelesen  werden  soil.  Checken  Sie  das  alles  ab. 
Schauen  Sie  auch  mal  in  den  Anhang  B,  wenn  Sie  nicht  sicher 
sind,  wie  ein  bestimmter  Befehl  verwendet  wird. 


Too  many  files 
Fehlernummer:  67 
HZu  viele  Dateien" 

Dieser  Fehler  bedeutet  bei  den  anderen  BASIC-Versionen  von 
Microsoft,  daB  zu  viele  Dateien  auf  Diskette  stehen.  Beim 
Amiga  kann  das  nicht  passieren,  da  die  Disketten  ganz  anders 
organisiert  sind  als  bei  herkdmmlichen  Computern.  1st  kein  Platz 
mehr,  bekommen  Sie  ja  einen  "Disk  fulP-Error.  Die  Anzahl  an 
erlaubten  offenen  Dateien  ist  in  AmigaBASIC  auf  256  be- 
schrSnkt.  So  viele  Dateien  werden  Sie  aber  fast  nie  gleichzeitig 
benutzen.  Dieser  Fehler  sollte  also  eigentlich  zu  den  seltenen 
Besuchern  auf  Ihrem  Bildschirm  gehdren. 


Tried  to  declare  SUB  within  a  SUB 

Fehlernummer:  - 

"Sie  versuchten,  ein  SUB-Programm  innerhalb  eines  SUB-Pro- 

gramms  zu  definieren" 

Innerhalb  eines  SUB-Programms  darf  kein  anderes  SUB-Pro- 
gramm stehen,  das  ist  verboten.  Sie  kdnnen  aber  die  SUB-Pro- 
gramme  hintereinander  schreiben  und  sich  gegenseitig  aufrufen 
lassen.  Dieser  Fehler  wird  vor  der  Programmausfuhrung  festge- 
stellt. 


Type  mismatch 

Fehlernummer:  13 

"Typ  stimmt  nicht  uberein" 

Dieser  Fehler  tritt  immer  dann  auf,  wenn  bei  der  Ubergabe  von 
Werten  oder  der  Zuweisung  von  Variablen  verschiedene  Zahlen- 
Darstellungen  ohne  Umwandlung  ineinander  iiberfuhrt  werden 
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sollen.  Lesen  Sie  mal  das  Zwischenspiel  7,  dann  verstehen  Sie, 
worum's  geht.  Auch  ein  SWAP-Befehl  darf  nur  Variablen  des 
gleichen  Typs  benutzen. 


Undefined  array 
Fehlernummer:  38 
"Unbekanntes  Datenfeld" 

Hinter  SHARED  haben  Sie  den  Namen  eines  Felds  angegeben, 
der  im  Programm  nicht  existiert.  Vielleicht  meinten  Sie  gar  kein 
Datenfeld?  Dann  miissen  Sie  die  Klammern  hinter  dem  Va- 
riablennamen  Idschen. 


Undefined  label 

Fehlernummer:  8 

"Unbekanntes  Label,  unbekannte  Sprungmarke" 

Sie  verwenden  ein  Label  (z.B.  hinter  GOTO  oder  GOSUB),  das 
es  im  Programm  nicht  gibt.  Schauen  Sie  mal  nach  Tippfehlern 
im  Namen.  Gern  vergiBt  man  auch  den  Doppelpunkt  hinter  La- 
bels. (1st  uns  auch  schon  passiert.)  Der  muB  aber  hinter  einem 
Label  stehen,  wenn  das  Label  eine  Zeile  oder  einen  Programm- 
teil  benennt. 


Undefined  subprogram 
Fehlernummer:  35 
"Unbekanntes  SUB-Programm" 

Kommt  dann  vor,  wenn  Sie  ein  SUB-Programm  aufrufen,  das  es 
nicht  gibt.  Oft  wissen  Sie  gar  nicht,  daB  Sie  versucht  haben,  ein 
SUB-Programm  zu  aktivieren:  Wenn  AmigaBASIC  einen  Befehl 
aufgrund  eines  Tippfehlers  nicht  erkennt,  sucht  es  nach  einem 
SUB-Programm  gleichen  Namens.  Wird  auch  dabei  nichts 
gefunden,  erscheint  der  "Undefined  subprogram"-Error.  Diese 
Meldung  ist  deshalb  eine  der  hSufigsten  Fehlermeldungen. 
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Undefined  user  function 
Fehlernummer:  18 
"Unbekannte  Benutzerfunktion" 


Dieser  Fehler  tritt  auf,  wenn  Sie  eine  Funktion  FN...  verwenden 
wollen,  die  nicht  mit  DEF  FN  definiert  wurde.  Vielleicht  haben 
Sie  sich  beim  Funktionsnamen  vertippt?  Oder  ein  Variablenname 
beginnt  mit  FN  (darf  er  namlich  nicht,  urn  Verwechslungen 
auszuschlieBen).  Bedenken  Sie  auch,  dafl  CLEAR  samtliche 
Funktionsdefinitionen  mitlOscht. 


Unknown  volume 
Fehlernummer:  49 
"Unbekannter  Diskettenname" 

Dieser  Fehler  tritt  auf,  wenn  Sie  einen  Diskettennamen  angeben, 
der  von  AmigaBASIC  nicht  gefunden  wird.  Ursache  kann  ein 
Tippfehler  sein.  Wenn  Sie  einen  Diskettennamen  angeben,  den 
AmigaBASIC  nicht  findet,  fragt  zunachst  AmigaDOS  durch  ein 
Dialog-Window  nach  der  Diskette.  Klicken  Sie  in  diesem  Dia- 
log-Window ins  Feld  "Cancel",  wird  AmigaBASIC  mitgeteilt,  daG 
die  Diskette  nicht  gefunden  werden  konnte,  wodurch  die  ge- 
nannte  Fehlermeldung  entsteht. 


Unprintable  error 

Fehlernummer:  21,  24,  25  ,27,  28,  31,  32,  39-48,  56,  59,  60,  65, 

69,  71,  72,  75,  76,  78-255 

"Nicht  druckbarer  Fehler" 

Ein  Fehler  ist  aufgetreten,  fur  den  AmigaBASIC  keinen  Fehler- 
text  besitzt.  Das  kommt  hauptsSchlich  dann  vor,  wenn  Sie  mit 
ON  ERROR  und  dem  ERROR-Befehl  eigene  Fehler-Routinen 
schreiben.  Wenn  Sie  dabei  eigene  Fehlernummern  definieren, 
mussen  diese  von  ON  ERROR  naturlich  auch  abgefragt  werden. 
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WEND  without  WHILE 

Fehlernummer:  30 

"WEND  ohne  zugehtfriges  WHILE" 

Zu  jedem  WEND-Befehl  muB  auch  ein  WHILE  gehflren.  Tritt 
dieser  Fehler  auf,  hat  AmigaBASIC  mindestens  ein  uberzahliges 
WEND  gefunden.  Wenn  Sie  Ihre  Programme  in  strukturierter 
Schreibweise  schreiben,  ist  die  Gefahr  geringer,  ein  WEND  zu 
vergessen.  Da  WHILE  und  WEND  immer  paarweise  aufeinander 
bezogen  werden,  suchen  Sie  einfach  zu  jedem  WHILE  im  Pro- 
gramm  das  WEND,  so  finden  Sie  den  Fehler. 


WHILE  without  WEND 

Fehlernummer:  29 

"WHILE  ohne  zugehdriges  WEND" 

Dasselbe  wie  'WEND  without  WHILE',  nur  umgekehrt:  Amiga- 
BASIC hat  mindestens  ein  uberzahliges  WHILE  gefunden.  Ver- 
gleichen  Sie  'WEND  without  WHILE'. 
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Anhang  B:     BASIC-Referenzteil 

Dieser  Anhang  hat's  nun  wirklich  in  sich:  Hier  finden  Sie  alle, 
aber  auch  wirklich  alle  AmigaBASIC-Befehle  aufgefuhrt  und 
erkiart. 

Wir  haben  die  Befehle  alphabetisch  geordnet.  Sie  finden  deshalb 
neben  den  Befehlen,  die  Sie  schon  aus  dem  vorderen  Teil  ken- 
nen,  auch  einige  unbekannte  Befehle.  Bei  diesen  unbekannten 
Befehlen  mussen  Sie  unter  Umst&nden  etwas  mehr  experimen- 
tieren  als  im  vorderen  Teil,  da  es  oft  viele  Optionen  gibt,  die 
wir  zwar  vollst&ndig  auffiihren,  aber  aus  Platzgriinden  nicht  so 
ausfuhrlich  wie  gewohnt  erkiaren  kdnnen. 

In  dieser  Reihenfolge  finden  Sie  die  Informationen  zu  den  ein- 
zelnen  Befehlen: 

-  Befehl.  Hier  steht  der  Name  des  Befehls,  ohne  An- 
hSngsel  und  Optionen. 

-  Syntax.  In  dieser  Zeile  stehen  alle  Optionen  des  Befehls. 
Alles,  was  in  eckigen  Klammern  steht,  kdnnen  Sie 
weglassen.  Hat  der  Befehl  keine  weiteren  Optionen, 
steht  in  dieser  Zeile  nichts. 

-  Erkiarung.  Nun  folgt  eine  genaue  Erklarung  mit  Hin- 
weisen  und  gegebenenfalls  Beispielen. 

-  Kapitel.  Hier  steht  die  Nummer  des  Kapitels,  wo  der 
Befehl  vorne  im  Text  erklart  wird. 


ABS 

Syntax:        Wert=ABS(Wert) 

Die  Funktion  ABS  liefert  den  Absolutwert  einer  Zahl.  Der  Ab- 
solutwert  ist  der  vorzeichenfreie  Wert  einer  Zahl.  ABS(-2)  ist 
also  2,  ABS(O)  ist  0. 

Kapitel:  1.17 
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AND 

Syntax:        Wert  =  Wertl  AND  Wert2 

Die  logische  Verknupfung  AND  verkniipft  die  einzelnen  Bits 
von  'Wertl'  und  'Wert2'  folgendermaBen: 

0  AND  0  =  0 

0  AND  1  =  0 

1  AND  0  =  0 
1  AND  1  =  1 

Kapitel:  Zwischenspiel  4 

AREA 

Syntax:     area  [step]  (x,y) 

Mit  AREA  geben  Sie  einen  Punkt  eines  Vielecks  an.  Der 
AREAFILL-Befehl  zeichnet  dieses  Vieleck  auf  den  Bildschirm. 
Naheres  finden  Sie  dort.  Geben  Sie  hinter  AREA  die  Option 
STEP  an,  werden  die  Koordinatenwerte  V  und  y  zur  letzten 
verwendeten  Koordinate  dazugezahlt  (bzw.  bei  negativen  Werten 
abgezogen). 

Kapitel:  2.6 
AREAFILL 

Syntax:        AREAFILL  [Wert  fQr  Darstellungsmodus] 

Bis  zu  zwanzig  Eckpunkte  konnen  Sie  mit  AREA  angeben.  Mehr 
kann  sich  AmigaBASIC  nicht  merken.  Kommt  nun  im  Programm 
der  Befehl  AREAFILL,  wird  das  Vieleck,  das  durch  die  AREA- 
Befehle  angegeben  wurde,  auf  einen  Schlag  auf  den  Bildschirm 
gebracht.  Dank  Blitter  geht  das  unglaublich  schnell. 
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Sie  k6nnen  einen  von  zwei  Darstellungsmodi  angeben:  0  bewirkt, 
daB  das  Vieleck  in  dem  Muster  ausgefullt  wird,  den  Sie  mit 
PATTERN  angegeben  haben.  1  bewirkt,  daB  das  Vieleck  inver- 
tiert  wird.  Bei  den  normalen  Farben  heiBt  das: 

Aus  Blau  wird  Orange. 
Aus  WeiB  wird  Schwarz. 
Aus  Schwarz  wird  WeiB. 
Und  aus  Orange  wird  Blau. 

Kapitel:  2.6 


ASC 

Syntax:        Wert=ASC(String) 

ASC  liefert  den  ASCII-Code  des  ersten  Zeichens  des  in  Klam- 
mern  angegebenen  Strings.  1st  der  String  leer,  gibt  es  einen  "Ille- 
gal function  call"-Error.  Eine  Tabelle  aller  ASCII-Codes  finden 
Sie  bei  CHR$. 

Kapitel:  4.3 
ATN 

Syntax:        Wert=ATN(Wert) 

ATN  liefert  den  Arcustangens  des  Werts  in  Klammern.  Sie  er- 
halten  einen  Winkel  im  BogenmaB.  Er  liegt  zwischen  -±*Pi  und 
+i*Pi.  Wollen  Sie  einen  solchen  Winkel  ins  GradmaB  umrechnen, 
brauchen  Sie  folgende  Formel: 

Grad  =  (180  *  BogenmaB)/Pi 

oder 

Grad  =  57.296  *  BogenmaB 


632 AmigaBASIC 

BEEP 

Syntax: 

Dieser  Befehl  erzeugt  einen  Piepser  und  ein  kurzes  Aufblitzen 
auf  dem  Bildschirm.  Damit  kann  der  Programmbenutzer  auf  et- 
was  Besonderes  hingewiesen  werden.  Den  Piepser  h$rt  man  nur, 
wenn  mindestens  der  linke  Tonausgang  (Kanal  0)  mit  einem 
Lautsprecher  verbunden  ist.  Anstelle  von  BEEP  kdnnen  Sie  auch 
PRINT  CHR$(7)  verwenden,  das  funktioniert  genauso. 

Kapitel:  1.6 


BREAK  ON 
BREAK  OFF 
BREAK  STOP 

Syntax: 

Diese  Befehle  steuern  Event  Trapping  fur  einen  Programmab- 
bruch.  Sie  k6nnen  n£mlich  auch  das  Drucken  von  <CTRL>-<C> 
Oder  das  W£hlen  von  "Stop"  aus  dem  "RunM-Pulldown  zu  einem 
uberprfifbaren  Ereignis  machen.  So  kdnnen  Sie  verhindern,  daB 
ein  Anwender  Ihr  Programm  abbricht,  oder  darauf  hinweisen, 
daB  das  zur  Zeit  nicht  mflglich  ist.  Mit  ON  BREAK  GOSUB  le- 
gen  Sie  das  zust&ndige  Unterprogramm  fest.  BREAK  ON  akti- 
viert  Event  Trapping,  BREAK  OFF  deaktiviert  es,  und 
BREAK  STOP  schaltet  es  voriibergehend  aus. 


CALL 

Syntax:        [CALL]  Label  [(Wert,  ...)] 

[CALL]  Variable  [(Wert,  ...)] 

Zum  einen  rufen  Sie  mit  dem  CALL-Befehl  SUB-Programme 
auf.  Naheres  fiber  diese  Programme  erfahren  Sie  bei 
SUB.. .STATIC.  CALL  kOnnen  Sie  in  den  meisten  Fallen  weglas- 
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sen.  Nur  wenn  es  Verwechslungen  geben  kdnnte  (z.B.  mit  nor- 
malen  Unterprogramm-Labels),  ist  CALL  zwingend. 

Mit  dem  CALL-Befehl  konnen  Sie  zum  anderen  auch  Unter- 
programme  in  Maschinensprache  aufrufen.  Sie  wissen  ja,  daB 
der  Amiga  nicht  von  Haus  aus  BASIC  spricht,  sondern  einen 
Ubersetzer  (den  Interpreter)  braucht.  Wenn  Sie  sich  mit  dem 
Amiga  in  seiner  Muttersprache  unterhalten  wollen,  miissen  Sie 
68000  Assembler  kflnnen.  Ist  das  nicht  der  Fall,  kflnnen  Sie  die 
nachsten  AbsStze  gern  uberspringen. 

Sie  mussen  das  Maschinenspracheprogramm  zunachst  irgendwie 
in  den  Speicher  bekommen.  Dazu  k6nnen  Sie  es  von  Diskette  la- 
den Oder  mit  READ  aus  DATA-Feldern  lesen.  Die  Startadresse 
der  Maschinenroutine  erfahren  Sie  mit  den  Funktionen 
VARPTR  Oder  SADD.  Ein  Beispiel: 

DIM  Maschinenprogramm%(20) 
FOR  x=0  TO  20 

READ  Maschinenprogramnft(x) 
NEXT  x 

StartAdresse&=VARPTR<Maschinenprogramrri%(0)) 
CALL  StartAdresse&(10f20) 
DATA 

Das  ganze  Programm  steht  also  im  Integerfeld  'Maschinenpro- 
gramm%\  Die  Adresse,  ab  der  dieses  Feld  im  Speicher  steht, 
erfahren  Sie  mit 

VARPTR(Maschinenprogramnnfc(0)) . 

Das  ist  n&mlich  die  Startadresse  des  ersten  Feldelements.  Da  sie 
theoretisch  bis  zu  24  Bits  lang  sein  kann,  verwenden  wir  eine 
32-Bit-Integerzahl  (mit  einem  &  am  Ende).  Mit  dem  CALL- 
Befehl  kdnnen  Sie  dem  Maschinenspracheprogramm  auch  noch 
Parameter  ubergeben,  wie  in  unserem  Beispiel  die  Zahlen  10 
und  20.  Auch  in  einem  String  kann  das  Maschinensprachepro- 
gramm abgelegt  werden: 
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FOR  x=0  TO  20 

READ  Wert 

Ha$=Ma$+MKI$(Wert) 
NEXT  x 

StartAdresse&=SADD(Ma$) 
CALL  StartAdresse&<10,20) 
DATA 

Die  Funktion  SADD  liefert  die  Anfangsadresse  eines  Strings.  Mit 
MKIS  setzen  wir  den  String  aus  den  Einzelwerten  zusammen, 
die  in  der  DATA-Zeile  stehen  miissen.  Drittens  kOnnen  Sie  mit 
CALL  auch  Maschinen-Unterprogramme  aus  einer  Library  (ei- 
ner  'Bibliothek")  aufrufen.  N&heres  dazu  beim  Befehl 
LIBRARY. 

Kapitel:  4.5 


CDBL 
CINT 
CLNG 
CSNG 

Syntax:        Wert=C***(Wert) 

Diese  Befehle  wandeln  einen  Zahlenwert  in  ein  anderes  Darstel- 
lungsformat  urn. 

CDBL  erzeugt  eine  doppelt  genaue  FlieOkommazahl. 

CINT  erzeugt  eine  16-Bit-Integerzahl.  Dabei  wird  die  Zahl  nach 
den  iiblichen  Regeln  gerundet:  CINT(3.4)=3,  CINT(3.5)=4.  Der 
Wert  in  Klammern  darf  zwischen  -32768  und  32767  liegen. 

CLNG  erzeugt  eine  32-Bit-Integerzahl.  Auch  hier  wird  gerun- 
det. Der  Wert  in  Klammern  darf  zwischen  -2147483648  und 
2147483647  liegen. 
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CSNG  erzeugt  eine  einfach  genaue  FlieBkommazahl. 

1st  die  Ursprungszahl  fur  den  gewiinschten  Zahlentyp  zu  groB, 
gibt's  einen  MOverflowH-Error.  Zu  den  verschiedenen  Zahlen- 
typen  Iesen  Sie  bitte  Zwischenspiel  7. 

Kapitel:  1.17 


CHAIN 

Syntax:        CHAIN  [MERGE]  Dateiname  [.Zeile]  [,ALL]  [.DELETE  Zeile-Zeile 
oder  Label-Label] 

Dieser  Befehl  ermtfglicht  es  einem  BASIC-Programm,  ein  an- 
deres  BASIC-Programm  nachzuladen  und  ihm  die  Kontrolle  zu 
ubergeben.  Der  Unterschied  zum  MERGE-Befehl  ist,  daB  hier 
das  aufrufende  Programm  ganz  oder  teilweise  gelflscht  wird. 
Beim  CHAIN-Befehl  ist  das  Wort  MERGE  eine  von  mehreren 
Optionen.  Wenn  Sie  sie  verwenden,  wird  das  aufrufende  Pro- 
gramm ab  der  'Zeile',  die  Sie  hinter  dem  Dateinamen  angegeben 
haben,  von  dem  neuen  Programm  uberschrieben.  Das  nach- 
geladene  Programm  muB  dazu  als  ASCII-Datei  auf  Diskette  ste- 
hen. 

Fehlt  MERGE,  gibt  'Zeile1  die  Zeilennummer  im  nachgeladenen 
Programm  an,  ab  der  das  Programm  gestartet  werden  soil.  Fur 
'Zeile'  darf  leider  kein  Label  angegeben  werden,  Sie  mussen  in 
diesem  Fall  Zeilennummern  verwenden.  Das  ist  etwas  inkon- 
sequent  von  Microsoft,  aber  in  der  aktuellen  Version  von 
AmigaBASIC  leider  nicht  zu  andern.  Die  Option  ,ALL  bewirkt, 
daB  alle  Variablen  des  aktuellen  Programms  dem  nachgeladenen 
Programm  Obergeben  werden.  Wollen  Sie  das  nicht,  k6nnen  Sie 
mit  dem  Befehl  COMMON  einzelne  Variablen  ausw&hlen,  die 
ubergeben  werden  sollen.  Wenn  Sie  die  Variableniibergabe  mit 
dem  COMMON-Befehl  16sen  wollen,  darf  ,ALL  nicht  angegeben 
werden. 
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,DELETE  16scht  im  nachgeladenen  Programm  einen  bestimmten 
Zeilenbereich.  Sie  kSnnen  ihn  durch  Zeilennummern  oder  Labels 
angeben. 

Der  CHAIN-Befehl  setzt  den  Zeiger  fur  DATA-Elemente  auf 
den  Anfang  zurOck,  wirkt  also  wie  RESTORE.  Neben  den  Va- 
riablen  bleiben  nach  CHAIN  auch  alle  gedffneten  Dateien  offen 
und  Einstellungen  wie  durch  OPTION  BASE  erhalten.  Anderer- 
seits  schaltet  CHAIN  das  Event  Trapping  aus.  Sie  mussen  es  im 
neuen  Programm  reaktivieren.  Auch  Typ-Festlegungen  mit 
DEFINT,  DEFLNG  etc.  werden  vergessen.  Steht  eine  Festlegung 
mit  dem  DEF  FN-Befehl  nicht  mehr  im  neu  erzeugten  Pro- 
gramm, vergiBt  AmigaBASIC  auch  die  alten  Funktions- 
Definitionen. 


CHDIR 

Syntax:        CHDIR  "  |Gerat  oder  Laufwerk  oder  Diskettenname:] 
[Inhaltsverseichnis]  [/Inhaltaveixeichnis  ...] 

CHDIR  andert  das  aktuelle  Inhaltsverzeichnis.  Sie  kdnnen  dabei 
entweder  vom  aktuellen  Inhaltsverzeichnis  aus  "tiefer"  in  die 
Unter-Directories  steigen  oder  von  ganz  vorn  einen  neuen  Weg 
durch  die  Verzweigungen  angeben.  Wie  ein  System  von  Unter- 
Inhaltsverzeichnissen  aufgebaut  ist,  zeigt  Ihnen  z.B.  Bild  13  in 
Kapitel  3.2. 

Mit  CHDIR  "/"  steigen  Sie  in  den  Inhaltsverzeichnissen  eine 
Ebene  nach  oben.  Wollen  Sie  mit  diesem  Befehl  von  der 
hdchsten  Stufe  ("Basis-Verzeichnis")  eine  weitere  Ebene  nach 
oben  steigen,  erhalten  Sie  einen  "File  not  found"-Error.  Die 
gleiche  Meldung  kommt  naturlich  auch,  wenn  Sie  ein  Unter-In- 
haltsverzeichnis  angeben,  das  nicht  existiert.  Ins  Basis-Ver- 
zeichnis  gelangen  Sie  mit  CHDIR  ":H. 

Kapitel:  3.2 
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CHR$ 

Syntax:        String=CHR$(Wert) 

Die  Funktion  CHR$  erzeugt  das  Zeichen,  das  zu  dem  in  Klam- 
mern  angegebenen  ASCII-Code  gehflrt.  Der  Wert  in  Klammern 
darf  zwischen  0  und  255  liegen.  Der  ASCII-Code  (American 
Standard  Code  for  Information  Interchange)  ist  ein  genormter 
Code,  der  jedem  druckbaren  Zeichen  und  jedem  Steuerzeichen 
eine  Zahl  zwischen  0  und  255  zuordnet.  Die  Zeichen  128  bis  255 
sind  bisher  noch  nicht  vereinheitlicht,  der  Amiga  benutzt  sie  fur 
Funktionstasten  und  landesspezifische  Sonderzeichen.  Die  Zei- 
chen, die  ein  eckiges  Kastchen  ergeben,  sind  noch  frei.  Bild  24 
zeigt  eine  Tabelle  der  ASCII-Codes. 

Kapitel:  1.15 
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B  ICTRLH0] 

32 

64  1? 

96  ' 

1  ICTRLHA] 

33  ! 

65  A 

97  a 

2  ICTRLHB1 

34  " 

66  B 

98  b 

3  ICTRLHC1 

(Break) 

35  it 

67  C 

99  c 

4  ICTRLHD] 

36  $ 

68  D 

168  d 

5  [CTRL1-IE1 

37  '/ 

69  E 

181  e 

6  ICTRLHF] 

38  S 

7BF 

182  f 

7  ICTRL]-IG]  (Beep) 

39  ' 

71  G 

183  g 

8  ICTRLHHl 

(BACKSPACE)  4B  ( 

72  H 

1B4  h 

9  [CTRLHU 

(TAB) 

41  ) 

73  1 

185  i 

IB  ICTRLHJ] 

(Line  feed)  42  * 

74  J 

186  j 

11  [CTRLHK1 

43  + 

75  K 

187  k 

12  ICTRLHL] 

(Loschen) 

44  , 

76  L 

188  1 

13  [CTRL1-IM] 

(RETURN) 

45  - 

77  M 

1B9  n 

14  [CTRLHN1 

46  , 

78  N 

118  n 

15  ICTRLHO] 

47  / 

79  0 

111  0 

16  ICTRLHP] 

48  B 

8B  P 

112  p 

17  ICTRLHQ] 

49  1 

81  Q 

113  q 

18  [CTRLl-tR] 

5B  2 

82  R 

114  r 

19  ICTRLHS] 

51  3 

83  S 

115  s 

2B  ICTRLHT1 

52  4 

84  T 

116  t 

21  ICTRLHU] 

53  5 

85  II 

117  u 

22  ICTRLHV] 

54  6 

86  V 

118  v 

23  [CTRL1-IH] 

55  7 

87  W 

119  w 

24  ICTRL1-M 

56  8 

88  X 

128  x 

25  ICTRL1-IY] 

57  9 

89  Y 

121  y 

26  ICTRLHZ] 

58  : 

98  Z 

122  z 

27  ICTRLHM 

(ESC) 

59  J 

91  [ 

123  { 

28  ICTRLl-[\] 

(hoch) 

6B  ( 

92  \ 

124  1 

29  [CTRL]-!]] 

(runter) 

61  = 

93  ] 

125  } 

3B  tCTRLl-I*] 

(rechts) 

62  ) 

94  A 

126  " 

31  [CTRLHJ 

(links) 

63  ? 

95  _ 

127  $ 

Bild  24a:  Die  ASCII-Code-Tabelle  (Teil  1) 
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128  D 

168 

192  A 

224  a 

129  0 

<F1> 

161  i 

193  A 

225  a 

139  D 

<F2) 

162  C 

194  A 

226  a 

131  D 

<F3> 

163  £ 

195  A 

227  3 

132  0 

<F4) 

164  H 

196  A 

228  a 

133  D 

<F5) 

165  ¥ 

197  A 

229  3 

134  D 

<F6) 

166  i 

198  A 

238  s 

135  0 

<F7) 

167  \ 

199  C 

231  c 

136  D 

<F8> 

168  " 

288  t 

232  i 

137  D 

<F9> 

169  0 

281  t 

233  i 

138  0 

<F18> 

17B  fi 

282  e 

234  e 

139  D 

<HELP> 

171  « 

283  e 

235  e 

148  0 

172  - 

284  1 

236  ) 

141  D 

173- 

285  1 

237  i 

142  0 

174  0 

2B6  1 

238  I 

143  D 

175" 

287  ii 

239  l 

144  D 

176  ° 

288  D 

248  ct 

145  0 

177  i 

289  N 

241  ff 

146  D 

178  2 

218  & 

242  6 

147  D 

179  3 

211  6 

243  6 

148  D 

188  ' 

212  8 

244  a 

149  D 

181  U 

213  d 

245  ff 

158  0 

182  f 

214  '0' 

246  o 

151  D 

183  - 

215  0 

247  D 

152  D 

184  , 

216  0 

248  ? 

153  D 

185  i 

217  (i 

249  ft 

154  □ 

186  2 

218  ii 

258  i) 

155  D 

187  » 

219  ft 

251  ft 

156  D 

188  14 

228  ii 

252  u 

157  D 

189  14 

221  * 

253  y" 

158  D 

198  M 

222  F 

254  f> 

159  D 

191  1 

223  |! 

255  y 

Bild  24b:  Die  ASCII-Code-Tabelle  (Teil  2) 
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CINT 
siehe  CDBL 


CIRCLE 

Syntax:        CIRCLE  [STEP]  (x,y)  .Radius  [.Farbe]  [.Anfangswinkel]  [.Endwinkel] 
[,x/y-Verhaltnis] 

Dieser  Befehl  zeichnet  einen  Kreis  oder  genaugenommen  eine 
Ellipse  urn  den  Mittelpunkt  (x,y).  'Radius'  gibt  den  x-Radius  in 
Pixels  an.  Wenn  Sie  STEP  vor  dem  Mittelpunkt  verwenden,  zahlt 
AmigaBASIC  die  Werte  V  und  y  zur  letzten  verwendeten  Gra- 
fik-Koordinate  dazu. 

'Farbe'  gibt  die  Farbnummer  an,  in  der  gezeichnet  werden  soil. 
Die  Anzahl  der  erlaubten  Farben  hangt  von  der  Anzahl  der  Bit- 
ebenen  im  verwendeten  Screen  ab.  'AnfangswinkeF  und  'End- 
winkel'  ermdglichen  das  Zeichnen  von  Kreisausschnitten:  Geben 
Sie  einen  BogenmaJJ-Winkel  (Vielfaches  von  Pi)  fur  den  An- 
fangspunkt  und  einen  fur  den  Endpunkt  an.  Negative  Winkel 
bewirken,  daB  der  Anfangs-  und  der  Endpunkt  mit  dem  Mittel- 
punkt verbunden  werden.  Bild  6  in  Kapitel  2.6  hilft  Ihnen  beim 
Bestimmen  der  Winkel. 

'x/y-Verhaitnis'  legt  das  Verhaltnis  des  x-Radius  zum  y-Radius 
fest.  So  kdnnen  Sie  alle  Arten  von  Ellipsen  erzeugen.  Werte  un- 
ter  0.44  bewirken  einen  kleinen  y-Radius,  eine  liegende  Ellipse 
entsteht.  Uber  0.44  wird  der  y-Radius  grSfler  als  der  x-Radius, 
eine  stehende  Ellipse  wird  gezeichnet.  Der  Wert  0.44  entspricht 
normalerweise  (abhangig  von  der  Monitoreinstellung)  einem 
perfekt  runden  Kreis. 

Kapitel:  2.6 
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CLEAR 

Syntax:        CLEAR  [.BASIC-Speicherbereich]  [.Stack] 

Zunachst  dient  CLEAR  dazu,  alle  Variables  Strings  und  Daten- 
felder  zu  loschen.  Auch  alle  offenen  Dateien  werden  durch  die- 
sen  Befehl  geschlossen.  Sie  kflnnen  aber  noch  ein  biBchen  mehr 
damit  anfangen. 

CLEAR  ermoglicht  es  auch,  die  Speichereinteilung  von  Amiga- 
BASIC  zu  verandern.  Sie  kdnnen  den  Speicherbereich  fur  das 
BASIC-Programm  und  seine  Daten  nach  Bedarf  vergrdBern  oder 
yerkleinern.  Die  MindestgrflBe  fur  den  'BASIC-Speicherbereich* 
ist  1024  Bytes,  also  1  KByte.  Nach  oben  ist  die  einzige  Grenze 
die  GrdBe  des  Speicherplatzes  im  System.  In  Grafikprogrammen 
braucht  der  Amiga  viel  Speicher,  um  die  Grafiken  darzustellen. 
Lassen  Sie  also  bitte  genug  Speicherplatz  tibrig.  Wenn  dem 
Amiga  Systemspeicherplatz  fehlt,  kommt  es  gem  zum  System- 
absturz  ("Guru  Meditation"  -  Sie  kennen  das  ja). 

Bei  Programmen,  die  haupts^chlich  mit  Daten  arbeiten  und  nicht 
viel  Grafikspeicher  brauchen,  kflnnen  Sie  den  BASIC-Speicher 
aber  ziemlich  weit  nach  oben  setzen.  Die  Voreinstellung  fur  den 
BASIC-Speicherbereich  ist  25000  Bytes  auf  dem  512K-Amiga. 

Ein  Beispiel: 

CLEAR   ,40000 

stellt  40000  Bytes  fur  den  BASIC-Speicher  zur  Verfugung. 

Der  'Stack'  ist  der  Speicherbereich,  den  AmigaBASIC  fur  interne 
Zwischenwerte  etc.  benutzt.  Hier  merkt  es  sich  z.B.  den  Inhalt 
von  ZShlvariablen  bei  FOR.. .NEXT  oder  die  Zeile,  in  die  das 
Programm  nach  RETURN  zuruckkehren  soil.  Dieser  Bereich  ist 
auf  4789  Bytes  voreingestellt.  Seine  MindestgrGBe  ist  1024  Bytes. 
Sehen  Sie  sich  auch  den  Befehl  FRE(x)  an.  Da  steht,  wie  Sie  die 
aktuellen  SpeichergrSBen  feststellen  k6nnen. 
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CLNG 
siehe  CDBL 

CLOSE 

Syntax:        CLOSE  [  [#]  Dateinummer)  [,  [#]  Dateinummer] 

Mit  CLOSE  schlieBen  Sie  eine  oder  mehrere  Dateien.  Das 
SchlieBen  von  Dateien  hat  mehrere  Grunde: 

Erstens  legt  AmigaBASIC  fur  jede  Datei  einen  Pufferspeicher 
an.  Erst  durch  den  CLOSE-Befehl  wird  beim  Schreiben  der 
letzte  Pufferinhalt  wirklich  ubertragen.  Zweitens  muB 
AmigaDOS  beim  SchlieBen  von  Ausgabedateien  auf  Diskette  ei- 
nige  Informationen  auf  den  neuesten  Stand  bringen  (z.B.  die 
Dateiiange). 

Und  drittens  wird  die  verwendete  Dateinummer  dadurch  wieder 
fur  neue  OPEN-Befehle  freigegeben.  Und  bei  OPEN  finden  Sie 
auch  Naheres  tiber  Dateien. 

Kapitel:  3.3 

CLS 
Syntax: 

CLS  16scht  den  Bildschirminhalt  des  aktuellen  Ausgabewindows. 
Der  Ausgabecursor  wird  danach  in  die  linke  obere  Ecke  gesetzt. 
Das  bedeutet,  die  n&chste  Ausgabe  mit  PRINT  oder  einem  ahn- 
lichen  Befehl  erscheint  an  dieser  Position. 

Kapitel:  1.3 
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COLLISION 

Syntax:        Wert=COLLISION(Objektnumrner) 

Die  COLLISION-Funktion  liefert  verschiedene  Ergebnisse,  die 
Auskunft  fiber  Kollisionen  zwischen  Bobs  oder  Sprites  geben. 
Jede  Kollision  wird  in  eine  Warteschlange  geschrieben,  so  daB 
alle  ZusammenstdBe  abgefragt  und  bearbeitet  werden  kflnnen. 
Allerdings  kann  sich  AmigaBASIC  nicht  mehr  als  16  Kollisionen 
gleichzeitig  merken. 

In  Klammern  geben  Sie  die  Nummer  des  Objekts  an,  das  auf 
einen  ZusammenstoB  untersucht  werden  soil.  Das  Ergebnis  ist 
dann  die  Nummer  des  Objekts,  mit  dem  das  angegebene  Objekt 
kollidierte.  Die  Kollision  wird  aus  der  Warteschlange  gelflscht. 
Es  ist  auch  m6glich,  daB  die  Kollision  mit  dem  Window-Rah- 
men  stattfand.  Dann  erhalten  Sie  ein  Ergebnis  zwischen  -1  und 
-4: 

-1  oberer  Rand 

-2  linker  Rand 

-3  unterer  Rand 

-4  rechter  Rand 

Anstelle  einer  'Objektnummer'  kOnnen  Sie  auch  0  oder  -1  ange- 
ben:  Die  Funktion  COLLISION(O)  liefert  die  Nummer  des  Ob- 
jekts, das  zuletzt  an  einer  Kollision  beteiligt  war,  ohne  die  Kol- 
lision aus  der  Warteschlange  zu  Idschen.  Das  ist  dann  nutzlich, 
wenn  Sie  abfragen  wollen,  welche  Kollision  zuletzt  stattfand, 
ohne  sie  dabei  gleich  zu  bearbeiten. 

Und  COLLISION(-l)  hat  als  Ergebnis  die  Nummer  des  Win- 
dows, in  dem  die  Kollision  erfolgte.  Auch  diese  Information 
kann  in  Programmen  wichtig  sein,  z.B.  wenn  mehrere  Bewegun- 
gen  in  verschiedenen  Windows  stattfinden. 
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COLLISION  ON 
COLLISION  OFF 
COLLISION  STOP 

Syntax: 

Diese  drei  Befehle  sind  fur  Event  Trapping  aufgrund  von  Ob- 
jekt-Kollisionen  zustfcndig.  COLLISION  ON  schaltet  die  Kol- 
lisionsuberwachung  ein,  COLLISION  OFF  schaltet  sie  aus, 
COLLISION  STOP  unterbricht  die  Uberwachung  bis  zum  nfcch- 
sten  COLLISION  ON.  Mit  ON  COLLISION  GOSUB  kdnnen  Sie 
das  Unterprogramm  angeben,  zu  dem  das  Programm  bei  einer 
Kollision  verzweigen  soil.  Dort  kfinnen  Sie  dann  mit  der  COL- 
LISION-Funk  tion  die  beteiligten  Objekte  untersuchen. 


COLOR 

Syntax:        COLOR  [Vordergrundfarbe]  [.Hintergmndfarbe] 

COLOR  legt  fur  jede  Art  von  Ausgabe  (Text,  Grafik)  eine 
'Vordergrundfarbe*  (=  Textfarbe,  Zeichenfarbe)  und  eine  'Hin- 
tergrundfarbe*  (Bildschirmhintergrund)  fest.  Fur  beide  Farben 
geben  Sie  jeweils  eine  Farbnummer  an.  Die  H6he  der  Farbnum- 
mer  h&ngt  von  der  Anzahl  der  Bit-Ebenen  im  verwendeten 
Screen  ab.  Welchen  Farben  die  Farbnummern  entsprechen,  wird 
durch  die  Einstellungen  in  Preferences  und  mit  dem  PALETTE - 
Befehl  bestimmt.  Wenn  Sie  einen  Wert  Oder  beide  Werte  weglas- 
sen,  verwendet  AmigaBASIC  automatisch  Farbe  Nummer  1 
(normalerweise  weiB)  als  'Vordergrundfarbe*  und  Nummer  0 
(normalerweise  blau)  als  'Hintergrundfarbe\  Wenn  Sie  unmittel- 
bar  vor  Textausgaben  den  Wert  fur  die  'Hintergrundfarbe*  an- 
dern,  erscheint  der  Text  auf  einem  farbigen  Balken.  Bei  den 
meisten  Grafikbefehlen  hingegen  wird  der  Hintergrund  gar  nicht 
ver^ndert. 

Kapitel:  1.16 
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COMMON 

Syntax:        COMMON  Variablenname  [(Variablenname,  ...] 

Dieser  Befehl  ubergibt  einzelne,  angegebene  Variablen  einem 
Programm,  das  Sie  mit  CHAIN  nachladen.  Wenn  Sie  Felder 
ubergeben  wollen,  mussen  Sie  sie  durch  ein  Paar  leere  Klam- 
mern  kennzeichnen: 

CHAIN  "(Programmname)" 

COMMON  a,b$,HalloX,   FarbenO,  Texte$() 

Sie  diirfen  auch  mehrere  COMMON-Anweisungen  verwenden, 
jede  Variable  darf  aber  nur  einmal  vorkommen. 

CONT 

Syntax: 

Mit  CONT  setzen  Sie  ein  Programm  fort,  das  durch  <CTRL>- 
<C>,  MStopH  aus  dem  "Run"-Pulldown,  einen  STOP-  oder  einen 
END-Befehl  im  Programm  abgebrochen  wurde.  Das  Programm 
darf  wahrend  der  Unterbrechung  aber  nicht  verandert  werden, 
sonst  erhalten  Sie  einen  "Can't  continue"-Error. 

COS 

Syntax:        Wert=COS(Wert) 

COS  liefert  den  Cosinus  eines  Werts.  Der  Winkel  muB  im 
BogenmaB  angegeben  werden.  Wollen  Sie  einen  Winkel  im 
GradmaB  ins  BogenmaB  umrechnen,  brauchen  Sie  folgende 
Formel: 
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BogenmaB  =  (Pi  *  Grad)/180 
oder 

BogenmaB  =  0.0175  *  Grad 
Kapitel:  2.5 

CSNG 
siehe  CDBL 

CSRLIN 

Syntax:      Wert=csRLiN 

CSRLIN  ist  eine  sogenannte  Systemvariable.  Ahnlich  wie 
DATES  Oder  FRE(O)  ist  das  eine  Variable,  die  von  AmigaBASIC 
einen  bestimmten  Wert  zugewiesen  bekommt.  Der  Anwender 
kann  die  Variable  nicht  verwenden.  CSRLIN  beinhaltet  die 
Zeile,  in  der  der  Cursor  zur  Zeit  steht.  So  kSnnen  Berechnungen 
fur  LOCATE  durchgefuhrt  werden.  Vergleichen  Sie  bitte  auch 
POS. 


CVD 
CVI 
CVL 
CVS 

Syntax:        Wert=CVD(8-Byte-String) 
Wert=CVI(2-Byte-Strins) 
Wert=CVL(4-Byte-String) 
Wert=CVS(4-Byte-String) 

Wenn  Sie  Zahlen  in  Dateien  speichern,  ist  es  platzsparend  und 
schneller,  sie  als  Bytes  abzulegen,  die  als  Strings  gelesen  und 
geschrieben  werden.  Dazu  gibt  es  die  MK*$-Funktionen.  Urn 
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aus  solchen  Strings  beim  Lesen  wieder  Zahlen  zu  machen,  die- 
nen  diese  vier  Funktionen: 

CVD  macht  aus  einem  8  Byte  langen  String  eine  doppelt  genaue 
FlieBkommazahl. 

CVI  macht  aus  einem  2  Byte  langen  String  eine  16-Bit-Integer- 
zahl. 

CVL   macht  aus  einem  4   Byte   langen  String  eine   32-Bit-In- 
tegerzahl. 

CVS  macht  aus  einem  4  Byte  langen  String  eine  einfach  genaue 
FlieBkommazahl. 

Zu  den  Zahlentypen  lesen  Sie  bitte  Zwischenspiel  7. 
Kapitel:  4.1,  4.3 


DATA 

Syntax:        DATA  Wert  [.Wert,  ...] 

In  DATA-Zeilen  konnen  Sie  Werte  (Zahlen  oder  Strings)  able- 
gen,  die  mit  dem  READ-Befehl  gelesen  werden.  Die  Werte  wer- 
den durch  Kommas  getrennt.  Enthait  ein  String  Kommas  oder 
Strichpunkte,  muB  er  in  Anfuhrungszeichen  geschrieben  werden. 

DATA-Zeilen  diirfen  sich  an  jeder  Stelle  im  Programm  befin- 
den,  die  DATA-Werte  werden  einzeln  nacheinander  gelesen. 

Kapitel:  2.9 
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DATES 

Syntax:        String=DATE$ 

Diese  Funktion  liefert  das  Systemdatum  in  einem  10  Zeichen 
langen  String.  Das  "Systemdatum"  ist  das  Datum,  das  in  Prefe- 
rences eingestellt  ist  bzw.  das  Datum,  das  AmigaDOS  aus  einer 
eingebauten  Echtzeituhr  (A500  und  A2000)  iibernommen  hat. 
Das  Datum  wird  im  amerikanischen  Format  MM-TT-JJJJ  dar- 
gestellt.  In  Kapitel  4.7  finden  Sie  eine  Routine,  die  DATES  ins 
deutsche  Format  umrechnet. 

Kapitel:  1.17,  4.7 


DECLARE  FUNCTION  ...  LIBRARY 

Syntax:        DECLARE  FUNCTION  Name  [Variablenname,  ...]  LIBRARY 

Wenn  Sie  Maschinenprogramme  aus  einer  Library  verwenden 
(vergleichen  Sie  bitte  CALL  und  LIBRARY),  und  diese  Pro- 
gramme eine  Funktion  sind,  also  ein  Ergebnis  liefern,  mussen 
Sie  die  Funktion  mit  DECLARE  FUNKTION  ...  LIBRARY  an- 
kundigen  oder  anmelden.  Soil  das  Ergebnis  einen  bestimmten 
Zahlentyp  haben,  hangen  Sie  einfach  die  Typ-Kennzeichnung  an 
den  Namen  der  Funktion  an: 

DECLARE  FUNCTION  Test%(Testwert)  LIBRARY 

Die  Maschinensprache-Funktion  'Text%(Testwert)'  liefert  eine 
16-Bit-Integerzahl  als  Ergebnis.  Die  Angabe  der  Variablen,  die 
das  Maschinenprogramm  erwartet,  ist  nicht  notig,  denn  Amiga- 
BASIC kummert  sich  sowieso  nicht  darum.  Wenn  Sie  sie  trotz- 
dem  hinschreiben,  wissen  Sie  aber  auch  noch  spater,  welche 
Werte  der  Maschinensprache-Funktion  eigentlich  ubergeben 
werden  mussen. 
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DEF  FN 

Syntax:        DEF  FNName  [(Wert,  [Wert,...])]  =  Definition 

Mit  DEF  FN  kdnnen  Sie  eigene  BASIC-Funktionen  festlegen. 
Der  Funktionsname  wird  hinter  FN  angeMngt.  Wenn  Sie  die 
Funktion  im  Programm  verwenden  wollen,  schreiben  Sie  z.B. 
PRINT  FNa(  100)  Oder  Test=FNText(  1,2,4).  Die  Werte,  die  Sie 
optional  in  Klammern  angeben,  und  die  in  der  Funktionsdefini- 
tion  vorkommen  (DEF  FNa(x)  =  2*x),  werden  beim  Funktions- 
aufruf  durch  den  dort  angegebenen  Wert  ersetzt  Das  Ergebnis 
der  Funktion  ist  das  Ergebnis  der  Formel,  die  Sie  in  der 
Definition  angegeben  haben,  fur  die  ubergebenen  Werte  ausge- 
rechnet.  Kommen  in  der  Definition  andere  Variablen  vor  als 
hinter  FNName  angegeben,  werden  beim  Ausrechnen  die  gerade 
aktuellen  Werte  dieser  Variablen  verwendet: 

DEF  FNTest(x)  =  2*x*a 
a=100  :  PRINT  FNTest(25) 
a=12  :  PRINT  FNTest(25) 

ergibt  5000  und  1250.  Sie  kdnnen  auch  mit  Stringfunktionen  ei- 
gene Funktionen  definieren. 

DEF  FNErst$(a$)  =  LEFT$(a$#1) 
PRINT  FNErst$(MAmiga») 

ergibt  ein  A. 
Kapitel:  7.6 
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DEFDBL 
DEFINT 
DEFLNG 
DEFSNG 
DEFSTR 

Syntax:        DEF***  Buchstabe  [-Buchstabe]  [.Buchstabe...] 

Mit  diesen  Befehlen  k6nnen  Sie  bestimmte  Variablennamen  auf 
einen  bestimmten  Variablentyp  festlegen.  Dazu  geben  Sie  den 
Anfangsbuchstaben  der  Variablennamen  an: 

DEFINT  a-c  bedeutet,  daB  ab  sofort  alle  Variablen,  die  mit  den 
Buchstaben  a  bis  c  beginnen  (also  Amiga,  alpha,  Beta,  Char- 
lie,...), 16-Bit-Integervariablen  sein  sollen.  Sie  mussen  nun  nicht 
mehr  jede  einzelne  Variable  mit  %  kennzeichnen.  Das  gilt  auch 
fur  Datenfelder.  Wenn  Sie  aber  eine  Variable  aus  dem  fest- 
gelegten  Bereich  als  anderen  Typ  kennzeichnen  (AntwortS),  geht 
diese  Kennzeichnung  vor.  'AntwortS'  ist  also  trotzdem  ein 
String,  wogegen  'Antworf  als  16-Bit-Integervariable  verarbeitet 
wird.  Folgende  Festlegungen  sind  mdglich: 


Befehl 

Variablentyp 

Beispielvariable  fur 
den  Variablentyp 

DEFINT 

16-Bit-Integervariable 
(engl.:  "Short  INTeger") 

Hallo% 

DEFLNG 

32-Bit-Integervariable 
("LoNG  Integer") 

Hallo& 

DEFSNG 

einfach  genaue  FlieBkomma- 
var.  ("SiNGle  Precision") 

Hallo,  Hallo! 

DEFDBL 

doppelt  genaue  FlieBkomma- 
var.  ("DouBLe  Precision") 

Hallo# 

DEFSTR 

String  ("STRing") 

Hallo$ 

Die  Festlegung  des  Variablentyps  muB  naturlich  vor  der  Ver- 
wendung  der  Variablen  erfolgen. 
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DELETE 

Syntax:        DELETE  [Label  oder  Zeilennummer  ]  [-]  [Label  oder  Zeilennummer] 

Mit  DELETE  kdnnen  Sie  sowohl  im  Direktmodus  als  auch  im 
Programm  Zeilenbereiche  ldschen.  Geben  Sie  einfach  an,  von  wo 
bis  wo  Sie  loschen  wollen: 

DELETE  Vorbereitungen  -  Farbdef inition 

I6scht  alle  Zeilen  zwischen  den  beiden  Labels. 

DELETE  Vorbereitungen  ■ 
ldscht  alle  Zeilen  ab  'Vorbereitungen:'  bis  zum  Programmende. 

DELETE   -   Farbdefinition 

iSscht  alle  Zeilen  vom  Programmanfang  bis  zum  Label  'Farbde- 
finition:'. 

DIM 

Syntax:        DIM  [SHARED]  Feldname(Wert  [,Wert,...]  )  [.Feldname  (...),...] 

Mit  DIM  dimensionieren  Sie  Datenfelder,  die  Sie  im  Programm 
verwenden  wollen.  Fehlt  diese  DIMensionierung,  legt  Amiga- 
BASIC  das  Feld  automatisch  auf  10  Elemente  fest.  Das  Ganze 
dient  dazu,  fur  ein  Feld  mdglichst  nur  so  viel  Speicherplatz  zu 
verwenden  wie  wirklich  n5tig.  Geben  Sie  hinter  DIM  das  Wort 
SHARED  an,  sind  die  angegebenen  Datenfelder  auch  in  alien 
SUB-Programmen  verwendbar.  Der  DIM  SHARED-Befehl  darf 
aber  nur  im  Hauptprogramm  verwendet  werden.  Wenn  Sie  eine 
Reihe  normaler  Variablen  ebenfalls  in  alien  SUB-Programmen 
verwenden  wollen,  kOnnen  Sie  dazu  auch  den  DIM  SHARED- 
Befehl  einsetzen: 

DIM  SHARED  Farben%(31 ,2),  Maxfarbe 


552 AmigaBASIC 


Die  Variable  'Maxfarbe'  ist  nun  eine  sogenannte  "globale"  Va- 
riable, im  Gegensatz  zu  den  lokalen  Variablen  in  den  SUB-Pro- 
grammen. 

Mit  dem  Befehl  OPTION  BASE  kdnnen  Sie  festlegen,  ob  das 
kleinste  Feldelement  aller  Datenfelder  0  oder  1  ist.  Sie  kdnnen 
f&r  ein  Feld  mehrere  Dimensionen  angeben  (DIM  Feld(2,2,2)), 
hdchstens  jedoch  255.  Das  hOchste  von  AmigaBASIC  erlaubte 
Feldelement  hat  die  Nummer  32767.  Die  beiden  Grenzwerte  fur 
Dimensionen  und  Feldelemente  werden  Sie  aber  wahrscheinlich 
nie  erreichen,  weil  vorher  der  Speicherplatz  zu  Ende  gehen 
diirfte. 

Kapitel:  1.7 


ELSE 

siehe  IF...THEN...ELSE 

END 
Syntax: 

Dieser  Befehl  beendet  ein  BASIC-Programm.  Dabei  werden  alle 
offenen  Dateien  geschlossen. 

Kapitel:  2.10 

END  SUB 
Syntax:     end  sub 

Beendet  ein  SUB-Programm.   Bitte   lesen   Sie   die   Erkiarungen 
zum  SUB-Befehl. 

Kapitel:  4.5 
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EOF 

Syntax:        Wert=EOF(Dateinummer) 

Die  EOF-Funktion  stellt  fest,  ob  in  einer  Datei,  die  gelesen 
wird,  noch  weitere  Daten  stehen.  EOF(Dateinummer)  liefert  das 
Ergebnis  0,  wenn  noch  Daten  zum  Lesen  anstehen,  und  -1, 
wenn  die  Datei  zuende  ist.  Durch  diese  Funktion  kann  Ihr  Pro- 
gramm  feststellen,  ob  es  noch  Daten  lesen  darf  oder  nicht.  Wol- 
len  Sie  n&mlich  Daten  einlesen,  die  es  gar  nicht  gibt,  erhalten 
Sie  die  Fehlermeldung  "Input  past  end". 

Kapitel:  3.3 
EQV 

Syntax:        Wert  =  Wertl  EQV  Wert2 

Die  logische  Verknupfung  EQV  verkniipft  die  einzelnen  Bits 
von  'Wertl'  und  'Wcrt2f  foIgendermaBen: 

0  EQV  0  =  1 

0  EQV  1  =  0 

1  EQV  0  =  0 
1  EQV  1  =  1 

Kapitel:  Zwischenspiel  4 
ERASE 

Syntax:        ERASE  Feldname  [,Feldname...] 

ERASE  ldscht  ein  Datenfeld.  Der  ben6tigte  Speicherplatz  wird 
wieder  freigegeben,  die  Feldinhalte  werden  gel6scht.  Nach 
ERASE  konnen  Sie  ein  Feld  neu  mit  DIM  dimensionieren. 

Kapitel:  4.8 
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ERL 

Syntax:      Wert=ERL 

Diese  Systemvariable  liefert  bei  Error-Trapping  (Event  Trapping 
fur  Fehler)  die  letzte  vor  dem  Fehler  verwendete  Zeilennummer. 
Leider  gibt  es  keine  Mflglichkeit,  den  Namen  des  Labels  zu  er- 
fahren, das  vor  dem  Error  steht.  Weiteres  finden  Sie  bei 
ON  ERROR  GOSUB. 

ERR 

Syntax:     Wert=ERR 

Neben  ERL  noch  eine  Systemvariable  fur  Error  Trapping.  Dies- 
mal  erfahren  Sie  die  Fehlernummer  des  Errors,  der  die  Unter- 
brechung  bzw.  das  Ereignis  (Event)  verursacht  hat.  Welche 
Fehlernummer  zu  welchem  Fehler  gehfirt,  erfahren  Sie  im  An- 
hang  A.  Und  weiteres  zu  dem  Thema  steht  bei 
ON  ERROR  GOSUB. 

ERROR 

Syntax:        ERROR  Fehlernummer 

Ein  dritter  Befehl,  bei  dem  es  urn  Errors  geht.  Durch  Error 
Trapping  mit  ON  ERROR  GOSUB  kflnnen  Sie  in  Ihrem  Pro- 
gramm  eigene  Fehlermeldungen  produzieren.  Sie  nehmen  einfach 
eine  Fehlernummer,  die  noch  frei  ist,  und  erzeugen  mit  dem 
ERROR-Befehl  diesen  Fehler.  Error  Trapping  verzweigt  zum 
zustandigen  Unterprogramm,  wo  Sie  aus  der  Variablen  ERR  Ihre 
Fehlernummer  auslesen  kflnnen.  Es  ist  nicht  mflglich,  im  Error- 
Window  von  AmigaBASIC  eigene  Fehlermeldungen  auszugeben. 
Sie  k&nnen  aber  natiirlich  in  Ihrem  Unterprogramm  ein  eigenes 
Error-Window  erzeugen. 
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Wenn  Sie  eine  Fehlernummer  angeben,  die  von  AmigaBASIC 
verwendet  wird,  und  kein  Error  Trapping  benutzen,  erzeugen 
Sie  einen  Fehler,  der  eigentlich  gar  nicht  aufgetreten  ist.  Das 
k6nnten  Sie  zum  Beispiel  einsetzen,  wenn  Sie  Ihr  Programm  ge- 
gen  unbefugte  Benutzer  schutzen  wollen.  Versuchen  Sie  mal: 

error  2 
Ein  "Syntax  error"  wird  erzeugt. 

EXIT  SUB 

Syntax: 

Dieser  Befehl  ermdglicht  das  vorzeitige  Beenden  eines  SUB-Pro- 
gramms.  Naheres  finden  Sie  bei  SUB.. .STATIC. 

Kapitel:  4.8 
EXP 

Syntax:        Wert=EXP(Wert) 

EXP  errechnet  das  Ergebnis  der  Exponentiaifunktion  (fur 
Mathematiker:  ex,  fur  Nicht-Mathematiker:  Vergessen  Sie's  bitte 
gleich  wieder!). 

FIELD 

Syntax:        FIELD  [#]  Dateinummer,  Lange  AS  String  [.Lange  AS  STRING,...] 

Diesen  Befehl  benutzen  Sie  fur  relative  Dateiverwaltung.  Er 
dient  dazu,  einen  Datensatzpuffer  einzurichten  und  verschiedene 
Stringvariablen  als  Ubergabevariablen  f&r  den  Puffer  zu  defi- 
nieren.  'Lange'  ist  die  Anzahl  an  Zeichen  im  jeweiligen  Feld, 
'String*  ist  ein  Variablenname.  Wollen  Sie  im  Datensatzpuffer  10 
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Bytes  fur  den  Vornamen  und  20  Bytes  fDr  den  Nachnamen  anle- 
gen,  geht  das  so: 

FIELD  #1,  10  AS  Vorname,  20  AS  Nachname 

Diesen  Variablen  darf  das  Programm  nur  mit  den  Befehlen 
LSET  Oder  RSET  neue  Werte  zuweisen,  sonst  wird  die  Zuord- 
nung  zwischen  Variable  und  Puffer  aufgehoben.  Die  Gesamt- 
l&nge  aller  festgelegten  Felder  darf  nicht  langer  sein  als  die 
Satziange,  die  Sie  beim  OPEN-Befehl  fur  die  Datei  angeben. 
Sonst  erhalten  Sie  einen  "Field  overflow"-Error.  Wenn  Sie  fur 
dieselbe  Datei  eine  neue  FIELD-Zeile  angeben,  wird  der  Puffer 
vom  ersten  Byte  an  neu  eingeteilt. 

Kapitel:  5.1 


FILES 

Syntax:        FILES  [Inhaltsver&eichnifl] 

FILES  zeigt  das  aktuelle  Inhaltsverzeichnis  auf  dem  Bildschirm 
an.  Das  aktuelle  Inhaltsverzeichnis  k6nnen  Sie  mit  CHDIR  Un- 
dent. Wenn  Sie  hinter  FILES  ein  Inhaltsverzeichnis  angeben, 
kdnnen  Sie  sich  dessen  Inhalt  anzeigen  lassen,  ohne  es  extra  zum 
aktuellen  Inhaltsverzeichnis  zu  machen.  Das  ist  besonders  zum 
Durchsuchen  verschiedener  Inhaltsverzeichnisse  praktisch. 

Kapitel:  3.2 


FIX 

Syntax:        Wert=FIX(Wert) 

Diese  Funktion  schneidet  den  Nachkommateil  einer  Zahl  ab. 
FIX(3.235325)  ist  3,  FIX(-2.3532325)  ist  -2.  Im  Gegensatz  zu 
den  Funktionen  INT  und  CINT  wird  nicht  gerundet. 
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FOR.. .NEXT 

Syntax:        FOR  VariabIenname=Anfangawert  TO  Endwert  [STEP  Schrittweite] 
NEXT  [Wert]  [,Wert...] 

Dieser  Befehl  ermflglicht  Zahlschleifen.  Das  heiBt,  alle  Befehle, 
die  zwischen  FOR  und  NEXT  stehen,  werden  mehrfach  ausge- 
fiihrt.  Beim  ersten  Schleifendurchlauf  hat  die  ZShlvariable  den 
Anfangswert,  beim  n&chsten  Durchlauf  den  Anfangswert  +1.  So 
geht  es  weiter,  bis  die  Z&hlvariable  den  Endwert  erreicht  hat. 
Mit  STEP  kflnnen  Sie  optional  auch  noch  angeben,  in  welchen 
Schritten  gez&hlt  werden  soil.  Beim  NEXT-Befehl  konnen  Sie 
die  Zahlvariable  angeben  oder  auch  weglassen.  Es  ist  auch  mog- 
lich,  mehrere  FOR...NEXT-Schleifen  mit  einem  einzigen 
NEXT-Befehl  zu  schlieBen: 

FOR  x=1  TO  100 
FOR  y=1  TO  20 
FOR  z=1  TO  30 
NEXT  z,y,x 

Wie  Sie  in  dem  Beispiel  sehen,  kflnnen  Sie  FOR...NEXT-Schlei- 
fen  auch  verschachteln.  Die  inneren  Schleifen  miissen  vor  den 
Sufleren  geschlossen  werden. 

Kapitel:  1.7 


FRE(x) 

Syntax: 

Diese  Systemvariable  gibt  Auskunft  iiber  die  GroBe  der  einzel- 
nen  Speicherbereiche.  Welchen  Speicherbereich  Sie  abfragen 
wollen,  geben  Sie  hinter  FRE  in  Klammern  an:  FRE(O)  liefert 
den  freien  Platz  im  BASIC-Speicherbereich.  Das  ist  die  Anzahl 
an  Bytes,  die  zur  Zeit  vom  Programm  und  seinen  Variablen 
nicht  ben6tigt  werden. 
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FRE(-l)  liefert  den  freien  Platz  im  Systemspeicher.  FRE(-2) 
liefert  die  Anzahl  der  Bytes  im  Stack,  die  noch  nicht  von 
AmigaBASIC  benfltigt  wurden. 

Kapitel:  4.4 
GET  (fur  Grafik) 

Syntax:        GET  (xl,yl)-(x2,y2)f  Feldname  [(Feldposition,...)] 

Mit  diesem  Befehl  k6nnen  Sie  den  Inhalt  eines  Bildschirm- 
bereichs  als  Ausschnitt  in  einem  Datenfeld  abspeichern.  Das 
Feld  'Feldname'  muB  ein  Zahlenfeld  sein.  Zur  Auswahl  stehen 
Integerfelder,  FlieBkommafelder  einfacher  und  FlieBkomma- 
felder  doppelter  Genauigkeit.  Folgende  Formel  errechnet  die 
bendtigte  Gr6Be  des  Felds  in  Byte: 

6  +  Bitebenen  *  H6he  *  2  *  INT(  (Breite  +  16)  /  16  ) 

Das  Ergebnis  kfinnen  Sie  dann  durch  die  Anzahl  an  Bytes  pro 
Feldelement  teilen. 

2  Bytes  bei  einem  Integerfeld  (Hallo%(x)) 

4    Bytes    bei    einem    einfach    genauen    FlieBkommafeld 

(Hallo(x)) 

8    Bytes    bei    einem    doppelt    genauen    FlieBkommafeld 

(Hallo#(x)) 

Im  Feldelement  0  steht  die  Breite,  im  Element  1  die  H5he  und 
in  Element  2  die  Anzahl  der  Bitebenen  des  gespeicherten 
Bildausschnitts. 

Wenn  Sie  ein  mehrdimensionales  Feld  verwenden,  kdnnen  Sie 
durch  Andern  der  Feldpositionen  mehrere  Ausschnitte  in  einem 
einzigen  Datenfeld  abspeichern.  Oder  auch   verschiedene   An- 
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sichten  derselben  Grafik,  die  dann  schnell  gewechselt  werden 
kflnnen. 

Urn  den  gespeicherten  Ausschnitt  wieder  auf  dem  Bildschirm  zu 
bringen,  benutzen  Sie  den  PUT-Befehl. 

Kapitel:  4.1 


GET  (Daten) 

Syntax:        GET  [#]  Dateinummer  [.Satwiummer] 

GET  liest  bei  relativer  Dateiverwaltung  den  angegebenen  Daten- 
satz  in  den  Dateipuffer  ein.  Wenn  Sie  die  'Satznummer'  nicht 
angeben,  wird  automatisch  die  nfcchste  Satznummer  verwendet. 
Die  'Satznummer'  mufj  theoretisch  zwischen  0  und  16777215  lie- 
gen.  Praktisch  ist  die  Speicherkapazitat  des  verwendeten  Ger&ts 
(Floppy,  Festplatte,  RAM-Disk)  fur  die  hGchstmSgliche  Num- 
mer  veranwortlich.  Sie  liegt  auf  jeden  Fall  deutlich  unter 
16777215. 

Nach  dem  GET-Befehl  kdnnen  Sie  den  Pufferinhalt  auslesen. 
Das  geht  entweder  uber  die  im  FIELD-Befehl  definierten  Uber- 
gabevariablen  oder  auch  mit  den  Befehlen  INPUT#  und 
LINE  INPUT#. 

Kapitel:  5.1 


GOSUB...RETURN 
Syntax:      gosub  Label 

RETURN  [Label] 

Mit  GOSUB  rufen  Sie  ein  Unterprogramm  auf.  AmigaBASIC 
merkt  sich,  wo  das  GOSUB  steht  und  verzweigt  zum  angegebe- 
nen   Label.    Findet   es    in    diesem    Unterprogramm    einen    RE- 
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TURN-Befehl,  kehrt  das  Programm  zu  dem  Befehl  zuruck,  der 
nach  dem  Aufruf  durch  GOSUB  steht,  und  maeht  dort  weiter. 

Sie  kflnnen  auch  hinter  RETURN  ein  Label  angeben.  Dann 
kehrt  AmigaBASIC  nicht  zum  Befehl  hinter  GOSUB  zuruck, 
sondern  zum  angegebenen  Programmteil.  Dabei  mussen  Sie  je- 
doch  aufpassen,  dafl  der  GOSUB-Aufruf  nicht  innerhalb  einer 
anderen  Klammer  bzw.  Schleife  wie  FOR...NEXT, 
WHILE...WEND  oder  in  einem  anderen  Unterprogramm  stand. 
Sonst  werden  diese  Klammern,  Schleifen  oder  Unterprogramme 
unter  Umst&nden  nicht  richtig  oder  gar  nicht  beendet,  was  zu 
Fehlermeldungen  wie  TOR  without  NEXT  oder  "WHILE 
without  WEND"  fuhren  kann. 

Kapitel:  1.16 


GOTO 

Syntax:      goto  Label 

Dieser  Befehl  bewirkt,  dafi  das  Programm  zum  angegebenen 
Label  oder  zu  einer  angegebenen  Zeilennummer  springt  und  dort 
weiterarbeitet. 

Kapitel:  1.6 


HEXS 

Syntax:        String=HEX$(Wert) 

Diese  Funktion  liefert  die  hexadezimale  Schreibweise  einer  Zahl 
zwischen  -32768  und  65535. 

HEX$(60037)  ergibt  EA85. 

Mehr  uber  Hexadezimalzahlen  erfahren  Sie  in  Zwischenspiel  4. 
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IF..THEN...ELSE 

Syntax:        IF  (Bedingung)  THEN  (Befehle)  [ELSE  (Befehle)] 
IF  (Bedingung)  GOTO  Label  [ELSE  (Befehle)] 

IF  (Bedingung)  THEN 

(Befehle) 
[ELSE  IF  (Bedingung)  THEN 

(Befehle)] 
[ELSE 

(Befehle)] 
END  IF 

Der  Befehl  IF...THEN  ermdglicht  es,  Bedingungen  zu  prufen 
und  je  nach  Ergebnis  bestimmte  Befehle  oder  Verzweigungen 
auszufuhren. 

Sie  sehen,  es  gibt  sehr  verschiedene  Syntax-Versionen.  Der  ein- 
fachste  IF...THEN-Befehl  sieht  so  aus: 

IF  (Bedingung)  THEN  (Befehl) 

Die  Bedingung  ist  immer  ein  Vergleich,  der  ein  logisches  Ergeb- 
nis hat  (z.B.  IF  a<10...  oder  IF  Hallo=0...).  Trifft  die  Bedingung 
zu,  vergibt  AmigaBASIC  das  Ergebnis  -1  (wahr).  Trifft  sie  nicht 
zu,  ist  das  Ergebnis  0  (falsch).  Die  oben  gezeigte  Variante  fiihrt 
die  Befehle  hinter  THEN  aus,  falls  die  Bedingung  zutrifft.  Sie 
kflnnen  diesen  Befehl  urn  ELSE  erweitern  und  dahinter  angeben, 
was  das  Programm  tun  soil,  wenn  die  Bedingung  nicht  zutrifft: 

IF  a<10  THEN  PRINT  "a  kleiner  als  10«  ELSE  PRINT  "a  nicht  kteiner 
als  10" 

Anstelle  des  Befehls  hinter  THEN  konnen  Sie  auch  GOTO  ver- 
wenden  und  zu  einem  Label  oder  einer  Zeilennummer  verzwei- 
gen  lassen. 

Sollen  abhSngig  von  einer  Bedingung  mehrere  Programmzeilen 
ausgefuhrt  werden,  empfiehlt  sich  die  IF/ELSE  IF/ELSE/END 
IF-Struktur:  Die  Zeile  IF...THEN  legt  die  Bedingung  fest.  Hinter 
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THEN  darf  kein  Befehl  mehr  stehen.  Die  Befehle,  die  unter 
dieser  Zeile  bis  zum  nachsten  END  IF,  ELSE  oder  ELSE  IF  ste- 
hen, werden  ausgefuhrt,  wenn  die  Bedingung  zutrifft.  Die  op- 
tionale  Zeile  ELSE  IF.. THEN  gibt  eine  zweite  Bedingung  an, 
die  nur  gepruft  werden  soil,  wenn  die  erste  Bedingung  nicht 
zutrifft.  Auch  hier  darf  hinter  THEN  nichts  mehr  stehen.  Die 
Befehle,  die  bei  zutreffender  zweiter  Bedingung  ausgefuhrt  wer- 
den sollen,  beginnen  eine  Zeile  spSter. 

Die  optionale  Zeile  ELSE  gibt  an,  daB  die  folgenden  Befehle 
ausgefuhrt  werden  sollen,  wenn  die  zuletzt  uberprufte  Bedin- 
gung (IF...THEN  Oder  ELSE  IF...THEN)  nicht  zutrifft.  END  IF 
beendet  die  ganze  IF/ELSE  IF/ELSE-Struktur.  Solche  Strukturen 
kflnnen  Sie  auch  ineinander  verschachteln,  z.B.: 

IF  ...  THEN 
IF  ...  THEN 

ELSE 


END 

IF 

ELSE  1 

IF  . 

...  THEN 

IF 

THEN 

END 

IF 

ELSE 

END  IF 


Strukturierte  Programmierung  ist  bei  so  etwas  natiirlich  schon 
fast  unverzichtbar. 

Kapitel:  1.6,  2.9 
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IMP 

Syntax:        Wert  =  Wertl  IMP  Wert2 

Die  iogische  Verknupfung  IMP  verknupft  die  einzelnen  Bits  von 
'Wertl'  und  'Wert2'  folgendermaBen: 

0  IMP  0  =  1 

0  IMP  1  -  1 

1  IMP  0  =  0 
1  IMP  1  =  1 

Kapitel:  Zwischenspiel  4 
INKEYS 

Syntax:        Wert$=INKEY| 

Dieser  Befehl  liest  ein  Zeichen  aus  dem  Tastaturpuffer  und 
ubergibt  es  als  String  mit  der  LSnge  1  Zeichen.  Wurde  keine 
Taste  gedriickt,  ist  der  Tastaturpuffer  also  leer,  liefert  INKEYS 
einen  leeren  String.  INKEYS  zeigt  selbst  kein  Zeichen  auf  dem 
Bildschirm  an,  es  ubergibt  das  Zeichen  nur. 

Kapitel:  1.13 
INPUT 

Syntax:        INPUT  [;]  ["(Hinweistext),"]  [;]  Variable,  [Variable,  Variable,  ...] 

Mit  INPUT  kflnnen  Sie  den  Benutzer  Werte  auf  der  Tastatur 
eingeben  lassen,  die  dann  der  angegebenen  Variablen  iibergeben 
werden.  Wenn  Sie  wollen,  kann  der  INPUT-Befehl  vorher  einen 
Hinweistext  auf  den  Bildschirm  drucken.  Folgt  dem  Text  ein 
Strichpunkt  (;),  gibt  AmigaBASIC  hinter  dem  Text  ein  Frage- 
zeichen  aus.  Geben  Sie  hinter  dem  Text  ein  Komma  an  (,),  wird 
kein  Fragezeichen  gedruckt.  Sie  kdnnen  mehrere  Variablenwerte 
eingeben  lassen,  dann  mussen  bei  der  Eingabe  die  Einzelwerte 
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durch  Kommas  getrennt  werden.  Stimmen  der  eingegebene  Wert 
und  die  zugewiesene  Variable  nicht  uberein  oder  gibt  der  An- 
wender  zu  wenig  oder  zu  viele  Daten  ein,  erscheint  die  Fehler- 
meldung  '?Redo  from  start'.  Das  bedeutet,  die  Eingabe  muB  von 
vorne  wiederholt  werden.  Wenn  Sie  bem  Programmieren  vor  dem 
Hinweistext  einen  Strichpunkt  angeben,  steht  der  Cursor  nach 
der  Abarbeitung  des  INPUT-Befehls  unmittelbar  hinter  dem 
letzten  eingegebenen  Zeichen.  Dort  erscheint  dann  die  nSchste 
Ausgabe. 

Kapitel:  1.6 


INPUTS 

Syntax:        String=INPUT$(Lange  [  ,  [#]  Dateinummer]) 

Dieser  Befehl  wird  bei  sequentiellen  Dateien  benutzt.  Er  liest 
einen  String  mit  einer  angegebenen  Liinge  aus  der  angegebenen 
Datei.  Wenn  Sie  die  Dateinummer  weglassen,  liest  INPUTS  die 
gewunschte  Anzahl  an  Zeichen  von  der  Tastatur  ein.  Bei  diesem 
Einlesen  erscheint  zwar  der  Textcursor,  aber  Ihre  Tastaturein- 
gaben  werden  wfchrend  des  Eintippens  trotzdem  nicht  auf  dem 
Bildschirm  dargestellt.  Das  Einlesen  von  der  Tastatur  kann  nicht 
mit  der  <RETURN>-Taste  abgebrochen  werden.  Nur  <CTRL>- 
<C>  ist  ein  Ausweg.  Wenn  Sie  mit  INPUTS  Bytes  einlesen,  k6n- 
nen  Sie  diese  mit  den  CV*-Funktionen  in  Zahlen  zuruckver- 
wandeln. 

Kapitel:  4.1 


INPUT* 

Syntax:        INPUT#  Dateinummer,  Variable  (.Variable,...] 

Dieser  Befehl  wirkt  wie  der  normale  Bildschirm-INPUT,  nur 
liest  er  Variablen  oder  Strings  aus  einer  angegebenen  Datei. 
Diese  Datei  muB  naturlich  vorher  mit  OPEN  eroffnet  worden 
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sein.  Die  Daten,  die  INPUT#  einliest,  wurden  vorher  mit 
PRINT#  oder  WRITE#  in  die  Datei  geschrieben. 

INPUT#  liest  eine  Variable  bis  zum  n&chsten  Trennzeichen  in 
der  Datei.  Als  Trennzeichen  erkennt  dieser  Befehl  Leerzeichen, 
Kommas,  Carriage-Return-Codes  (CHR$(10))  und  Zeilenvor- 
schub-Codes  (CHR$(13)).  Bei  Strings  gilt  das  Leerzeichen  nicht 
als  Trennzeichen.  Wollen  Sie  Strings  einlesen,  die  Kommas  bein- 
halten,  miissen  die  Strings  in  Anfuhrungszeichen  in  die  Datei 
geschrieben  worden  sein. 

Kapitel:  3.3 


INSTR 

Syntax:        Wert=INSTR(  [Wert,]  String.Suchstring) 

Diese  Funktion  sucht  den  angegebenen  Suchstring  im  angegebe- 
nen  String.  Wenn  sie  den  Suchstring  im  String  findet,  liefert  sie 
die  Position,  ab  der  der  Suchstring  im  String  steht.  Wird  der 
String  nicht  gefunden,  hat  INSTR  das  Ergebnis  0.  Ebenso  ist  das 
Ergebnis  0,  wenn  der  Suchstring  grflBer  als  der  durchsuchte 
String  oder  leer  ist. 

Optional  k6nnen  Sie  vor  dem  durchsuchten  String  die  Position 
angeben,  ab  der  gesucht  werden  soil.  Ist  diese  Position  grflBer  als 
die  LSnge  des  durchsuchten  Strings,  ist  das  Ergebnis  wieder  0. 

INSTR(wAmiga\Miga")  ergibt  3. 
INSTRfHalloYiga")  ergibt  0. 
INSTR(l,MTestYesH)  ergibt  2. 
INSTR(3,"TestYes")  ergibt  0. 
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INT 

Syntax:        Wert=INT(Wert) 

Diese  Funktion  erzeugt  aus  einer  FlieBkommazahl  eine  ganze 
Zahl.  Zu  den  Funktionen  CINT  und  FIX  besteht  folgender 
Unterschied:  Bei  positiven  Werten  werden  einfach  die 
Nachkommastellen  abgeschnitten,  bei  negativen  Werten  wird  ab- 
gerundet.  INT  liefert  also  die  ganze  Zahl,  die  kleiner  oder  gleich 
dem  angegebenen  Wert  ist. 

INT(3.4)  ist  3. 
INT(3.8)  ist  auch  3. 
INT(-2.2)  ist  -3. 

AuBerdem  gibt  es  bei  INT  keine  Einschrankung  fur  den  erlaub- 
ten  Zahlenbereich. 

Kapitel:  1.17 
KILL 

Syntax:        KILL  Dateiname 

Mit  KILL  k6nnen  Sie  Dateien  auf  Diskette,  Festplatte  oder  aus 
der  RAM-Disk  16schen.  Dateien,  die  zur  Zeit  gedffnet  sind, 
kSnnen  nicht  geloscht  werden. 

Kapitel:  3.2 
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LBOUND 
UBOUND 

Syntax:        Wert=LBOUND(Feldname  [,  Dimension]  ) 
Wert=UBOUND(Feldname  [,  Dimension]  ) 

Diese  Funktion  liefert  die  Nummer  des  kleinsten  (Lower 
BOUNDary  =  untere  Grenze)  und  des  grdBten  Feldelements 
(Upper  BOUNDary  =  obere  Grenze)  eines  Datenfelds.  So  k6nnen 
Sie  die  Angaben  uberprufen,  die  mit  DIM  und  OPTION  BASE 
gemacht  wurden. 

Ein  Beispiel: 

OPTION  BASE  0  :  DIM  a(200) 

LBOUND(a)  liefert  0,  UBOUND(a)  liefert  200. 

Wenn  Sie  zus&tzlich  einen  Wert  fur  die  'Dimension*  angeben, 
kdnnen  Sie  die  Unter-  und  Obergrenze  einzelner  Dimensionen 
herausfinden: 

DIM  a<3,4,56) 

UBOUND(a,l)  liefert  die  Gr66e  der  ersten  Felddimension,  also 
3.  UBOUND(a,2)  liefert  4  und  UBOUND(a,3)  liefert  56.  Wenn 
Sie  den  Wert  'Dimension*  weglassen,  erhalten  Sie  die  AusmaBe 
der  ersten  Felddimension. 


LEFTS 

Syntax:        String=LEFT$(String,  Ansahl) 

LEFTS  bildet  einen  String,  der  den  linken  Teil  des  angegebenen 
Strings  beinhaltet.  'Anzahl'  ist  die  Anzahl  der  Zeichen  im  er- 
zeugten  Teilstring.  Da  ein  String  in  AmigaBASIC  nicht  grOBer 
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als  32767  Zeichen  sein  darf,  muB  'Anzahl'  zwischen  0  und  32767 
liegen. 

LEFT$("Amiga  ist  toll!M,5)  ergibt  "Amiga". 

Kapitel:  1.16 

LEN 

Syntax:        Wert=LEN(String) 

LEN  ergibt  die  Lftnge  eines  Strings  in  Zeichen.  Eventuelle 
Leerzeichen  und  Steuerzeichen  im  String  werden  mitgezihlt: 

LENfAmiga  ist  toll!")  ergibt  15. 

Kapitel:  1.17,  2.7 

LET 

Syntax:        LET  Variablenname=Wert 

Der  'Wert'  wird  der  angegebenen  Variablen  zugewiesen.  Den 
Befehl  LET  kdnnen  Sie  auch  weglassen,  es  geniigt  eine  Zuwei- 
sung  wie:  a=10. 

Kapitel:  1.3 
LIBRARY 

Syntax:        LIBRARY  "(Dateiname)" 

Wenn  Sie  in  Ihrem  Programm  Maschinensprache-Unter- 
programme  verwenden  wollen,  mussen  Sie  die  nicht  unbedingt 
selbst  schreiben.  Sie  kdnnen  auch  sogenannte  Libraries  verwen- 
den ("Bibliotheken").  In  diesen  Libraries  stehen  eine  ganze  Reihe 
von  Maschinenprogrammaufrufen  aus  dem  Betriebssystem,  die 
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bestimmte  niitzliche  Funktionen  erfiillen.  Sie  benfttigen  aller- 
dings  Informationen  uber  die  Parameter  und  Parametertypen,  die 
von  so  einer  Routine  aus  einer  Library  erwartet  werden.  Dabei 
kann  Ihnen  eigentlich  nur  die  Dokumentation  helfen,  die  es  fur 
Maschinensprache-Programmierer  und  Software-Entwickler  gibt: 
Das  ROM-KERNAL-Handbuch  und  das  Intuition-Handbuch. 
Dort  sind  namlich  alle  Betriebssystemroutinen  erkl&rt,  die  Sie 
uber  Libraries  verwenden  konnen. 

Ohne  diese  Informationen  lauft  nichts.  Deshalb  haben  wir  in 
diesem  Buch  auch  auf  ein  Beispiel  zu  LIBRARY  verzichtet.  Das 
Programm  "Library"  in  der  "BASICDemos"-SchubIade  auf  der 
Extras-Diskette  zeigt  Interessierten,  wie's  geht.  Die  Routinen 
werden  mit  CALL  aufgerufen.  Im  SUB-Programm  'Font'  aus 
dem  "Library^-Demoprogramm  steht  z.B. 

CALL  CIoseFont(pFont&).  Die  Routine  'CloseFont'  ist  Bestand- 
teil  der  Library  "graphics.library",  die  zu  Beginn  des  Programms 
angesprochen  wird.  Solche  Libraries  miissen  im  .BMAP-Format 
vorliegen.  Das  bedeutet,  daB  AmigaBASIC  wenn  Sie  z.B.  die  Li- 
brary "Dos.library"  aufrufen,  eine  Datei  namens  "Dos.bmap" 
benfltigt.  Solche  .BMAP-Dateien  finden  Sie  zum  Teil  bereits  auf 
der  MExtrasD"-Diskette.  Zum  Teil  miissen  Sie  sie  auch  erst  mit 
dem  Programm  "ConvertFDM  erzeugen. 

Lesen  Sie  zu  diesem  Thema  bitte  auch  die  Erkiarungen  zu  den 
Programmen  "Library"  und  "ConvertFD"  im  Anhang  C. 
AmigaBASIC  kann  gleichzeitig  bis  zu  funf  Libraries  benutzen. 

Neben  den  Programmaufrufen  mit  CALL  kdnnen  Sie  auch  Ma- 
schinenprogramm-Funktionen  verwenden.  Solche  Funktionen  (im 
Gegensatz  zu  den  CALL-Routinen  liefern  sie  ein  Ergebnis) 
miissen  mit  dem  Befehl  DECLARE  FUNCTION  ...  LIBRARY 
angekundigt  werden.  Im  "LibraryM-Demo  gibt  es  z.B.  die  Funk- 
tionen ,AskSoftStyIe&VOpenFont&'  und  1Execute&\ 
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LINE 

Syntax:        LINE  [[STEP]  (xl.yl)]  -  [STEP]  (x2,y2)  [.Farbe]  [,B  oder  tBF] 

Dieser  Befehl  wird  verwendet,  um  eine  Linie,  ein  umrandetes 
Rechteck  oder  ein  ausgemaltes  Rechteck  zu  zeichnen.  Sie  k6nnen 
einfach  einen  Anfangs-  und  einen  Endpunkt  angeben 
(LINE  (xl,yl)-(x2,y2)),  dann  entsteht  eine  Linie.  Das  ist  die 
einfachste  Moglichkeit. 

Wenn  Sie  den  ersten  Punkt  weglassen  (LINE  -(x2,y2)),  zieht 
AmigaBASIC  eine  Linie  vom  letzten  verwendeten  Grafikpunkt 
zum  angegebenen  Punkt.  Diese  beiden  Mdglichkeiten  kdnnen  Sie 
auch  in  Verbindung  mit  STEP  einsetzen.  Dann  werden  die  ange- 
gebenen x-  und  y-Werte  zum  letzten  Grafikpunkt  dazugezahlt. 
Optional  ist  auch  eine  Farbnummer,  mit  der  Sie  die  Zeichen- 
farbe  bestimmen.  Ganz  am  SchluB  k5nnen  Sie  \B'  anhangen, 
dann  wird  ein  Rechteck  gezeichnet.  Die  Koordinaten  (xl.yl) 
und  (x2,y2)  geben  zwei  diagonal  gegeniiberliegende  Ecken  des 
Rechtecks  an.  Und  \BF  bewirkt  dasselbe,  allerdings  wird  das 
Rechteck  mit  der  Zeichenfarbe  gefullt. 

Kapitel:  2.5 
LINE  INPUT 

Syntax:        LINE  INPUT  [;]  ["(Hinweistext),"]  [;)  String -Variable 

Der  LINE  INPUT-Befehl  liest  eine  String- Variable  von  der 
Tastatur  ein.  Sie  kdnnen  beliebige  Zeichen  eingeben  (also  auch 
Satzzeichen  wie  Kommas,  Strichpunkte  etc.),  die  alle  in  den  an- 
gegebenen String  ubernommen  werden.  Nur  die  <RETURN>- 
Taste  beendet  die  Eingabe.  Sie  kflnnen  wieder  einen  Hinweistext 
angeben,  aber  im  Gegensatz  zu  INPUT  nur  eine  einzige  Va- 
riable. Diese  Variable  muB  eine  String-Variable  sein,  sonst  er- 
halten  Sie  einen  Type  mismatch'-Error.  LINE  INPUT  erzeugt 
grunds&tzlich  kein  Fragezeichen  hinter  dem  Hinweistext  -  egal, 
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ob  Sie  zwischen  Text  und  Variable  ein  Komma  oder  einen 
Strichpunkt  angeben.  Ein  Strichpunkt  hinter  dem  Befehl 
LINE  INPUT  und  vor  dem  Hinweistext  bewirkt  (genau  wie  bei 
INPUT),  daB  die  nachfolgende  Bildschirmausgabe  direkt  an  die 
Benutzereingabe  angeh&ngt  wird. 

Kapitel:  1.7 


LINE  INPUT* 

Syntax:        LINE  INPUT  #  Dateinummer,  Variable 

Dieser  Befehl  wirkt  genauso  wie  LINE  INPUT,  allerdings  liest 
er  die  Zeichen  aus  einer  Datei.  LINE  INPUT  erkennt  nur 
CHR$(10)  und  CHR$(13)  als  Trennzeichen  an.  Alle  anderen 
Zeichen  (also  auch  Leerstellen  und  Kommas)  werden  in  den 
String  tibernommen. 

LIST 

Syntax:        LIST  [Zeilennummer  oder  Label]  [-  Zeilennummer  oder  Label]  [.Datei] 

Mit  diesem  Befehl  konnen  Sie  Ihr  Programm  auflisten  lassen. 
Dabei  gibt  es  die  Moglichkeit,  von  Anfang  an  (LIST)  oder  von 
einer  bestimmten  Zeile  an  zu  listen  (LIST  Vorbereitungen  -).  Sie 
kdnnen  eine  weitere  Zeilennummer  angeben,  dann  wird  bis  zu 
dieser  Zeile  gelistet.  (LIST  -  Farbdef;  LIST  Muster-Farbdef) 
Normalerweise  werden  Programme  im  LIST-Window  gelistet. 
Hinter  LIST  kdnnen  Sie  einen  Dateinamen  oder  einen  Gerat- 
namen  angeben.  Mit  LIST,  WSCRN:H  listen  Sie  z.B.  ein  Programm 
im  BASIC- Window,  mit  LIST,  "PRT:H  auf  dem  Drucker.  Wenn 
Sie  ein  Programm  in  eine  Diskettendatei  listen  lassen 
(LIST,  "DF0:Test"),  wird  das  Programm  im  ASCII-Format  abge- 
speichert. 

Kapitel:  1.5 
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LLIST 

Syntax:        LUST  [Zeilennummer  oder  Label]  [-)  [Zeilennummer  odcr  Label] 

LLIST  funktioniert  wie  LIST,  schickt  das  Listing  aber  auf  den 
Drucker,  der  am  Amiga  angeschlossen  ist.  Den  Druckertyp  und 
die  Schnittstelle,  die  er  benutzt,  k6nnen  Sie  in  Preferences  ein- 
stellen. 

Weiteres  finden  Sie  bei  LIST. 

Kapitel:  3.5 

LOAD 

Syntax:        LOAD  [Dateiname]  [,R] 

LOAD  l&dt  ein  Programm  von  Diskette,  Festplatte  oder  aus  der 
RAM- Disk.  Wenn  Sie  hinter  dem  Namen  des  Programms  ein  ,R 
angeben,  wird  das  Programm  direkt  gestartet.  Wenn  Sie  keinen 
Programmnamen  angeben,  bittet  Sie  AmigaBASIC  in  einem 
Dialog-Window,  den  Namen  einzugeben. 

Kapitel:  1.13 


LOC 

Syntax:        Wert=LOC(Dateinummer) 

Die  LOC-Funktion  liefert  die  Nummer  des  Datenblocks  auf 
Diskette,  Festplatte  oder  RAM-Disk,  der  zuletzt  gelesen  oder 
geschrieben  wurde.  Obwohl  dieser  Wert  nur  von  der  Einteilung 
eines  Speichermediums  durch  AmigaDOS  abhUngt,  gibt  er  bei 
relativen  Dateien  die  Nummer  des  zuletzt  gelesenen  Datensatzes 
an.  Das  liegt  daran,  daB  bei  relativen  Dateien  ein  ubertragener 
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Block  im  Puffer  immer  genau  einem  Datensatz  entspricht.  Bei 
sequentiellen  Dateien  wircTs  schwieriger:  Hier  gibt  LOC  die 
Blocknummer  abh&ngig  von  der  Puffergrdfle  an.  Die  Stan- 
dardeinstellung  fur  den  Puffer  ist  128  Bytes,  Sie  kflnnen  sie  aber 
im  OPEN-Befehl  verftndern. 


LOCATE 

Syntax:        LOCATE  (Zeile)  [.Spalte] 

Dieser  Befehl  dient  dazu,  den  Ausgabecursor  an  eine  bestimmte 
Bildschirmposition  zu  bringen.  Fur  'Zeile'  und  'Spake1  mussen 
Sie  positive  Werte  angeben,  also  Werte  grdBer  als  0.  Auch  0 
selbst  ist  nicht  erlaubt,  die  Bildschirmposition  in  der  linken 
oberen  Ecke  ist  (1,1).  Bei  60-Zeichen-Einstellung  ist  21  der 
hflchste  noch  sichtbare  Wert  fur  die  'Zeile'  und  62  der  fur  die 
*Spalte\  Bei  80-Zeichen-Einstellung  ist  23  der  hflchste  Zeilen- 
wert  und  77  der  hochste  Spaltenwert. 

Kapitel:  1.7 


LOF 

Syntax:        Wert=LOF(Dateinummer) 

LOF  gibt  die  Gesamtiange  einer  Datei  in  Bytes  an.  Wenn  Ihr 
Programm  diesen  Wert  kennt,  kann  es  beim  Einlesen  mitzahlen 
Oder  (z.B.  bei  OBJECT.SHAPE)  die  ganze  Datei  auf  einmal  ein- 
lesen. 

Kapitel:  4.1 
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LOG 

Syntax:        Wert=LOG(Wert) 

LOG  ergibt  den  naturlichen  Logarithmus  einer  Zahl.  (Fur  Ma- 
thematiker:  Den  Logarithmus  zur  Basis  e.  Fur  Teil-Mathema- 
tiker:  e  ist  2.718281828.  Fur  Nicht-Mathematiker:  Was  soil's.) 
Der  Logarithmus  einer  Zahl  a  zu  einer  Basis  b  ist  die  Zahl  c, 
mit  der  man  b  potenzieren  muIJ,  urn  a  zu  erhalten:  bc=a.  LOG(a) 
zur  Basis  b  ist  c. 

Aus  verschiedenen  Grunden  haben  sich  die  Mathematiker  be- 
sonders  in  die  Zahl  e  als  Basis  verliebt.  (2.71828...  Na,  Sie  wissen 
ja  schon.) 

Wenn  man  schon  mal  den  Logarithmus  fur  eine  Berechnung  in 
BASIC  braucht  (z.B.  in  unserer  PICSAVE-Routine),  dann  garan- 
tiert  nicht  zur  Basis  e.  Deshalb  hier  die  Formel  zur  Umrechnung 
auf  andere  Basen: 

LOG(a)  zur  Basis  b  =  LOG(a)/LOG(b) 
Kapitel:  4.8 

LPOS 

Syntax:      Wert=LPOS(x) 

Wirkt  wie  POS,  gibt  aber  die  Position  des  letzten  ausgegebenen 
Zeichens  im  Druckerpuffer  an.  So  wissen  Sie,  wieviele  Zeichen 
in  der  aktuellen  Zeile  schon  an  den  Drucker  geschickt  wurden. 
Der  Wert  V  ist  ein  Scheinargument  (Vergleichen  Sie  bitte  POS). 
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LPRINT 

Syntax:        LPRINT  [Variable  Oder  Wert]  [Trenneeichen]  [Variable  oder  Wert  ...] 

Wirkt  wie  PRINT,  schickt  aber  die  Ausgaben  auf  den  Drucker. 
Die  Zeichen  werden  gepuffert  und  vom  Drucker  erst  dann  ge- 
druckt,  wenn  ein  Carriage  Return-Code  folgt  (Carriage  Return, 
CHR$(10)).  Geben  Sie  hinter  der  letzen  gedruckten  Variablen 
kein  Trennzeichen  mehr  an,  schickt  AmigaBASIC  den  CHR$(I0) 
selbstSndig. 

Weiteres  bei  PRINT. 

Kapitel:  3.5 

LPRINT  USING 

Syntax:        LPRINT  USING  (FormatString)  ;  (Variable  oder  Wert)  [;] 

Funktioniert  wie  PRINT  USING,  die  Ausgaben  erscheinen  aber 
auf  dem  Drucker.  Weiteres  bei  LPRINT  und  PRINT  USING. 

LSET 

Syntax:        LSET  Obergabestring=String 

LSET  wird  bei  relativer  Dateiverwaltung  benutzt.  Er  ubertr^gt 
Daten  in  den  Datensatz-Puffer.  Dazu  geben  Sie  eine  Ubergabe- 
variable  an,  die  Sie  im  FIELD-Befehl  definiert  haben,  und  wei- 
sen  ihr  einen  String  zu.  Dieser  String  wird  dann  in  den  Puffer 
ubertragen.  Das  L  bei  LSET  kommt  von  "Linksbiindig".  Sind  die 
Daten  kiirzer  als  die  im  FIELD-Befehl  angegebene  LSnge  des 
Felds,  werden  sie  linksbundig  in  das  Datenfeld  ubertragen.  Das 
heiBt,  die  freien  Stellen  befinden  sich  rechts.   Vergleichen  Sie 
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RSET.  Zur  Ubernahme  von  Zahlenwerten  in  den  Puffer  m&ssen 
Sie  Umwandlungsfunktionen  wie  MK*$  oder  STR$  verwenden. 
Urn  die  Daten  vom  Puffer  auf  Diskette  zu  bringen,  brauchen  Sie 
den  PUT-Befehl. 

Kapitel:  5.1 


MENU 

Syntax:       MENU  Menttnummer,  Menupunkt,  Status  [.Text] 

Mit  MENU  kdnnen  Sie  in  AmigaBASIC  eigene  Pulldowns  erzeu- 
gen.  Durch  Event  Trapping  ist  es  dann  mdglich,  die  Menuaus- 
wahl  auszuwerten. 

'Menunummer*  gibt  die  Nummer  des  Pulldowns  an.  Das  erste 
Pulldown  hat  die  Nummer  1,  das  letzte  Pulldown  Nummer  10. 

'MenOpunkt*  ist  der  Punkt  innerhalb  des  gewahlten  Pulldowns. 
In  einem  Pulldown  durfen  bis  zu  19  Meniipunkte  stehen.  Der 
Wert  0  legt  den  Titel  des  Pulldowns  fest. 

Fiir  'Status'  sind  drei  Werte  mdglich:  0  schaltet  den  angegebenen 
Menupunkt  ab,  er  wird  in  Geisterschrift  dargestellt  und  kann 
nicht  ausgewahlt  werden.  Wenn  Sie  als  Menupunkt  0  angeben, 
wird  ein  ganzes  Pulldown  abgeschaltet.  1  aktiviert  den  angege- 
benen Menupunkt  (oder  bei  Menupunkt  0  das  ganze  Pulldown). 
2  aktiviert  ebenfalls,  druckt  aber  noch  ein  kleines  Hakchen  zur 
Kennzeichnung  von  den  Text  des  Meniipunkts.  Sie  sollten  im 
Text  zwei  Leerstellen  Platz  lassen,  damit  das  Hakchen  nichts 
uberschreibt.  Im  Menutitel  kann  kein  Hakchen  angegeben 
werden. 
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Wenn  Sie  den  MENU-Befehl  dazu  verwenden,  einen  Meniipunkt 
zu  aktivieren  oder  abzuschalten,  war  das  alles.  Wenn  Sie  aber  ein 
neues  Pulldown  erzeugen,  mussen  Sie  noch  den  Text  angeben, 
den  die  einzelnen  Menupunkte  haben  sollen. 

Kapitel:  2.8 


MENU 

Syntax:        Wert=MENU(x) 

Diese  BASIC-Funktion  gibt  Auskunft  uber  den  letzten  gewahl- 
ten  Menupunkt.  MENU(O)  teilt  Ihnen  die  Nummer  des  Pull- 
downs  mit,  in  dem  sich  der  Punkt  befindet.  MENU(l)  sagt  Ih- 
nen, welcher  Punkt  innerhalb  dieses  Pulldowns  ausgew&hlt 
wurde. 

Kapitel:  2.8 


MENU  ON 
MENU  OFF 
MENU  STOP 

Syntax: 

Diese  Befehle  aktivieren  oder  deaktivieren  Event  Trapping  fur 
die  Menusteuerung.  MENU  ON  ermoglicht  Menu  Trapping, 
MENU  OFF  schaltet  es  ab,  und  MENU  STOP  unterdruckt  es  bis 
zum  nachsten  MENU  ON. 

Das  Unterprogramm,  das  sich  urn  die  Menuauswahl  kiimmert, 
kflnnen  Sie  mit  ON  MENU  GOSUB  angeben. 
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MERGE 

Syntax:       MERGE  Dateiname 

Mit  MERGE  lesen  Sie  ein  Programm  oder  ein  Unterprogramm 
von  Diskette  und  hangen  es  an  das  aktuelle  Programm  an.  Das 
gelesene  Programm  muB  im  ASCII-Format  auf  Diskette  stehen. 
Sie  kSnnen  MERGE  zwar  auch  vom  Programm  ausfiihren  lassen, 
aber  nach  Beendigung  von  MERGE  kehrt  AmigaBASIC  immer 
in  den  Direktmodus  zuruck.  Zum  Verketten  und  Nachladen  von 
Programmen  ist  CHAIN  besser  geeignet.  MERGE  hingegen  ist 
ein  Befehl,  der  eher  wahrend  der  Programmentwicklung  benutzt 
wird. 

Kapitel:  Zwischenspiel  3 
MIDS 

Syntax:        Teastring=MID$(StringlPo8ition  [.Lange]  ) 

Mit  der  Funktion  MID$  kflnnen  Sie  einen  Teilstring  aus  einem 
String  ermitteln.  Geben  Sie  den  String  und  die  Position  an,  ab 
der  der  Teilstring  gebildet  werden  soil.  AuBerdem  die  L£nge  des 
gewiinschten  Teilstrings.  Wenn  Sie  diese  Angabe  weglassen,  er- 
halten  Sie  den  Rest  des  Strings  ab  der  angegebenen  Position. 

MID$(MAmiga  ist  toll!",  11,4)  ergibt  "toll". 
Kapitel:  4.7 

MIDS 

Syntax:       MID$(String,Position  [.Lange]  )=Ein»etB-String 

MIDS  gibt  es  auch  als  Befehl.  Damit  kdnnen  Sie  in  einen  vor- 
handenen  String  einen  Einsetz-String  einbauen.  'Position'  gibt 
die  Position  an,  ab  der  eingebaut  werden  soil.  Optional  kdnnen 
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Sie  eine  'LSnge'  angeben.  Dann  werden  nur  so  viele  Zeichen  aus 
dem  Einsetz-String  ubernommen  wie  angegeben. 

a$="Amiga  ist  nett!"  :  MI0$(a$,11)=,,totl" 

ergibt  "Amiga  ist  toll!". 


MKD$ 
MKIS 
MKL$ 
MKS$ 

Syntax:        String=MKD$(doppelt  genaue  FlieBkommaxahl) 
String=MKI$(16-Bit-IntegeirahI) 
String=MKL$(32-Bit-IntegerEahl) 
String=MKS$(einfach  genaue  FlieBkommaeahl) 

Wenn  Sie  Zahlen  in  sequentiellen  oder  relativen  Dateien  spei- 
chern,  ist  es  platzsparend  und  schneller,  sie  als  Strings  zu  spei- 
chern,  die  genauso  viele  Zeichen  haben,  wie  die  Zahl  Bytes  hat. 
Zur  Umwandlung  einer  Zahl  in  so  einen  String  gibt  es  diese 
Funktionen. 

MKD$  macht  aus  einer  doppelt  genauen  FlieBkommazahl  einen 
8  Byte  langen  String. 

MKI$  macht  aus  einer  16-Bit-Integerzahl  einen  2  Byte  langen 
String. 

MKL$  macht  aus  einer  32-Bit-Integerzahl  einen  4  Byte  langen 
String. 

MKS$  macht  aus  einer  einfach  genauen  FlieBkommazahl  einen  4 
Byte  langen  String. 
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Wie  Sie  solche  Strings  beim  Einlesen  wieder  in  Zahlen  des  ent- 
sprechenden  Formats  umwandeln  k&nnen,  lesen  Sie  bei  den 
CV*-Befehlen. 

Kapitel:  4.1,  4.3 


MOUSE 

Syntax:      Wert=MOUSE(x) 

Die  MOUSE-Funktion  gibt  Informationen  iiber  die  Klicks  und 
Bewegungen,  die  der  Anwender  mit  der  Maus  durchfiihrt. 

Der  Wert  in  Klammern  kann  zwischen  0  und  6  liegen  und  hat 
folgende  Bedeutung:  MOUSE(O)  gibt  den  Zustand  der  linken 
Maustaste  an.  Wird  MOUSE(O)  im  Programm  ausgefiihrt,  merkt 
sich  AmigaBASIC  den  gegenwartigen  Zustand  der  Maus.  Bevor 
Sie  MOUSE(l)  bis  (6)  abfragen,  sollten  Sie  also  MOUSE(O)  auf- 
rufen.  Wenn  Sie  den  Wert  nicht  benfltigen,  weisen  Sie  ihn  ein- 
fach  einer  Dummy-Variablen  zu.  MOUSE(O)  kann  folgende  Er- 
gebnisse  haben: 

Wert       Bedeutung 


0  Die  linke  Maustaste  ist  zur  Zeit  nicht  gedriickt. 

1  Die  linke  Maustaste  ist  zur  Zeit  nicht  gedriickt,  der 
Anwender  hat  sie  aber  seit  dem  letzten  Aufruf  von 
MOUSE(O)  einmal  gedriickt. 

2,3  Die   linke   Maustaste   ist   zur   Zeit   nicht   gedriickt,   sie 

wurde  aber  seit  dem  letzten  MOUSE(O)  mehrmals  ge- 
driickt. Der  Wert  gibt  die  Anzahl  der  Klicks  an:  2  - 
zweimal  gedriickt,  3  -  dreimal  oder  6fter  gedriickt. 

-1  Die  linke  Maustaste  wird  zur  Zeit  gedriickt. 

-2,-3  Die  linke  Maustaste  wird  zur  Zeit  gedriickt.  Der  aktuelle 
Klick  ist  der  zweite  bzw.  dritte  Klick  seit  dem  letzten 
MOUSE(O). 
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MOUSE(l)  und  MOUSE(2)  sagen  Ihnen  die  x-  bzw.  y-Koordi- 
nate  des  Mauscursors  beim  letzten  Aufruf  von  MOUSE(O). 

MOUSE(3)  und  MOUSE(4)  sagen  Ihnen  den  Startpunkt  der 
letzten  Mausbewegung. 

MOUSE(5)  und  MOUSE(6)  teilen  Ihnen  den  Endpunkt  der  letz- 
ten Mausbewegung  mit.  1st  die  linke  Maustaste  zur  Zeit  noch 
gedruckt,  erhalten  Sie  die  aktuellen  Mauskoordinaten. 

Kapitel:  2.8 


MOUSE  ON 
MOUSE  OFF 
MOUSE  STOP 

Syntax: 

Diese  Befehle  aktivieren  oder  deaktivieren  Event  Trapping  fur 
die  Maus.  Ein  Mausklick  ist  ein  Ereignis,  das  durch  Event 
Trapping  uberpruft  werden  kann.  MOUSE  ON  ermflglicht 
Mouse  Trapping,  MOUSE  OFF  schaltet  es  ab,  und 
MOUSE  STOP  unterdruckt  es  bis  zum  nachsten  MOUSE  ON. 
Das  Unterprogramm,  das  sich  urn  den  Mausklick  kummert,  kon- 
nen  Sie  mit  ON  MOUSE  GOSUB  angeben. 

Kapitel:  2.8 


NAME 

Syntax:        NAME  (Alter  Dateiname)  AS  (Neuer  Dateiname) 

Mit  NAME  benennen  Sie  eine  Datei  auf  Diskette,  Festplatte 
Oder  RAM-Disk  urn.  Bitte  verwenden  Sie  im  neuen  Namen 
keine  andere  Gerate-  oder  Schubladenbezeichnung  als  im  alten 
Namen,  sonst  erhalten  Sie  den  Error  "Rename  across  disks*1. 

Kapitel:  3.2 


682 AmigaBASIC 

NEW 
Syntax: 

Mit  NEW  lflschen  Sie  das  Programm,  das  zur  Zeit  im  Speicher 
steht.  Vorher  werden  alle  Dateien  geschlossen  und  mit  TROFF 
der  Trace-Modus  abgeschaltet.  Wenn  Sie  das  Programm  in  der 
aktuellen  Form  noch  nicht  abgespeichert  haben,  weist  Sie  ein 
Dialog-Window  darauf  hin. 

Kapitel:  1.9 

NEXT 

siehe  FOR...NEXT 

NOT 

Syntax:        Wert  =  NOT  Wert 

Die  logische  Verkntipfung  NOT  macht  aus  0  den  Wert  -1  und 
aus  -1  den  Wert  0.  Er  kehrt  also  die  Richtigkeit  einer  Bedingung 
um: 

IF  NOT  (a<l)  THEN  ... 

THEN  wird  ausgefuhrt,  wenn  a  nicht  kleiner  1  ist,  also  gr66er 
Oder  gleich  1.  Um  die  Umkehrung  zu  erreichen,  wird  der  ange- 
gebene  Wert  nach  folgender  Formel  umgerechnet: 

MOT  X  =  -<x+1> 

Far  alle  anderen  V-Werte  auBer  -1  und  0  macht  das  allerdings 
nicht  viel  Sinn. 

Kapitel:  Zwischenspiel  4 
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OBJECT  AX  und  OBJECT  AY 

Syntax:        OBJECT  .AX  Objektnummer,Beschleunigun& 
OBJECT.AY  Objektnummer.Beschleuniffung 

Mit  diesen  beiden  Befehlen  geben  Sie  eine  Beschleunigung  ftir 
die  Objekt-Bewegung  an.  Mit  OBJECT.AX  legen  Sie  den  hori- 
zontalen  Beschleunigungswert  fest.  Positive  Zahlen  beschleunigen 
das  Objekt  von  links  nach  rechts,  negative  Zahlen  beschleunigen 
es  von  rechts  nach  links. 

OBJECT.AY  gibt  die  vertikale  Beschleunigung  an.  Positive 
Werte  beschleunigen  das  Objekt  von  oben  nach  unten,  negative 
Werte  von  unten  nach  oben.  Schauen  Sie  sich  zu  diesem  Thema 
bitte  Bild  4  in  Kapitel  1.15  an. 

Die  Beschleunigung  wird  in  Bildpunkten  pro  Sekunde  ange- 
geben.  Die  von  Ihnen  programmierte  Bewegung  beginnt  aber 
erst  durch  den  OBJECT.START-Befehl. 

Kapitel:  1.15 


OBJECT.CLIP 

Syntax:      object  clip  (xi,yi)-(x2,y2) 

Mit  OBJECT.CLIP  legen  Sie  ein  Rechteck  fest.  AmigaBASIC 
wird  Objekt-Bewegungen  nur  innerhalb  dieses  Rechtecks 
durchfuhren.  Das  heifit:  Wenn  die  Koordinaten  des  Objekts 
innerhalb  des  Clip-Bereich  liegen,  ist  das  Objekt  sichtbar.  Lie- 
gen  sie  auBerhalb,  ist  das  Objekt  unsichtbar.  Als  Standardwert 
nimmt  AmigaBASIC  die  AusmaBe  des  Ausgabewindows  an.  Wird 
das  Ausgabewindow  verkleinert  oder  vergrdOert,  andert  sich  der 
Clip-Bereich  aber  nicht  automatisch  mit! 
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OBJECT.CLOSE 

Syntax:        OBJECT.CLOSE  [Objektnummer]  [.Objektnummer,  ...] 

Solange  ein  Objekt  im  Speicher  ist,  benfttigt  es  Speicherplatz. 
Wird  ein  Objekt  also  nicht  mehr  gebraucht,  sollten  Sie  mit 
OBJECT.CLOSE  den  besetzten  Speicherplatz  freigeben.  Geben 
Sie  keine  *Objektnummer,  an,  werden  alle  Objekte,  die  ins  ak- 
tuelle  Ausgabefenster  gehOren,  gel6scht  und  ihr  Speicherplatz 
wird  freigegeben. 

OBJECT.HIT 

Syntax:        OBJECT.HIT  Objektnummer,  [Wertl]  [,Wert2] 

Dieser  Befehl  legt  fur  jedes  Objekt  einzeln  fest,  mit  welchen 
anderen  Objekten  (oder  Bildschirmbegrenzungen)  es  kollidieren 
kann.  So  kdnnen  Sie  Kollisionen  zwischen  bestimmten  Objekten 
unterdrucken  (z.B.  einzelne  Objekte  mit  dem  Bildschirmrahmen 
oder  Raumschiff  und  Sterne  in  einem  Spielprogramm).  1st  eine 
bestimmte  Kollision  mdglich,  und  sie  findet  statt,  ist  das  ein 
Ereignis,  das  durch  Collision-Event-Trapping  uberpruft  werden 
kann.  NSheres  bei  ON  COLLISION  GOSUB. 

Die  Standardeinstellung  ist,  daB  alles  mit  jedem  zusammenstoBen 
kann.  Also  Objekte  untereinander  und  jedes  Objekt  mit  dem 
Bildschirmrahmen.  Fur  'Wertl*  und  'Wert2'  konnen  Sie  jeweils 
einen  16-Bit- Wert  als  Dezimalzahl  angeben.  Ist  das  niedrigste  Bit 
in  'Wert2'  gesetzt  (ist  'Wert2'  also  ungerade),  kann  das  angege- 
bene  Objekt  mit  dem  Bildschirmrand  zusammenstoBen.  Ist  dieses 
Bit  nicht  gesetzt,  kann  das  Objekt  iiber  den  Bildschirmrahmen 
hinausfliegen. 

Die  restlichen  Bits  werden  folgendermaBen  verwendet  Wertl 
steht  fur  das  Objekt  selbst.  *Wert2'  steht  fur  andere  Objekte,  mit 
denen  unser  Objekt  zusammenstoBen  kflnnte.  Tritt  eine  Kollision 
ein,  verkniipft  AmigaBASIC  den  'Wert2'  des  fremden  Objekts 
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mit  dem  'Wertl1  unseres  Objekts  durch  AND.  Kommt  dabei  0 
heraus,  stimmt  also  kein  Bit  in  den  beiden  Werten  uberein,  fin- 
det  keine  Kollision  statt.  Bei  jedem  anderen  Ergebnis  kracht's. 


Ein  Beispiel: 
Objekt 


Wertl 


Wert2 


Raumschiff 

Rakete 

Sterne 


00000000  00000010 
00000000  00000010 
00000000  00000100 


00000000  00000011 
00000000  00000010 
00000000  00000100 


Wir  haben  zum  besseren  Vergleich  die  16-Bit-ZahI  bin£r  darge- 
stellt.  Im  OBJECT.HIT-Befehl  mtifiten  Sie  den  Wert  als  Dezi- 
malzahl  angeben.  Der  Befehl  furs  Raumschiff  lautet  also  z.B.: 

OBJECT. HIT   1,2,3 

Nun  zu  den  Bits:  Das  niedrigste  Bit  in  '\Vert21  des  Raumschiffs 
ist  gesetzt.  Das  Raumschiff  kann  also  nicht  auflerhalb  des  Rah- 
mens  fliegen.  Die  Rakete  und  die  Sterne  durfen  den  Bildschirm 
in  alle  vier  Richtungen  verlassen. 

In  *Wertl'  des  Raumschiffs  und  'Wert2'  der  Rakete  ist  das  zweite 
Bit  gesetzt,  die  beiden  konnen  also  kollidieren.  Genauer  gesagt: 
Trifft  die  Rakete  auf  das  Raumschiff,  gibt  es  eine  Kollision. 
Damit  es  auch  kracht,  wenn  umgekehrt  das  Raumschiff  auf  die 
Rakete  fliegt,  haben  wir  auch  das  zweite  Bit  in  'Wert2'  des 
Raumschiffs  und  in  'Wertr  der  Rakete  gesetzt.  Fur  die  Sterne 
ist  nur  das  dritte  Bit  gesetzt,  sie  sind  an  keiner  Kollision  betei- 
ligt.  Zumindest  nicht  mit  dem  Raumschiff  oder  der  Rakete. 


686  AmigaBASIC 


OBJECT, ON  und  OBJECT. OFF 

Syntax:       OBJECT.ON  [Objektnummer]  [.Objektnummer,  ...] 
OBJECT.OFF  [Objektnummer]  [.Objektnummer,  ...] 

OBJECT.ON  macht  die  angegebenen  Objekte  sichtbar, 
OBJECT.OFF  macht  sie  unsichtbar.  Geben  Sie  gar  keine  'Ob- 
jektnummer' an,  bezieht  sich  der  Befehl  auf  alle  Objekte  im 
aktuellen  Ausgabewindow.  OBJECT.OFF  sorgt  auch  dafur,  daB 
ein  Objekt,  das  sich  bewegt,  angehalten  wird.  So  gibt  es  keine 
Kollisionen  mit  Geisterfliegern. 

Kapitel:  1.15 


OBJECT.PLANES 

Syntax:        OBJECT.PLANES  Objektnummer  [.Bitebenen]  [.Ebenenwert] 

Diesen  Befehl  werden  Sie  wahrscheinlich  recht  selten  benutzen, 
da  er  ziemlich  tief  im  Speicher  des  Amiga  herumbastelt:  Der 
Wert  'Bitebenen'  ist  ein  als  Dezimalzahl  geschriebener  8-Bit- 
Wert.  Die  gesetzten  Bits  legen  fest,  in  welcher  Bitebene  das  Ob- 
jekt erscheinen  soil.  Haben  Sie  z.B.  vier  Bitebenen  zur  Verfu- 
gung  und  wollen  das  Objekt  in  der  ersten  und  der  dritten  Ebene 
haben  (Ebene  0  und  Ebene  3),  mussen  Sie  fur  'Bitebenen'  ange- 
ben:  2°  +  22  =  1+4  =  5. 

Der  andere  Wert,  'Ebenenwert'  (ebenfalls  ein  8-Bit-Wert),  gibt 
an,  was  in  den  anderen  Bitebenen  dargestellt  werden  soil.  1st  das 
Bit  fur  die  jeweilige  Ebene  gesetzt,  wird  der  Bob  in  dieser 
Ebene  mit  ler-Bits  aufgefullt.  Ist  das  Bit  nicht  gesetzt,  erschei- 
nen in  dieser  Ebene  an  der  Stelle  des  Bobs  Oer-Bits. 
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OBJECT. PRIORITY 

Syntax:        OBJECT.PRIORITY  Objektnummer,  Priorit&tswert 

Mit  OBJECT.PRIORITY  legen  Sie  die  Prioritat  einzelner  Ob- 
jekte  fest.  Das  heiBt,  wir  kiaren  die  Frage  "Welches  Objekt  wird 
zuerst  dargestellt,  wenn  mehrere  iibereinander  liegen?M  Als 
'Prioritatswert'  vergeben  Sie  jedem  Objekt  eine  Zahl  zwischen  - 
32768  und  +32767.  Von  zwei  Objekten  wird  das  Objekt  im  Vor- 
dergrund  abgebildet,  das  den  hflheren  Prioritatswert  hat.  Bei 
gleichem  Prioritatswert  entscheidet  das  Los.  Oder  um  genauer  zu 
sein:  Es  hangt  vom  Zufall  ab,  wer  zuerst  darf. 

OBJECT.SHAPE 

Syntax:        OBJECT. SHAPE  Objektnummer,  Definitionaatring 

OBJECT.SHAPE  Objektnummer,  andere  Objektnummer 

Dieser  Befehl  legt  die  Form,  die  Farben  und  die  Grfifle  eines 
Objekts  fest.  Alle  diese  Daten  stehen  in  einem  Definitionsstring, 
den  Sie  aus  einer  sequentiellen  Datei  einlesen  kdnnen: 

OPEN  "(Objektdatei  >•'  FOR  INPUT  AS  1 

OBJECT.SHAPE  Objektnummer,  INPUT$(L0F<1),1) 
CLOSE  1 

Die  Daten  in  der  sequentiellen  Objektdatei  kOnnen  Sie  mit  dem 
Programm  "ObjectEditor"  aus  der  HBASICDemos"-Schublade  der 
HExtras"-Diskette  erzeugen.  Naheres  dazu  im  Kapitel  1.11. 

Die  zweite  gezeigte  Syntax  ermdglicht  Ihnen,  die  Definition  ei- 
nes bereits  eingelesenen  Objekts  auf  ein  anderes  Objekt  zu  ko- 
pieren.  Dann  haben  Sie  zwei  oder  mehrere  gleiche  Objekte  im 
Speicher. 

Kapitel:  1.13 
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OBJECT.START  und  OBJECT.STOP 

Syntax:        OBJECT.START  [Objektnummer]  [.Objektnummer,...] 
OBJECT.STOP  [Objektnummer]  [.Objektnummer,...] 

OBJECT.START  startet  die  festgelegte  Bewegung  eines  Objekts, 
OBJECT.STOP  halt  sie  an.  Sie  kflnnen  auch  mehrere  Objekte 
gleichzeitig  in  Bewegung  setzen  oder  anhalten.  MIT  OBJECT. VX 
und  .VY  oder  OBJECT.AX  und  .AY  legen  Sie  eine  Geschwin- 
digkeit  und/oder  eine  Beschleunigung  fest.  Mit  OBJECT.X  und 
OBJECT.Y  geben  Sie  die  Ausgangsposition  an.  Durch 
OBJECT.START  beginnt  die  Bewegung.  Sie  l&uft  von  nun  an  im 
Hintergrund  ab,  Ihr  Programm  kann  sich  um  andere  Dinge 
kiimmern.  Bei  einer  Kollision  fuhrt  AmigaBASIC  fur  alle  betei- 
ligten  Objekte  automatisch  OBJECT.STOP  aus. 

Kapitel:  1.15 


OBJECT  VX  und  OBJECT  VY 

Syntax:        OBJECT. VX  Objektnummer,  Geachwindigkeitswert 
OBJECT.VY  Objektnummer,  Geschwindigkeitswert 

Diese  beiden  Befehle  sind  fur  die  Festlegung  einer  Geschwin- 
digkeit  zustandig.  Mit  OBJECT.VX  geben  Sie  den  horizontalen 
Geschwindigkeitswert  an,  mit  OBJECT.VY  den  vertikalen  An- 

teil. 

Positive  Werte  erzeugen  eine  Bewegung  von  rechts  nach  links 
bzw.  von  oben  nach  unten.  Fur  Bewegungen  von  links  nach 
rechts  bzw.  unten  nach  oben  verwenden  Sie  einfach  negative 
Geschwindigkeitswerte.  Schauen  Sie  sich  zu  diesem  Thema  bitte 
Bild  4  in  Kapitel  1.15  an.  Die  Geschwindigkeit  geben  Sie  in  Pi- 
xels pro  Sekunde  an.  Die  definierte  Bewegung  beginnt  erst 
durch  den  OBJECT.START-Befehl. 

Kapitel:  1.15 
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OBJECT.VX  und  OBJECT.VY 

Syntax:        Wert  =  OBJECT.VX  (Objektnummer) 
Wert  =  OBJECT.VY  (Objektnummer) 

Diese  Funktion  teilt  Ihnen  die  momentane  Geschwindigkeit  des 
angegebenen  Objekts  mit.  So  kflnnen  Sie  diese  Information  fur 
Berechnungen  verwenden,  z.B.  urn  die  Geschwindigkeit  von  Zeit 
zu  Zeit  zu  Sndern. 

Kapitel:  1.15 


OBJECT.X  und  OBJECT.Y 

Syntax:        OBJECT.X  Objektnummer,  x-Koordinate 
OBJECT.X  Objektnummer,  y-Koordinate 

Mit  OBJECT.X  und  OBJECT.Y  Iegen  Sie  die  Position  eines  Ob- 
jekts oder  den  Ausgangspunkt  seiner  Bewegung  fest.  Die  x-  und 
die  y-Koordinate  geben  die  Lage  der  linken  oberen  Ecke  des 
Objekts  an.  Die  Werte,  die  das  Objekt  auf  dem  Bildschirm 
sichtbar  machen,  hangen  von  der  Aufldsungsstufe  des  aktuellen 
Windows  ab. 

Objekte  diirfen  sich  aber  auch  auBerhalb  des  sichtbaren  Bereichs 
befinden,  die  Koordinaten  mussen  zwischen  -32768  und  +32767 
liegen.  Bedenken  Sie,  daB  Objekte  erst  nach  OBJECT.ON  sicht- 
bar sind. 

Kapitel:  1.15 
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OBJECT.X  und  OBJECT \Y 

Syntax:        Wert  =  OBJECT.X  (Objektnummer) 
Wert  =  OBJECT.Y  (Objektnummer) 

Diese  Version  von  OBJECT.X  und  OBJECT.Y  arbeitet  als  BA- 
SIC-Funktion:  Sie  kflnnen  den  gegenwfcrtigen  Aufenthaltsort  des 
gewfinschten  Objekts  abfragen.  Anhand  dieser  Information  kann 
Ihr  Programm  entscheiden,  was  mit  dem  Objekt  geschehen  soil, 
ohne  sich  standig  darum  kiimmern  zu  mussen.  Das  Ergebnis  gibt 
die  Bildschirmkoordinaten  der  Unken  oberen  Ecke  des  Objekts 
an. 

Kapitel:  1.15 


OCTS 

Syntax:        String=OCT$(Wert) 

Diese  Funktion  liefert  die  oktale  Schreibweise  einer  Zahl  zwi- 
schen  -32768  und  65535.  Wenn  Sie  sich  nicht  mehr  daran  erin- 
nern,  was  eine  oktale  Zahl  sein  soil,  lesen  Sie  bitte  Zwischen- 
spiel  4. 

OCT$(60037)  ergibt  165205. 

ON  BREAK  GOSUB 

Syntax:     on  break  gosub  Label 

Mit  diesem  Befehl  teilen  Sie  AmigaBASIC  das  Unterprogramm 
mit,  das  aufgerufen  wird,  wenn  ein  Programmabbruch  auftritt 
und  Event  Trapping  fur  dieses  Ereignis  aktiv  ist.  Sie  k6nnen  ein 
Label  oder  eine  Zeilennummer  angeben.  Geben  Sie  jedoch  als 
Label  die  Zahl  0  an,  wird  damit  das  Abbruch-Event-Trapping 
abgeschaltet.  Zum  Aktivieren  mussen  Sie  auBerdem  den  Befehl 
BREAK  ON  geben. 
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Im  Unterprogramm  sollten  Sie  den  Anwender  darauf  hinweisen, 
daB  das  Programm  nicht  abgebrochen  werden  kann,  und  ihm  ge- 
gebenenfalls  auch  mitteilen,  wie  er  das  Programm  trotzdem 
beenden  kann.  (Sch6n  ware  doch  z.B.  ein  Window  "Wollen  Sie 
das  Programm  wirklich  beenden?"  mit  einem  Ja-  und  einem 
Nein-Feld.) 

Wahrend  das  Unterprogramm  ausgefiihrt  wird,  blockiert  Amiga- 
BASIC  das  Break  Trapping,  damit  nicht  ein  zweites  Ereignis  die 
Bearbeitung  des  ersten  unterbricht.  Das  Unterprogramm  muB 
mit  RETURN  beendet  werden. 


ON  COLLISION  GOSUB 

Syntax:      on  collision  gosub  Label 

Mit  diesem  Befehl  steuern  Sie  Event  Trapping  fur  die  Kolli- 
sionsuberwachung.  Sie  legen  fest,  welches  Unterprogramm  bei 
einer  KoIIision  aufgerufen  werden  soil.  Geben  Sie  einfach  das 
Label  (die  Sprungmarke)  der  zustSndigen  Routine  an. 

Wenn  Sie  anstelle  eines  Labels  (oder  einer  Zeilennummer)  den 
Wert  0  angeben,  wird  Event  Trapping  fur  Kollisionen  abge- 
schaltet.  Selbst  dann,  wenn  Sie  *(T  als  Label  oder  Zeilennummer 
verwendet  haben.  Urn  Collision-Event-Trapping  zu  aktivieren, 
brauchen  Sie  auBerdem  noch  den  Befehl  COLLISION  ON. 

ON  ERROR  GOSUB 

Syntax:      on  error  gosub  Label 

Damit  erfahrt  AmigaBASIC,  welches  Unterprogramm  aufgerufen 
werden  soil,  falls  ein  Fehler  auftritt  und  das  Event  Trapping  fur 
Errors  aktiv  ist.  Sie  konnen  ein  Label  oder  eine  Zeilennummer 
angeben.  Geben  Sie  jedoch  als  Label  die  Zahl  0  an,  wird  damit 
Event  Trapping  fur  Errors  abgeschaltet. 
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Im  Unterprogramm  kOnnen  Sie  aus  der  Variablen  ERR  die 
Fehlernummer  und  aus  ERL  die  letzte  Zeilennummer  vor  der 
Fehlerzeile  erfahren.  Mit  dem  ERROR-Befehl  ist  es  sogar  m6g- 
lich,  im  Programm  eigene  Fehlernummern  zu  benutzen.  Tritt  im 
Unterprogramm  ein  weiterer  Fehler  auf,  bricht  AmigaBASIC  das 
Programm  ab.  Urn  ins  Hauptprogramm  zuruckzuspringen,  mtis- 
sen  Sie  am  Ende  des  Unterprogramms  den  Befehl  RESUME 
verwenden.  Weiteres  lesen  Sie  bitte  dort. 


ON...GOSUB 

Syntax:        ON  x  GOSUB  Label  [.Label]  [,Label] 

Mit  diesem  Befehl  kOnnen  Sie  abhfcngig  vom  Wert  von  V  ver- 
schiedene  Unterprogramme  aufrufen  lassen.  Ist  V=l,  springt  das 
Programm  zum  ersten  Label,  ist  V=2,  zum  zweiten  usw.  Wenn 
V  einen  Nachkommateil  hat,  wird  der  Wert  auf  eine  ganze  Zahl 
gerundet.  Ist  V  gr6Ber  als  die  Anzahl  der  angegebenen  Labels, 
macht  das  Programm  in  der  Zeile  hinter  ON...GOSUB  weiter. 
Negative  V  erzeugen  einen  'Illegal  function  call'-Error. 

Kapitel:  2.9 


ON...GOTO 

Syntax:        ON  x  GOTO  Label  (.Label)  [(Label] 

Bitte  lesen  Sie  die  ErklSrungen  zu  ON...GOSUB.  ON...GOTO 
funktioniert  genauso,  nur  wird  hier  kein  Unterprogramm  auf- 
gerufen,  sondern  zum  angegebenen  Programmteil  verzweigt. 

Kapitel:  2.9 
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ON  MENU  GOSUB 

Syntax:      on  menu  gosub  Label 

Mit  diesem  Befehl  teilen  Sie  AmigaBASIC  das  Unterprogramm 
mit,  das  aufgerufen  wird,  wenn  der  Anwender  einen  Punkt  aus 
einem  Pulldown-Menfi  auswfthlt  und  Event  Trapping  fur  dieses 
Ereignis  aktiv  ist.  Sie  kflnnen  ein  Label  oder  eine  Zeilennummer 
angeben.  Geben  Sie  jedoch  als  Label  die  Zahl  0  an,  wird  damit 
Event  Trapping  ffir  Pulldown- Mentis  abgeschaltet.  Zum  Akti- 
vieren  mfissen  Sie  auBerdem  den  Befehl  MENU  ON  geben.  Im 
Unterprogramm  kdnnen  Sie  die  MenQ-Auswahl  mit  der  Funk- 
tion  MENU(x)  abfragen.  Wahrend  das  Unterprogramm  ausge- 
ffihrt  wird,  blockiert  AmigaBASIC  das  Menu  Trapping,  damit 
nicht  ein  zweites  Ereignis  die  Bearbeitung  des  ersten  unterbricht. 
Das  Unterprogramm  muB  mit  RETURN  beendet  werden. 

Kapitel:  2.8 

ON  MOUSE  GOSUB 

Syntax:      on  mouse  gosub  Label 

Mit  diesem  Befehl  teilen  Sie  AmigaBASIC  das  Unterprogramm 
mit,  das  aufgerufen  wird,  wenn  der  Anwender  mit  der  linken 
Maustaste  klickt  und  Event  Trapping  fur  dieses  Ereignis  aktiv 
ist.  Sie  kdnnen  ein  Label  oder  eine  Zeilennummer  angeben.  Ge- 
ben Sie  jedoch  als  Label  die  Zahl  0  an,  wird  damit  Event  Trap- 
ping fOr  die  Maus  abgeschaltet.  Zum  Aktivieren  mOssen  Sie 
auBerdem  den  Befehl  MOUSE  ON  geben.  Im  Unterprogamm 
kflnnen  Sie  Informationen  fiber  die  Maus  mit  der  Funktion 
MOUSE(x)  abfragen.  WShrend  das  Unterprogramm  ausgefuhrt 
wird,  blockiert  AmigaBASIC  das  Mouse  Trapping,  damit  nicht 
ein  zweites  Ereignis  die  Bearbeitung  des  ersten  unterbricht. 

Das  Unterprogramm  muB  mit  RETURN  beendet  werden. 
Kapitel:  2.8 
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ON  TIMER  GOSUB 

Syntax:        ON  TIMER(x)  GOSUB  Label 

Mit  diesem  Befehl  teilen  Sie  AmigaBASIC  das  Unterprogramm 
mit,  das  aufgerufen  wird,  wenn  seit  dem  letzten  Timer-Event  V 
Sekunden  vergangen  sind  und  Event  Trapping  fur  dieses  Ereig- 
nis  aktiv  ist.  Diese  Version  von  Event  Trapping  ermflglicht  den 
Aufruf  eines  Unterprogramms  in  regelmaBigen  Zeitabstanden. 
V  muB  zwischen  1  (1  Sekunde)  und  86400  (60*60*24  Sekunden 
=  24  Stunden)  liegen.  Sie  k5nnen  ein  Label  Oder  eine  Zeilen- 
nummer  angeben.  Geben  Sie  jedoch  als  Label  die  Zahl  0  an, 
wird  damit  das  Timer-Event-Trapping  abgeschaltet.  Zum  Akti- 
vieren  miissen  Sie  auBerdem  den  Befehl  TIMER  ON  geben. 

Wahrend  das  Unterprogramm  ausgefuhrt  wird,  blockiert  Amiga- 
BASIC das  Timer  Trapping,  damit  nicht  ein  zweites  Ereignis  die 
Bearbeitung  des  ersten  unterbricht.  Das  Unterprogramm  muB 
mit  RETURN  beendet  werden. 

OPEN 

Syntax:        OPEN  Dateiname  [FOR  Modus]  AS  [#]  Dateinummer  [LEN=Lange] 
OPEN  KureModus,  [#]  Dateinummer.Dateiname  [.Lange] 

Der  OPEN-Befehl  Offnet  eine  Datei.  Sie  k6nnen  sich  eine  der 
beiden  Syntax- Versionen  aussuchen,  sie  bewirken  beide  dasselbe. 
In  der  ersten  Syntax-Version  geben  Sie  zuerst  den  Dateinamen 
an,  dann  den  Modus:  Sie  kflnnen  eine  Datei  FOR  INPUT  (zum 
Lesen),  FOR  OUTPUT  (zum  Schreiben)  oder  FOR  APPEND 
(zum  Anhangen  von  Daten)  offnen.  Alle  diese  Modi  arbeiten  mit 
einer  sequentiellen  Datei.  Wenn  Sie  FOR  und  den  Modus  bei  der 
ersten  Syntax-Variante  weglassen,  effnet  AmigaBASIC  eine  re- 
lative Datei. 

Am  Ende  der  OPEN-Zeile  kOnnen  Sie  optional  die  Puffergr6Be 
in  Bytes  angeben.  Bei  relativen  Dateien  ist  das  sehr  wichtig:  Die 
Zahl,  die  Sie  hier  angeben  mussen,  ist  die  Summe  der  Feld- 
langen  aus  dem  FIELD-Befehl.  Die  zweite  Syntax  sieht  etwas 
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anders  aus,  funktioniert  aber  genauso:  'KurzModus'  ist  ein 
Buchstabe,  der  den  Dateimodus  angibt:  I  fur  sequentiellen  Input, 
O  fur  sequentiellen  Output,  A  fGr  sequentiellen  Append-Modus 
und  R  fur  eine  relative  Datei.  Die  anderen  Angaben  entsprechen 
genau  der  ersten  Syntax- Version. 

Sie  k6nnen  sequentielle  Dateien  zu  alien  Ein-  und  Ausgabe- 
geraten  fiffnen  (SCRN:,  KYBD:,  PRT:,  PAR:,  SER:)  und  von 
dort  paten  lesen  bzw.  dorthin  Daten  schicken.  Eine  sequentielle 
Datei  darf  nur  entweder  zum  Lesen  oder  zum  Schreiben  geflff- 
net  werden,  beides  gleichzeitig  geht  nicht. 

Kapitel:  3.3 


OPEN  "COM1;" 

Syntax:        OPEN  "COMl:  [Baud]  [.Paritat]  [.Wortlange]  [.Stopbits]"  [FOR  Mo- 
dus] AS  [#]  [Dateinummer] 

Mit  diesem  Befehl,  einer  Variante  des  OPEN-Befehls,  offnen  Sie 
eine  Datei  zur  seriellen  Schnittstelle.  Dort  konnen  Sie  Gerate  mit 
einem  sogenannten  RS232-Interface  betreiben,  einer  Schnittstelle 
zur  seriellen  Datenubertragung.  Wenn  Sie  kein  solches  Interface 
benutzen,  werden  Ihnen  die  folgenden  Informationen  nicht  viel 
sagen  und  auch  nicht  viel  helfen.  Sie  brauchen  diesen  Befehl 
dann  nicht  kennenzulernen.  Der  Wert  'Baud'  gibt  die 
Ubertragungsgeschwindigkeit  an.  1  Baud  ist  1  Bit/Sekunde. 
Mflgliche  Werte  sind  110,  150,  300,  600,  1200,  1800,  2400,  4800, 
9600  und  19200.  Der  voreingestellte  Baud-Wert  ist  9600.  Wel- 
chen  Wert  Sie  verwenden  mussen,  hangt  von  dem  Gerat  ab,  mit 
dem  Sie  Daten  austauschen  wollen. 

'Paritat'  legt  fest,  nach  welchem  Modus  die  Daten  beim  Senden 
und  Empfangen  iiberpruft  werden.  Auch  dieser  Wert  muO  bei 
Sender  und  Empfanger  einheitlich  sein.  Sie  kfinnen  einen  von 
drei  Buchstaben  angeben:  E  (engl.:  even)  bedeutet  "gerade  Bit- 
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Paritat".  O  (engl.:  odd)  bedeutet  "ungerade  Bit-Paritat\  N  (engl.: 
none)  bedeutet  "keine  Paritatsprufung".  Die  Grundeinstellung  ist 
E. 

'Wortiange*  gibt  an,  wieviel  Bits  pro  Byte  Informationen  enthal- 
ten.  M6glich  sind:  5,6,7  und  8,  der  Standardwert  ist  7. 

'Stopbits'  legt  die  Anzahl  an  Stopbits  fest.  Auch  dieser  Wert  muB 
bei  serieller  LFbertragung  geregelt  werden.  Zur  Auswahl  stehen  1 
Oder  2.  Bei  110  Baud  sind  2  Stopbits  voreingestellt,  bei  alien  an- 
deren  Baud-Raten  1  Stopbit.  Sie  k6nnen  diesen  Wert  naturlich 
nach  Belieben  andern. 

Als  Modus  kdnnen  Sie  FOR  INPUT  oder  FOR  OUTPUT 
wahlen.  Sie  kdnnen  den  Modus  auch  weglassen,  dann  wird  ein 
Modus  benutzt,  in  dem  Sie  gleichzeitig  senden  und  empfangen 
kflnnen. 


OPTION  BASE 

Syntax:      option  base  x 

Beim  Dimensionieren  von  Datenfeldern  hat  jedes  Feld  als  nie- 
drigstes  Element  das  Feldelement  Nummer  0  (Hallo(O),  Far- 
ben(0,0)).  Wenn  Sie  wollen,  daB  alle  Felder  mit  dem  Element  1 
beginnen  (Hallo(l),  Farben(l,l)),  benutzen  Sie  den  Befehl  OP- 
TION BASE  1.  Diese  Befehl  muB  allerdings  vor  alien  DIMs  und 
vor  der  Benutzung  von  Feldelementen  gegeben  werden.  Sonst 
erhalten  Sie  einen  "Duplicate  definitionM-Error. 
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OR 

Syntax:       Wert  =  Wertl  OR  Wert2 

Die  logische  Verknupfung  OR  verknupft  die  einzelnen  Bits  von 
'Wertr  und  'Wert2*  foIgendermaBen: 

0  OR  0  =  0 

0  OR  1  =  1 

1  OR  0  =  1 
1  OR  1  =  1 

Kapitel:  Zwischenspiel  4 
PAINT 

Syntax:        PAINT  [STEP]  (x,y)  [,Auemalfarbe]  [.BegrenEungsfarbe] 

Dieser  Befehl  malt  ein  geschlossene  FlSche  in  der  angegebenen 
'Ausmalfarbe'  aus.  Begrenzungen  erkennt  er  nur,  wenn  sie  in  der 
'Begrenzungsfarbe'  gemalt  sind.  Haben  Sie  keine  'Begrenzungs- 
farbe'  angegeben,  gilt  die  'Ausmalfarbe'  auch  gleichzeitig  als 
'Begrenzungsfarbe'.  Fehlen  beide  Werte,  arbeitet  AmigaBASIC 
mit  der  aktuellen  Zeichenfarbe.  Ein  Window,  in  dem  PAINT 
benutzt  werden  soil,  mu6  einen  Windowtyp  zwischen  16  und  31 
haben  (d.h.:  Der  Windowinhalt  wird  im  Speicher  gepuffert). 

Kapitel:  2.6 
PALETTE 

Syntax:        PALETTE  Farbnummer,  Rot-Anteil,  Grttn-Anteil,  Blau-Anteil 

Mit  PALETTE  kdnnen  Sie  eigene  Farben  erzeugen.  Die  Anzahl 
der  m6glichen  Farben  richtet  sich  nach  der  Anzahl  der  Bit- 
ebenen  des  Screens,  auf  dem  sich  das  Ausgabewindow  befindet. 
Jede  verwendete  Farbe  hat  eine  Farbnummer.  Dieser  Nummer 
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(im  Hflchstfall  zwischen  0  und  31)  wird  dann  eine  bestimmte 
Farbe  zugeordnet. 

Fur  den  *Rot-Anteil\  den  'Griin-Anteil'  und  den  'Blau-AnteiP 
verwenden  Sie  eine  Zahl  zwischen  0  (entspricht  0%,  kein  Anteil) 
und  1  (entspricht  100%,  voller  Anteil).  Die  neue  Farbeinstellung 
ersetzt  die  alte  Einstellung.  Lediglich  die  vier  Workbenchfarben 
(also  die  Farben  0  bis  3,  in  denen  auch  die  Workbench  arbeitet, 
und  die  mit  Preferences  geandert  werden  kdnnen)  werden  von 
Amiga  beim  Starten  und  Beenden  eines  Programms  zuruck- 
gesetzt. 

Kapitel:  1.16 


PATTERN 

Syntax:        Pattern  [16-Bit-Wert  fiir  Linien]  [,Feld  fUr  Flachen] 

Mit  diesem  Befehl  legen  Sie  die  Fiillmuster  fur  Linien  oder 
Flachen  fest.  Fiir  Linien  kdnnen  Sie  einen  16-Bit-Wert  angeben. 
Damit  definieren  Sie  ein  16  Pixels  breites  Muster.  Jedes  gesetzte 
Bit  in  der  Zahl  entspricht  einem  Punkt  auf  dem  Bildschirm.  Den 
16-Bit-Wert  k6nnen  Sie  als  Dezimalzahl  (z.B.  65535), 
Hexadezimalzahl  (&HFFFF)  oder  Oktalzahl  (&0177777) 
angeben. 

Fur  Flachen  geben  Sie  ein  Datenfeld  mit  Integerzahlen  an.  Die 
Zahlen  in  diesem  Feld  definieren  ein  Muster,  das  fur  samtliche 
Full-  und  Ausmal-Aktionen  (PAINT,  AREAFILL  oder 
LINE...,BF)  verwendet  wird.  Auch  hier  entsprechen  die  gesetz- 
ten  Bits  sichtbaren  Punkten  auf  dem  Bildschirm.  Die  Anzahl  der 
Feldelemente  im  Integerfeld  muB  eine  ganze  Zweierpotenz  sein. 
(Also  1,  2,  4,  8,  16  oder  32  Elemente  usw.) 

Kapitel:  2.10 
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PEEK 

Syntax:        Wert=PEEK(AdreBse) 

PEEK  liefert  den  Inhalt  der  Speicherzelle  an  der  angegebenen 
Adresse.  Das  ist  eine  Zahl  zwischen  0  und  255,  ein  Byte.  Die 
hdchste  erlaubte  Adresse  im  Amiga  ist  16777215.  Viele  der 
mflglichen  Adressen  sind  aber  gar  nicht  mit  einer  Speicherzelle 
verbunden,  solange  Sie  den  Speicher  nicht  voll  auf  8  Megabyte 
RAM  ausgebaut  haben. 

Kapitel:  4.3 
PEEKL 

Syntax:        Wert=PEEKL(Adresse) 

PEEKL  liefert  den  Inhalt  von  vier  aufeinanderfolgenden 
Speicherzellen  ab  einer  geraden  Adresse.  Das  Ergebnis  ist  eine 
Zahl  zwischen  -2147483648  und  2147483647,  eine  4-Byte-Zahl. 
Uber  die  Adresse  erfahren  Sie  mehr  bei  PEEK. 

Kapitel:  4.3 
PEEKW 

Syntax:        Wert=PEEKW(Adre8se) 

PEEKL  liefert  den  Inhalt  von  zwei  aufeinanderfolgenden 
Speicherzellen  ab  einer  geraden  Adresse.  Das  Ergebnis  ist  eine 
Zahl  zwischen  -32768  und  32767,  eine  2-Byte-Zahl.  Uber  die 
Adresse  erfahren  Sie  mehr  bei  PEEK. 

Kapitel:  4.3 
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POINT 

Syntax:        Wert=POINT(x(y) 

Diese  BASIC-Funktion  liefert  die  Farbnummer  der  Farbe  eines 
angegebenen  Punkts  im  aktuellen  Ausgabewindow.  Liegt  dieser 
Punkt  auBerhalb  des  Windows,  erhalten  Sie  das  Ergebnis  - 1 . 

POKE 

Syntax:        POKE  Adresae.Wert 

POKE  schreibt  einen  1-Byte-Wert  in  die  Speicherzelle  mit  der 
angegebenen  Adresse.  Uber  die  Adresse  erfahren  Sie  mehr  bei 
PEEK. 

Beim  Schreiben  von  Werten  in  den  Speicher  sollten  Sie  vorsichtig 
sein.  Ohne  genaue  Planung  und  detaillierte  Kenntnisse  iiber  das 
Amiga-Betriebssystem  richten  Sie  sicher  mehr  Schaden  als  Nut- 
zen  an. 

Kapitel:  4.3 
POKEL 

Syntax:        POKEL  Adresse.Wert 

POKE  schreibt  einen  4-Byte-Wert  in  vier  aufeinanderfolgende 
Speicherzellen  ab  einer  geraden  Adresse.  Die  mGglichen  Adres- 
sen  finden  Sie  bei  PEEK.  Weiteres  bei  PEEKL  und  POKE. 

Kapitel:  4.3 
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POKEW 

Syntax:        POKEW  Adresse.Wert 

POKE  schreibt  einen  2-Byte-Wert  in  zwei  aufeinanderfolgende 
Speicherzellen  ab  einer  geraden  Adresse.  Die  mflglichen  Adres- 
sen  finden  Sie  bei  PEEK.  Weiteres  bei  PEEKW  und  POKE. 

Kapitel:  4.3 

POS 

Syntax:      Wert=pos(x) 

Fur  V  durfen  Sie  jeden  beliebigen  Wert  angeben.  Es  dient  bloB 
als  Schein-Argument.  (Das  hat  nichts  mit  politischen  Diskussio- 
nen  zu  tun,  sondern  damit,  daB  viele  BASIC-Funktionen  ein  Ar- 
gument, also  einen  Wert  in  Klammern,  haben  miissen.)  POS(x) 
liefert  die  Spalte,  in  sich  der  Cursor  zur  Zeit  befindet.  Mit 
"Cursor**  meinen  wir  den  Ausgabecursor,  also  die  Bildschirmpo- 
sition,  an  der  das  nSchste  Zeichen  erscheint.  Wenn  Sie  die  aktu- 
elle  Cursorposition  benotigen,  geht  das  so: 

Zeile=CSRLIN   :   Spalte=POS(0) 

PRESET  und  PSET 

Syntax:        PRESET  [STEP]  (x,y)  [Farbe] 
PSET  [STEP]  (x,y)  [,Farbe] 

Diese  beiden  Befehle  zeichnen  einen  Punkt  ins  aktuelle  Aus- 
gabewindow.  'x'  und  y  geben  die  Koordinaten  des  Punkts  an. 
Mit  STEP  k6nnen  Sie  die  Koordinaten  als  Abstand  zum  letzten 
Punkt    angeben.    'Farbe'    erm6glicht    die    Angabe    einer    Farb- 
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nummer,  urn  die  Zeichenfarbe  festzulegen.  Zwischen  PRESET 
und  PSET  gibt  es  nur  einen  Unterschied:  Wenn  Sie  keine  Zei- 
chenfarbe angeben,  zeichnet  PRESET  in  der  aktuellen  Hinter- 
grundfarbe,  wogegen  PSET  die  aktuelle  Zeichenfarbe  verwendet. 

Kapitel:  2.5 


PRINT 

Syntax:        PRINT  [Variable  oder  Wert]  [Trennseiehen]  [Variable  oder  Wert]... 

Der  PRINT-Befehl  kann  durch  ?  abgekurzt  werden.  Er  dient  zur 
Ausgabe  von  Variablen  oder  Werten  (auch  Stringvariablen  oder 
Texten)  auf  dem  Bildschirm.  Texte  mussen  in  Anfuhrungs- 
zeichen  angegeben  werden.  Geben  Sie  uberhaupt  keine  Variablen 
oder  Werte  an,  wird  eine  Leerzeile  gedruckt.  Als  Trennzeichen 
kommen  verschiedene  Zeichen  in  Frage:  Ein  Strichpunkt  (;)  be- 
wirkt,  daB  die  einzelnen  Angaben  direkt  hintereinander  gedruckt 
werden.  Ein  Komma  (,)  bewirkt  einen  Sprung  zur  nichsten  Ta- 
bulatorposition  (alle  15  Spalten,  die  Tabulatoreinstellung  kann 
mit  WIDTH  verfcndert  werden).  Urn  Variablennamen  voneinan- 
der  zu  trennen,  durfen  Sie  auch  das  Leerzeichen  und  die  Son- 
derzeichen  #  &  und  %  verwenden.  Sie  wirken  in  diesem  Fall  wie 
der  Stichpunkt.  Steht  ein  Stichpunkt  am  Ende,  beginnt  die 
nachste  Druckausgabe  unmittelbar  hinter  der  letzten.  Anderen- 
falls  wird  ein  Zeilenvorschub  ausgefiihrt. 

Kapitel:  1.3 
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PRINT* 
PRINT*  ,USING 

Syntax:        PRINT  #  Dateinummer  [USING  (FormatString);]  [  [Variable  oder 
Wert]  [Trenneeichen]  [Variable  oder  Wert  ...] 

Diese  beiden  Befehle  funktionieren  genauso  wie  PRINT  und 
PRINT  USING,  aber  sie  schreiben  ihre  Ausgaben  in  eine  Datei. 
N&heres  bei  PRINT,  PRINT  USING  und  INPUT#. 

Kapitel:  3.3 


PRINT  USING 

Syntax:        PRINT  USING  (FormatString);  (Variable  oder  Wert)  [;] 

PRINT  USING  dient  zur  formatierten  Ausgabe  von  Werten.  So 
kdnnen  Sie  zum  Beispiel  verschiedene  Zahlen  in  Tabellen  druk- 
ken,  wobei  das  Komma  immer  auf  derselben  Position  steht.  Das 
ist  naturlich  auch  fiir  Stringvariablen  mflglich.  In  einem  For- 
matString geben  Sie  Ihre  Formatierungswiinsche  an.  Schauen  wir 
mal,  was  da  alles  moglich  ist: 

Ein  Doppelkreuz  #  (das  amerikanische  Zeichen  fur  "Nummer") 
steht  fur  eine  Ziffer.  Ein  Punkt  steht  fur  den  amerikanischen 
Dezimalpunkt.  In  Deutschland  stunde  hier  das  Komma.  Der 
Nachkommateil,  der  nicht  gedruckt  wird,  wird  gerundet. 

print  using  »###.##•';  32. 4  ergibt      32.40 

print  using  "###.##»;  17  17.00 

print  using  ••###.##";  324. 124  324.12 

print  using  »###.##"; 128.489  128.49 

print  using  »###.##»; 129.9984  130.00 

Hat  die  zu  druckende  Zahl  mehr  Stellen  vor  dem  Komma,  als 
#-Positionen  angegeben  wurden,  erscheint  vor  der  Zahl  ein  %- 
Zeichen  zur  Kennzeichnung. 
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print  using  "»####.###'';43259.3253  %43259.325 

Ein  +  am  Anfang  des  Formatstrings  bewirkt  die  Angabe  des 
Vorzeichens  vor  dem  Wert.  Das  +  kann  auch  am  Ende  stehen, 
dann  erscheint  das  Vorzeichen  hinter  dem  Wert.  Am  Ende  des 
Formatstrings  ist  auch  ein  -  erlaubt.  Dadurch  wird  dann  hinter 
negativen  Werten  ein  Minuszeichen  gedruckt. 

print  using  »+###.##»;324.234  +324.23 

print  using  »+###.##»•; -518.284  -518.28 

print  using  »###.##+»; -518.294  518.28- 

print  using  »###.##-»;324.234  324.23 

print  using  »###.##-"; -518.294  518.27- 

Wenn  Sie  zwei  Sterne  (**)  anstelle  der  ersten  beiden  Nummern- 
zeichen  (#)  angeben,  werden  fuhrende  Leerstellen  mit  Sternen 
aufgefiillt.  Die  beiden  *  zfchlen  als  Ziffernpositionen  mit. 

print  using  »**##.##»; 42. 2  **42.20 

print  using  »**#####.##'';43.i  *****43.10 

print  using  ••**###.##"; -523.456  *-523.46 

Zwei  Dollarzeichen  ($$)  bewirken,  daB  vor  der  Zahl  ein  $  ge- 
druckt wird.  Das  erste  Dollarzeichen  steht  fur  das  sp&ter  ge- 
druckte  Zeichen,  das  zweite  steht  fur  eine  Ziffernposition.  Wol- 
len  Sie  mit  +  das  Vorzeichen  in  jedem  Fall  drucken,  muB  es 
hinter  der  Zahl  stehen. 

print  using  "$$###.##"; 43. 54  $43.54 

print  using  »$$###.##»; -43.54  -$43.54 

print  using  »$$###.##"; -53245.345  %-$53245.35 

print  using  »$$###.##+";45.3  $45.30+ 

print  using  »$$+##.##"; 45. 3  %$45+ 

Das  letzte  Beispiel  zeigt  also  einen  Fehler:  +  darf  nicht  in  Ver- 
bindung  mit  $$  angegeben  werden.  Wie  Sie  sehen,  kommt 
PRINT  USING  dann  nSmlich  durcheinander  und  schneidet 
kurzerhand  den  Nachkommateil  ab. 
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Sie  kflnnen  aber  den  Effekt  von  **  und  $$  kombinieren.  Dazu 
verwenden  Sie  **$.  Diese  Angabe  zahlt  als  drei  Zeichenpositio- 
nen.  Eine  fur  das  Dollarzeichen  und  zwei  fur  Ziffern  bzw. 
Sterne.  Das  sieht  dann  so  aus: 

print  using  "**$##.##»; 45. 3  **$45.30 

print  using  U**S##.##";345.3  *$345.30 

Gerade  bei  Sternchen  und  Dollars  wird  natiirlich  klar,  daO 
PRINT  USING  besonders  fur  amerikanische  Verhaitnisse  und 
amerikanische  Schreibweisen  geeignet  ist.  So  auch  der  nachste 
Fall:  Die  Benutzung  von  Kommas  und  Punkten  bei  Zahlen  ist  in 
Amerika  genau  andersrum  als  in  Deutschland.  Wenn  wir  groBe 
Zahlen  untergliedern  wollen,  trennen  wir  Dreiergruppen  mit  ei- 
nem  Punkt.  In  Amerika  nimmt  man  dazu  das  Komma: 

Deutsch:  3.444.233,50  Amerikanisch:  3,444,233.50 

Die  amerikanische  Version  wird  auch  von  PRINT  USING  un- 
terstiitzt:  Ein  Komma  links  vom  Dezimalpunkt  erreicht  diese 
Einteilung: 

print  using  "#########, .##",3444233.50  3,444,233.50 

Die  erzeugten  Kommas  zahlen  als  Zeichenposition. 

Erinnern  Sie  sich  noch  an  unser  Zwischenspiel  7?  Besonders  an 
die  Exponentialzahlen?  Wenn  Sie  wollen  (aber  wirklich  nur 
dann),  kdnnen  Sie  die  auch  mit  PRINT  USING  erzeugen.  Han- 
gen  Sie  einfach  hinten  am  Formatstring  vier  Potenzierungs- 
symbole  an:  AAAA 

print  using  »##.##AA~»;34.53  3.45E+01 

print  using  "##.##AAA"»; .009  9.00E-03 

Jetzt  haben  wir's  bald  geschafft!  Als  nachstes  gibt  es  noch  das 
Unterstreichungszeichen  (_).  Es  zeigt  an,  da6  das  darauf- 
folgende  Zeichen  nicht  als  Formatierungssymbol  gedacht  ist, 
sondern  selbst  gedruckt  werden  soil. 
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print  using  »_####.##"; 34. 95  #  34.95 

Sie  durfen  auch  Text  in  den  Formatierungsstring  aufnehmen. 
Der  Text  darf  dabei  beliebig  lang  sein.  Aber  weil  wir  gerade 
dabei  sind:  Die  Anzahl  der  definierten  Ziffernpositionen  im 
String  (also  der  Stellen,  die  spater  von  der  Zahl  benfltigt  werden) 
ist  auf  24  begrenzt.  Wenn  Sie  also  z.B.  mehr  als  24  #-Zeichen 
verwenden,  gibt's  einen  "Illegal  function  cair-Error. 

print  using  "Hier  die  Zahl:  ##.##",3.3       Hier  die  Zahl:  3.30 

Wenn  in  Ihrem  Text  Formatierungszeichen  vorkommen,  die 
PRINT  USING  falsch  versteht,  schreiben  Sie  einfach  ein  _  da- 
vor. 

Jetzt  sind  wir  schon  beim  nachsten  Thema:  Nicht  nur  Zahlen, 
auch  Strings  kdnnen  formatiert  werden.  Ein  Ausrufezeichen  (!) 
bewirkt,  daB  nur  das  erste  Zeichen  eines  Strings  gedruckt  wird: 

print  using  "■"; "Amiga"  A 

Wenn  Sie  einen  String  auf  mehr  als  Zeichen  begrenzen  wollen, 
geben  Sie  die  Anzahl  als  Leerstellen  zwischen  zwei  \-Symbolen 
(auf  der  Amiga-Tastatur  links  neben  <BACKSPACE>)  ein.  Die 
Anzahl  der  Leerstellen  plus  2  ergibt  die  Lfcnge  des  Strings: 

print  using  "\     \";"Halto"  Halt 

Zwischen  den  beiden  \  stehen  im  Beispiel  zwei  Leerstellen.  Ist 
der  String  langer,  wird  er  abgeschnitten.  Ist  er  kurzer  als  die  an- 
gegebene  Stellenzahl,  werden  Leerstellen  angehangt. 

Zu  guter  Letzt  schlieBlich  gibt  es  noch  &:  Damit  werden  Strings 
beliebiger  Lfcnge  ausdruckt. 

print  using  "\\H; "Amiga"  Am 

print  using  »&»;"Amiga"  Amiga 
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Naturlich  kflnnen  Sie  das  letzte  Ergebnis  auch  ganz  ohne  den 
PRINT  USING-Befehl  erreichen. 

Damit  hatten  wir  auch  PRINT  USING  geschafft.  Er  ist  in  seiner 
Vielfalt  zugegebenermaBen  nicht  ganz  einfach.  Aber  wenn  Sie 
die  wichtigsten  Moglichkeiten  kennen,  geht  die  ubersichtliche 
Gestaltung  von  Listen  und  Tabellen  viel  besser  als  mit  LOCATE 
und  den  Stringfunktionen.  Also  experimentieren  Sie  ruhig  noch 
ein  biflchen  mit  PRINT  USING,  es  lohnt  sich. 


PSET 

siehe  PRESET 

PTAB 

Syntax:      print  ptab(x) 

Diese  Funktion  arbeitet  genauso  wie  TAB,  nur  geben  Sie  diesmal 
die  Abstande  nicht  zeichenweise,  sondern  pixelweise  an.  So  k5n- 
nen  Sie  Text  innerhalb  der  aktuellen  Zeile  sehr  genau  posi- 
tionieren. 

Beispiel: 

FOR  x=0  TO  100 

PRINT  PTAB(x);»HaUo!» 
NEXT  x 

PUT  (Grafik) 

Syntax:        PUT  [STEP]  (x,y),  Feldname  [(Feldposition,...))  [,Modu8] 

Diesen  Befehl  benGtigen  Sie,  wenn  Sie  einen  Grafikausschnitt, 
den  Sie  mit  GET  in  ein  Datenfeld  eingelesen  haben,  zuruck  auf 
den   Bildschirm    bringen    wollen.    Die   verschiedenen   Parameter 
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entsprechen  dem  GET-Befehl  (Grafik),  bitte  vergleichen  Sie 
dort. 

Nur  der  'Modus'  ist  hier  neu.  Sie  kdnnen  verschiedene  Arten 
angeben,  wie  das  Objekt  auf  dem  Bildschirm  erscheinen  soil: 
PSET:  Die  Daten  werden  genauso  auf  den  Bildschirm  gebracht, 
wie  sie  ins  Feld  eingelesen  wurden.  Die  Grafik  an  der  Ausgabe- 
stelle  wird  uberschrieben. 

PRESET:  Das  Bild  wird  invertiert.  AND:  Nur  die  Bildpunkte, 
die  nach  einer  AND-Verknupfung  zwischen  dem  Bildausschnitt 
und  dem  Hintergrund  iibrigbleiben,  werden  dargestellt.  OR: 
Feldinhalt  und  Hintergrund  werden  durch  OR  verknupft;  der 
Ausschnitt  wird  vollstandig  in  den  Hintergrund  kopiert. 

XOR:  Diese  Verknupfung  ist  die  Standardeinstellung  des  PUT- 
Befehls.  Sie  bewirkt,  daB  das  Bild  in  den  Bildschirminhalt  uber- 
tragen  wird.  Dort,  wo  vorher  schon  etwas  war,  wird  das  Bild  in- 
vertiert. 

Kapitel:  4.1 


PUT  (Daten) 

Syntax:        PUT  [#]  Dateinummer  [.Satznummer] 

Der  PUT-Befehl  ist  bei  relativen  Dateien  dafur  zustSndig,  die 
Daten  aus  dem  Datensatzpuffer  auf  Diskette  zu  schreiben.  Erst 
dann  stehen  die  Daten  wirklich  in  der  Datei.  Sie  kflnnen  die 
Satznummer  angeben  oder  auch  nicht.  Wenn  Sie  sie  nicht  ange- 
ben, schreibt  AmigaBASIC  die  Daten  in  den  Datensatz,  der  eine 
Nummer  hdher  ist  als  der  aktuelle  Satz.  Wenn  Sie  die  Satznum- 
mer angeben,  muB  sie  zwischen  0  und  16777215  liegen.  Weiteres 
dazu  beim  GET-Befehl  (Daten- Version!). 

Kapitel:  5.1 


Anhang  B 799 


RANDOMIZE 
Syntax:      randomize  [x] 

RANDOMIZE  TIMER 

Wenn  Sie  Zufallszahlen  (RND)  verwenden,  haben  sie  bei  jedem 
Programmdurchlauf  denselben  Wert.  Das  ist  zwar  manchmal  ganz 
praktisch  (weil  sich  "zufailige"  Programmsituationen  nachvoll- 
ziehen  lassen),  aber  nicht  gerade  zuf&llig.  Kein  Wunder  also, 
wenn  Sie  in  Ihrem  Lottoprogramm  immer  gewinnen.  Abhilfe 
schafft  der  RANDOMIZE-Befehl.  Mit  ihm  erreichen  Sie,  daC 
verschiedene  Zufallszahlen  erzeugt  werden.  Wenn  Sie  hinter 
RANDOMIZE  eine  Zahl  zwischen  -32768  und  32767  angeben, 
wird  diese  als  Ausgangswert  fur  die  Zufallszahlenberechnung 
verwendet.  Gleiche  Zahlen  erzeugen  auch  gleiche  Zufallszahlen- 
Reihen.  Geben  Sie  keinen  Wert  an,  fragt  AmigaBASIC  mit  der 
Meldung 

Random  Number  Seed  (-32768  to  32767)? 

nach  einem  Ausgangswert.  Wenn  Sie  das  nicht  wollen,  verwen- 
den Sie  einfach  RANDOMIZE  TIMER.  AmigaBASIC  errechnet 
dann  aus  der  aktuellen  Zeit  eine  Zufallszahlenreihe.  So  entstehen 
wirklich  zufailige  und  bei  jedem  Programmlauf  andere  Zahlen. 


READ 

Syntax:        READ  Variablenname  [.Variablenname,...] 

Dieser  Befehl  liest  einen  Wert  aus  einer  DATA-Zeile  und  uber- 
gibt  diesen  Wert  der  angegebenen  Variablen.  Die  Variable  muB 
vom  Variablentyp  zum  gelesenen  Wert  passen  (Strings  zu  Strings 
und  Zahlen  zu  Zahlen).  Jeder  READ-Befehl  erhflht  einen  inter- 
nen  DATA-Zeiger.  Sind  alle  DATAs  gelesen,  erhalten  Sie  die 
Fehlermeldung  'Out  of  DATA'. 

Kapitel:  2.9 
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REM 

Syntax:      rem  [Text] 

Mit  REM  kdnnen  Sie  Kommentare  und  Bemerkungen  an  eine 
BASIC-Zeile  anhangen.  Oder  dafiir  auch  eine  ganze  Zeile  ver- 
wenden.  REM-Befehle  miissen  als  letzter  Befehl  in  einer  Zeile 
stehen.  Alles,  was  dahinter  kommt,  wird  von  AmigaBASIC 
uberlesen.  Sie  kflnnen  anstelle  von  REM  auch  ein  Hochkomma 
(')  verwenden. 

Kapitel:  4.6 

RESTORE 

Syntax:      restore  [Label] 

Wie  Sie  bei  READ  und  DATA  lesen  kflnnen,  erhdht  READ 
einen  Zeiger,  der  auf  das  nfcchste  zu  lesende  DATA-Element 
zeigt.  Mit  RESTORE  setzen  Sie  diesen  Zeiger  auf  eine  ange- 
gebene  Zeilennummer  oder  ein  Label  zuruck  (oder  schieben  ihn 
auch  im  Programm  nach  vorne).  Geben  Sie  hinter  RESTORE 
kein  Label  an,  wird  der  DATA-Zeiger  auf  den  Programmanfang 
gesetzt. 

Kapitel:  4.8 

RESUME 

Syntax:      resume  [o] 

RESUME  NEXT 
RESUME  Label 

Mit  RESUME  beenden  Sie  das  Unterprogramm,  das  sich  bei 
Error  Trapping  (siehe  ON  ERROR  GOSUB)  um  die  Fehler- 
behandlung  ktimmert.  Die  erste  Syntax- Variante  (RESUME  oder 
RESUME  0)  fuhrt  das  Hauptprogramm  mit  dem  Befehl  fort,  der 
den  Fehler  verursacht  hat.  Die  zweite  Variante  macht  mit  dem 
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nachsten  Befehl  nach  dem  Fehler-Erzeuger  weiter.  So  kflnnen 
fehlerhafte  Befehle  einfach  ignoriert  werden.  Die  dritte  Version 
erlaubt  wie  bei  RETURN  den  RUcksprung  zu  einem  beliebigen 
Label. 


RETURN 

siehe  GOSUB... RETURN 

RIGHTS 

Syntax:        Teilstring=RIGHT$(String,Liinge) 

Diese  Stringfunktion  liefert  einen  Teilstring  in  der  angegebenen 
Lange,  der  aus  dem  angegebenen  String  von  der  rechten  Seite 
entnommen  wird. 

RIGHT$(HAmiga  ist  toIl!N,5)  ergibt  "toll!" 
Kapitel:  1.16 

RND 

Syntax:      Wert=RND  [(x)] 

RND  liefert  eine  Zuf allszahl  zwischen  0  und  1 . 

Wenn  Sie  einen  Wert  in  Klammern  angeben,  kdnnen  Sie  damit 
die  Erzeugung  der  Zufallszahlen  steuern:  1  und  alle  positiven 
Werte  erzeugen  Zufallszahlen  aus  einer  festen  Folge.  Bei  jedem 
Programmdurchlauf  werden  dieselben  Zahlen  verwendet.  Wenn 
Sie  V  weglassen,  ist  ebenfalls  dieser  Modus  aktiv. 

0  bringt  immer  die  letzte  Zufallszahl.  Wenn  Sie  nur  mit  RND(O) 
arbeiten,  erhalten  Sie  stSndig  dieselbe  Zahl.  -1  und  alle  negati- 
ven  Werte  liefern  einen  neuen  Anfangswert  fur  die  Zufallszah- 
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lenerzeugung.  Gleiche  negative  Zahlen  ergeben  auch  die  gleiche 
Zufallszahlenfolge.  Lesen  Sie  deshalb  die  Erkl&rungen  zum 
RANDOMIZE-Befehl. 

Oft  brauchen  Sie  Zufallszahlen  in  einem  bestimmten  Bereich. 
Hier  die  Formel  dazu: 

Zufallszahl  =  Anfang  +  ((Ende-Anfang)  *  RND) 
Fur  ganze  Zufallszahlen  verwenden  Sie 

Zufallszahl  =  INT(  Anfang  +  ((Ende-Anfang+1)  *  RND)  ) 
Kapitel:  2.5 

RSET 

Syntax:        RSET  Obergabestring=String 

RSET  ist  neben  LSET  der  zweite  Befehl,  der  bei  relativer  Datei- 
verwaltung  Daten  in  den  Datensatzpuffer  schreibt.  Sie  geben 
eine  Ubergabevariable  an,  die  Sie  im  FIELD-Befehl  definiert 
haben,  und  weisen  ihr  einen  String  zu.  Dieser  String  wird  dann 
in  den  Puffer  iibertragen.  Das  R  bei  RSET  steht  fur  "Rechts- 
bundig."  Das  bedeutet:  Wenn  die  Daten  kiirzer  sind  als  das  Feld, 
das  im  Puffer  dafiir  reserviert  ist,  werden  die  Daten  rechtsbiin- 
dig  in  das  Datenfeld  iibertragen.  Das  heiBt,  die  Leerstellen  ste- 
hen  links,  am  Anfang  des  Felds. 

Das  ist  besonders  niitzlich  bei  Zahlenwerten,  die  in  Rechnungen 
oder  sonst  irgendwie  formatiert  ausgedruckt  werden  sollen.  Urn 
einen  Datensatzpuffer  einzurichten,  bendtigen  Sie  den  FIELD- 
Befehl.  Und  urn  die  Daten  vom  Puffer  auf  Diskette  zu  bringen, 
brauchen  Sie  PUT.  Ubrigens,  RSET  und  LSET  lassen  sich  auch 
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auBerhalb  der  relativen  Dateiverwaltung  einsetzen.  Sie  bringen 
Strings  linksbundig  oder  rechtsbundig  in  andere  Strings.  Probie- 
ren  Sie  mal: 

Form$=SPACE$(20) 
RSET  Form$=MAmfga'1 
WRITE  Form* 


RUN 

Syntax:      run  [Label] 

RUN  (Dateiname)  [,R] 

Der  RUN-Befehl  startet  das  aktuelle  BASIC-Programm.  Vorher 
wird  der  Bildschirm  geloscht,  das  LIST-Window  wird  in  den 
Hintergrund  gelegt,  und  alle  offenen  Dateien  werden  geschlos- 
sen.  Sie  kdnnen  RUN  sowohl  im  BASIC-Window  als  auch  im 
Programm  benutzen.  Wenn  Sie  hinter  RUN  ein  Label  angeben. 
startet  das  Programm  mit  dem  angegebenen  Programmteil.  Ge- 
ben  Sie  hinter  RUN  einen  Dateinamen  an,  wird  das  Programm 
geladen  und  gestartet.  Hangt  hinten  noch  ein  ,R  dran,  bleiben 
alle  offenen  Dateien  weiterhin  gedffnet.  So  kdnnen  Sie  ein  Pro- 
gramm nachladen,  das  mit  den  bisherigen  Dateien  weiterarbeitet. 

Kapitel:  1.4 


SADD 

Syntax:        Wert=SADD(String) 

Diese  Funktion  ist  besonders  fur  Maschinensprache-Program- 
mierer  interessant.  Sie  liefert  die  Adresse,  ab  der  der  angegebene 
String  im  Speicher  steht.  Wenn  Sie  neue  Strings  im  Programm 
verwenden,  miissen  Sie  die  Startadressen  neu  abfragen,  weil 
AmigaBASIC  die  Strings  after  im  Speicher  hin  und  herschiebt. 
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SAVE 

Syntax:        SAVE  [(Datemame)]  [,A]  [,B]  [,P] 

Mit  SAVE  speichern  Sie  ein  Programm  auf  Diskette,  Festplatte 
oder  der  RAM-Disk  ab.  Wenn  Sie  keinen  Dateinamen  angeben, 
bittet  Sie  AmigaBASIC  in  einem  Dialog-Window,  den  Namen 
fiir  das  Programm  einzugeben.  Wenn  Sie  hinter  dem  Dateinamen 
,A  verwenden,  wird  das  Programm  als  ASCII-Datei  abgespei- 
chert.  Sie  brauchen  diese  Dateiform,  wenn  Sie  Programme  mit 
MERGE  verbinden  wollen  oder  wenn  Sie  ein  AmigaBASIC-Pro- 
gramm  in  einer  Textverarbeitung  verSndern  wollen. 

Mit  ,B  wird  das  Programm  "binar"  gespeichert.  Das  ist  die  nor- 
male  Speicherungsform.  Sie  kfinnen  ,B  also  auch  weglassen.  Die 
Befehle  werden  in  Form  von  Token  abgespeichert.  Mit  ,P  wird 
das  Programm  in  einer  verschlusselten,  geschiitzten  ("protected") 
Form  abgespeichert.  Es  kann  geladen  und  gestartet  werden,  Sie 
k6nnen  es  aber  nicht  mehr  listen  oder  ver&ndern.  Heben  Sie  auf 
jeden  Fall  eine  unverschlusselte  Version  auf,  falls  sich  mal  An- 
derungen  ergeben  sollten! 

Kapitel:  1.8,  Zwischenspiel  3 


SAY 

Syntax:        SAY  Phonem-String  [fStimm-Datenfeld%] 

Der  SAY-Befehl  spricht  einen  String,  der  aus  Phonem-Codes 
besteht.  Urn  normalen  Text  in  Phonem-Codes  umzuwanden,  gibt 
es  die  BASIC-Funktion  TRANSLATES.  Sie  k6nnen  den  Text 
naturlich  auch  selbst  in  Phonem-Schreibweise  angeben.  Die  Re- 
geln  dafttr  sind  in  Anhang  H  des  Commodore-AmigaBASIC- 
Handbuchs  aufgefuhrt.  Hinter  dem  Phonem-String  kdnnen  Sie 
den  Namen  eines  Integerfelds  angeben,  das  mindestens  9  Ele- 
mente  beinhaltet.  Diese  Elemente  beeinflussen  die  Stimme,  die 
der  Amiga  zum  Sprechen  verwendet: 
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Feld%(0)  gibt  die  Frequenz  der  Sprache  an.  Dadurch  wird  die 
Stimmhflhe  eingestellt.  Mdglich  sind  Werte  zwischen  65  (tief) 
und  320  (hoch),  Grundeinstellung  (also  der  Wert,  der  verwendet 
wird,  wenn  Sie  kein  Datenfeld  angeben)  ist  110. 

Feld%(l)  gibt  an,  ob  betont  (0)  oder  computerhaft  monoton  (1) 
gesprochen  werden  soil.  Grundeinstellung  ist  0. 

Feld%(2)  legt  die  Sprechgeschwindigkeit  fest.  Diesen  Wert  geben 
Sie  in  Worten  pro  Minute  an.  Mflglich  sind  Werte  zwischen  40 
(langsam)  und  400  (schnell),  Grundeinstellung  ist  150. 

Feld%(3)  bestimmt,  ob  die  Sprache  mannlich  (0)  oder  weiblich 
(1)  klingen  soil. 

Feld%(4)  legt  die  Samplingfrequenz  fest.  Dieser  Wert  beeinfluBt 
akustisch  vor  allem  die  StimmhShe.  Mdgliche  Werte  liegen  zwi- 
schen 5000  (tief)  und  28000  (hoch),  Grundeinstellung  ist  22200. 
Extreme  Werte  sind  hier  schon  nicht  mehr  verstSndlich. 

Feld%(5)  bestimmt  die  Lautstarke.  Die  erlaubten  Werte  liegen 
zwischen  0  (nichts  zu  hSren)  und  65  (laut).  Grundeinstellung  ist 
65. 

Feld%(6)  legt  den  Kanal  fest,  auf  dem  die  Sprache  ausgegeben 
wird.  Bitte  vergleichen  Sie  Tabelle  10  im  Kapitel  6.3.  Grundein- 
stellung ist  10  (=  jedes  freie  Paar  aus  rechtem  und  linkem 
Kanal). 

Feld%(7)  legt  fest,  ob  AmigaBASIC  das  Programm  wShrend  der 
Sprachausgabe  anhalten  (0)  oder  die  Sprache  im  Hintergrund 
laufen  soil,  wahrend  das  Programm  weiterarbeitet  (1). 

Feld%(8)  wahlt  den  Modus,  falls  Sie  in  Feld%(7)  eine  1  angeben: 
Was  soil  passieren,  wenn  zwei  SAY-Befehle  aufeinander  folgen? 
0  bedeutet:  Erst  wird  der  alte  SAY-Befehl  beendet,  dann  beginnt 
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der  neue.  2  bedeutet:  Der  neue  Befehl  wird  sofort  ausgefuhrt, 
die  alte  Sprachausgabe  wird  abgebrochen.  1  bedeutet  (unabh£n- 
gig  yom  Wert  in  Feld%(7)):  Der  aktuelle  Sprachbefehl  wird  nicht 
ausgefuhrt.  Solange  dieser  Wert  auf  1  steht,  kann  kein  SAY 
stattfinden. 

Kapitel:  6.2 


SCREEN 

Syntax:        SCREEN  Nummer(Breite,H6he(BitebenenfAufld8ungs8tufe 

Mit  dem  SCREEN-Befehl  erzeugen  Sie  einen  neuen  Screen. 
Unter  AmigaBASIC  k6nnen  neben  dem  Workbench-Screen  noch 
vier  weitere  Screens  verwendet  werden  (Nummern  1  bis  4).  Die 
'Breite1  und  die  *H6he'  geben  die  AusmaBe  des  Screens  in  Pixels 
an,  nicht  aber  die  Aufl6sungsstufe.  Die  Werte  sollten  kleiner 
oder  gleich  der  gewahlten  AusflSsungstufe  sein. 

An  vierter  Stelle  geben  Sie  die  Anzahl  der  Bitebenen  an.  Dieser 
Wert  entscheidet  uber  die  Anzahl  der  m6glichen  Farben  auf  dem 
Screen.  Bei  einer  Bitebene  kdnnen  Sie  2  Farben  verwenden,  bei 
2  Bitebenen  4  Farben,  bei  3  Bitebenen  8  Farben,  bei  4  Bitebe- 
nen 16  Farben  und  bei  5  Ebenen  32  Farben.  Die  'Auflflsungs- 
stufe'  ist  eine  Zahl  zwischen  1  und  4. 

Standard-Auflosung: 

Stufe      Beschreibung  Speicherbedarf 

pro  Bitebene 


1  320*200  Punkte  8000  Bytes 

2  640*200  Punkte  16000  Bytes 

3  320*400  Punkte  (Interlace)  16000  Bytes 

4  640*400  Punkte  (Interlace)  32000  Bytes 
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PAL-Auflflsung: 

Stufe      Beschreibung  Speicherbedarf 

pro  Bitebene 


1  320*256  Punkte  10240  Bytes 

2  640*256  Punkte  20480  Bytes 

3  320*512  Punkte  (Interlace)  20480  Bytes 

4  640*512  Punkte  (Interlace)  40960  Bytes 

Kapitel:  2.3 


SCREEN  CLOSE 

Syntax:    SCREEN  CLOSE  Nummer 

Da  ein  Screen  ziemlich  viel  Speicherplatz  bendtigt,  sollten  Sie 
ihn  abschalten,  wenn  Sie  ihn  nicht  mehr  bendtigen.  Dazu  gibt  es 
den  Befehl  SCREEN  CLOSE.  Er  nimmt  den  Screen  vom  Schirm, 
egal  ob  sich  Windows  darauf  befinden  oder  nicht,  und  gibt  den 
benutzten  Speicherbereich  wieder  frei. 

SCROLL 

Syntax:        SCROLL  (xl,yl)-(x2,y2)(  x-Richtung,  y-Richtung 

Mit  diesem  Befehl  kdnnen  Sie  einen  Bildschirmausschnitt  in  eine 
beliebige  Richtung  verschieben.  (xl,yl)-(x2,y2)  legt  ein 
Rechteck  fest.  Der  Inhalt  dieses  Rechtecks  wird  verschoben.  *x- 
Richtung'  legt  Test,  urn  wieviele  Punkte  der  Inhalt  in  hori- 
zontaler  Richtung  verschoben  werden  soil.  Positive  Werte  ver- 
schieben den  Bildausschnitt  nach  rechts,  negative  nach  links,  *y- 
Richtung*  macht  dasselbe  fur  die  vertikale  Richtung.  Positive 
Werte  veschieben  den  Ausschnitt  nach  unten,  negative  Werte 
nach  oben.  Die  Bildteile,  die  aus  dem  Bereich  herausgeschoben 
werden,  werden  geldscht. 

Kapitel:  1.17 
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SON 

Syntax:        Wert=SGN(Wert) 

SGN  ist  die  Vorzeichenfunktion:  Sie  liefert: 

-1    fur  negative  Zahlen      (*Wert*<0) 

0  fur  die  Zahl  0  CWert'=0) 

1  fur  positive  Zahlen       0Wert'>0) 

Mit  dieser  Funktion  kflnnen  Sie  in  Programmen  das  Vorzeichen 
einer  Variablen  feststellen. 


SHARED 

Syntax:        SHARED  Variable  [Variable,  ...] 

Dieser  Befehl  gibt  innerhalb  eines  SUB-Programms  an,  welche 
Variablen  des  Hauptprogramms  auch  im  SUB-Programm  ver- 
wendet  werden  sollen.  Geben  Sie  hinter  SHARED  die  Vari- 
ablennamen  an.  Datenfelder  kennzeichnen  Sie  durch  ein  leeres 
Paar  Klammern: 

SUB  Test  STATIC 

SHARED  Testnummer,  TestfetdO,  Test$ 

Sie  kdnnen  mehrere  SHARED-Befehle  angeben,  aber  nur  inner- 
halb von  SUB-Programmen.  Vergleichen  Sie  auch  den  DIM-Be- 
fehl,  er  bietet  namlich  eine  eigene  SHARED-Option. 

Kapitel:  4.5 
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SIN 

Syntax:        Wert=SIN(Wert) 

Die  allseits  beliebte  und  geschatze  Sinusfunktion.  SIN  liefert  den 
Sinus  eines  Winkels  im  BogenmaB.  Wie  Sie  einen  GradmaBwinkel 
ins  BogenmaB  umrechnen  kflnnen,  finden  Sie  bei  COS. 

Kapitel:  2.5 

SLEEP 

Syntax: 

Dieser  Befehl  ist  im  Rahmen  von  Event  Trapping  interessant.  Er 
halt  das  Programm  an,  bis  eines  der  Ereignisse  eintritt,  die 
durch  Event  Trapping  uberpruft  werden  kflnnen.  Dazu  ist  es 
aber  nicht  ntftig,  daB  Event  Trapping  fur  das  betreffende  Ereig- 
nis  aktiviert  ist.  Folgende  Ereignisse  beenden  SLEEP: 

-  Drucken  einer  Taste  auf  der  Tastatur 

-  Klicken  mit  der  Iinken  Maustaste 

-  Auswah!  eines  Menupunkts  in  einem  Pulldown 

-  Kollision  von  Grafikobjekten 

-  ein  TIMER-Ablauf 


Praktisch  ist  SLEEP  zum  Beispiel  auch,  wenn  Sie  den  Anwender 
auffordern,  "irgendeine"  Taste  zu  drucken.  Im  Gegensatz  zu  IN- 
KEY$  erkennt  SLEEP  namlich  auch  Tasten  wie  <SHIFT>, 
<ALT>,  <CTRL>  oder  die  <Amiga>-Tasten. 
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SOUND 

Syntax:        SOUND  Frequent,  Dauer  [.Lautstarke]  [.Kanal] 

Dieser  Befehl  erzeugt  einen  Ton.  Sie  kdnnen  die  Frequenz  in 
Hertz  angeben,  mSglich  sind  20  Hertz  bis  15000  Hertz.  Ta- 
belle  12  in  Kapitel  7.2  zeigt  Ihnen,  welche  Frequenzen  welchen 
musikalischen  Noten  entsprechen.  Die  Dauer  des  Tons  ist  ein 
Wert  zwischen  0  und  77.  Wenn  Sie  einen  Ton  von  einer  Sekunde 
Dauer  spielen  wollen,  mussen  Sie  ungefahr  18  angeben.  Bitte 
vergleichen  Sie  Tabelle  13  im  Kapitel  7.2.  Optional  k6nnen  Sie 
eine  Lautstarke  zwischen  0  und  255  angeben.  Fehlt  dieser  Wert, 
verwendet  AmigaBASIC  die  goldene  Mitte:  127  Auch  eine 
Kanalzuordnung  des  Tons  ist  m6glich.  Hier  stehen  vier  Werte 
zur  Auswahl: 

0  und  3  -  linker  Kanal 

1  und  2  -  rechter  Kanal 

Voreinstellung  (auch  fur  BEEPs)  ist  Kanal  0. 
Kapitel:  7.2 

SOUND  RESUME 
SOUND  WAIT 

Syntax: 

Urn  mehrere  T6ne  gleichzeitig  oder  eine  Melodie  im  Hinter- 
grund  zu  spielen,  legen  Sie  die  T6ne  in  einer  Warteschlange  ab. 
SOUND  WAIT  bewirkt,  daB  alle  nachfolgenden  SOUND-Befehle 
nicht  sofort  ausgefuhrt  werden  sondern  gespeichert  bleiben. 
Denken  Sie  bei  mehrstimmiger  Musik  daran,  daB  auch  Kan&le, 
die  vorUbergehend  keinen  Ton  spielen,  besetzt  werden  miissen. 
Am  besten  tun  Sie  das  mit  einem  Ton  in  0-Lautstarke. 

SOUND  RESUME  startet  die  Wiedergabe  der  Ton-Schlange. 
Kapitel:  7.3 
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SPACES 

Syntax:        String=SPACE$(L8nge) 

Diese  Stringfunktion  erzeugt  einen  String  aus  lauter  Leerstellen 
in  der  angegebenen  LSnge.  'LSnge1  muB  zwischen  0  und  32767 
liegen.  Solche  Strings  sind  manchmal  zur  Formatierung  von 
Bildschirm-  und  Druckerausgaben  hilfreich.  Oder  auch  zum 
Lflschen  einzelner  Bildschirmzeilen. 

Kapitel:  5.2 

SPC 

Syntax:      print  spc(x); 

Dieser  Befehl  erzeugt  in  einem  PRINT-Befehl  die  angegebene 
Anzahl  (V)  an  Leerstellen.  V  muB  zwischen  0  und  255  liegen. 
SPC  ist  oft  beim  Aufbau  von  Bildschirmmasken  hilfreich. 

SQR 

Syntax:        Wert=SQR(Wert) 

SQR  errechnet  die  Quadratwurzel  (engl.:  SQuare  Root)  einer 
Zahl. 

SQR(4)  ist  2,  SQR(2)  ist  1.414214 

STATIC 

siehe  SUB.. .STATIC 
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STICK 

Syntax:      Wert=STiCK(x) 


Mit  dem  STICK-Befehl  kdnnen  Sie  Joysticks  abfragen,  die  am 
Amiga  angeschlossen  sind.  Der  Wert  V  in  Klammern  hinter  dem 
STICK-Befehl  gibt  an,  welche  Information  Sie  haben  wollen: 

Wert     Information: 


0  x-Bewegung  von  Joystick  1 

1  y-Bewegung  von  Joystick  1 

2  x-Bewegung  von  Joystick  2 

3  y-Bewegung  von  Joystick  2 


STICK(x)  liefert  1,  wenn  der  abgefragte  Joystick  in  der  ange- 
gebenen  Richtung  nach  oben  bzw.  nach  rechts  gedriickt  wird. 

STICK(x)  liefert  0,  wenn  am  abgefragten  Joystick  in  der  ange- 
gebenen  Richtung  keine  Bewegung  erfolgt. 

Und  STICK(x)  liefert  -1,  wenn  die  Bewegung  nach  unten  bzw. 
links  stattfindet.  Vorsicht  mit  Joystick  1!  Wenn  an  diesem  An- 
schluB  kein  Joystick,  sondern  die  Maus  Mngt,  blockiert  die 
Maus,  sobald  Sie  STICK(O)  oder  STICK(l)  verwenden! 

Kapitel:  3.5 


STOP 

Syntax: 

Dieser  Befehl  bricht  das  laufende  BASIC-Programm  ab.  Durch 
den  CONT- Befehl  kdnnen  Sie  das  Programm  fortsetzen.  STOP 
schlieBt  keine  offenen  Dateien.  Das  sollten  Sie  bei  der  Riickkehr 
in  den  Direktmodus  bedenken. 
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STRS 

Syntax:        String=STR$(Wert) 

Die  Funktion  STR$  wandelt  eine  Zahl  in  einen  String  urn.  Dabei 
werden  aber  keine  Bytes  oder  etwas  Ahnliches  erzeugt,  sondern 
einfach  die  Zahl  mit  alien  ihren  Ziffern  Stelle  fur  Stelle  in  einen 
String  gesteckt. 

STR$(4095)  ist  "4095". 
Kapitel:  3.4 

STRIG 

Syntax:        Wert=STRIG(x) 

Mit  STRIG  fragen  Sie  ab,  ob  der  Feuerknopf  an  einem  Joystick 
gedrflckt  wird.  Der  Wert  V  in  Klammern  legt  fest,  welche  In- 
formation Sie  haben  wollen: 

STRIG(O)  fragt  ab,  ob  der  Feuerknopf  von  Joystick  1  seit  dem 
letzten  STRIG(O)  gedruckt  wurde.  Wenn  ja,  ist  das  Ergebnis  -1, 
wenn  nein,  ist  das  Ergebnis  0. 

STRIG(l)  fragt  ab,  ob  der  Feuerknopf  von  Joystick  1  gerade 
gedruckt  wird.  -1  =  ja,  0  =  nein 

STRIG(2)  fragt  ab,  ob  der  Feuerknopf  von  Joystick  2  seit  dem 
letzten  STRIG(2)  gedruckt  wurde.  -1  -  ja,  0  -  nein 

STRIG(3)  fragt  ab,  ob  der  Feuerknopf  von  Joystick  2  gerade 
gedruckt  wird.  -1  =  ja,  0  =  nein 

Weiteres  bei  STICK. 

Kapitel:  3.5 


724  AmigaBASIC 


STRINGS 

Syntax:       String=STRING$(Lange,ASCII-Code) 
String=STRING$(Lange,String) 

STRINGS  erzeugt  einen  String  in  der  angegebenen  LBnge,  der 
aus  lauter  gleichen  Zeichen  besteht.  Sie  kdnnen  fur  das  Zeichen 
entweder  den  ASCII-Code  angeben, 

PRINT  STRING$<100,191) 

Oder  einen  String,  dessen  erstes  Zeichen  benutzt  wird: 

PRINT  STRING$(100,»A») 

Kapitel:  1.16 
SUB...STATIC 

Syntax:        SUB  Name  [(Variable,  ...)]  STATIC 

Mit  diesem  Befehl  beginnt  ein  SUB-Programm.  SUB-Programme 
sind  Unterprogramme,  die  unabhangig  vom  restlichen  Programm 
sind.  Sie  verwenden  eigene  Variablen,  kflnnen  aber  mit  dem 
SHARED-Befehl  auf  Variablen  des  Hauptprogramms  zugreifen. 
Jedes  SUB-Programm  hat  einen  Namen,  mit  dem  es  aufgerufen 
werden  kann.  Dazu  benutzen  Sie  den  CALL-Befehl,  der  aber  in 
eindeutigen  Fallen  auch  entfallen  kann.  Der  Name  darf  bis  zu  40 
Zeichen  lang  sein.  Sie  k6nnen  dem  Programm  Variablen  uberge- 
ben.  Dabei  mussen  Sie  darauf  achten,  daB  diese  vom  Variablen- 
typ  zu  den  Angaben  in  der  SUB...STATIC-Zeile  passen.  Daten- 
felder  kennzeichnen  Sie  wieder  durch  ein  Klammernpaar: 

SUB  Hallo  (Test,  FarbenO,  Alpha)  STATIC 

Ein  SUB-Programm  wird  mit  dem  Befehl  END  SUB  beendet. 
Die  Programmteile  zwischen  SUB  und  END  SUB   werden  nur 
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nach  Aufruf  ausgeftihrt.  Steht  ein  SUB-Programm  mitten  im 
Hauptprogramm,  springt  AmigaBASIC  dartiber  weg.  Der  Befehl 
EXIT  SUB  ermflglicht  Ihnen,  ein  SUB-Programm  schon  vor  dem 
END  SUB-Befehl  zu  verlassen. 

Kapitel:  4.5 


SWAP 

Syntax:        SWAP  Variablel,  Variable2 

Dieser  Befehl  dient  dazu,  zwei  Variablen  gegeneinander  auszu- 
tauschen.  Nach  der  Ausfuhrung  hat  'Variablel'  den  ehemaligen 
Wert  von  'Variable2'  und  umgekehrt.  Die  beiden  Variablen 
mussen  vom  Variablentyp  her  iibereinstimmen. 

SYSTEM 

Syntax: 

Dieser  Befehl  beendet  AmigaBASIC.  Der  Amiga  kehrt  auf  die 
Workbench  oder  ins  CLI  zuruck,  je  nachdem,  wie  Sie  Amiga- 
BASIC aufgerufen  haben.  Wenn  das  aktuelle  Programm  noch 
nicht  abgespeichert  wurde,  macht  Sie  AmigaBASIC  in  einem 
Dialog-Window  darauf  aufmerksam  und  bietet  Ihnen  die  M6g- 
lichkeit,  das  Programm  doch  noch  abzuspeichern. 

Kapitel:  1.9 

TAB 

Syntax:      print  tab(x); 

Auch  diesen  Befehl  benutzen  Sie,  urn  Druckausgaben  zu  forma- 
tieren:  AmigaBASIC  fullt  den  Raum  von  der  aktuellen  Druck- 
position  zur  Spalte  V,  die  hinter  TAB  in  Klammern  angegeben 
ist,  mit  Leerzeichen  auf.  Die  Druckausgabe  beginnt  also  in  der 
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Spalte  V.  Befindet  sich  die  aktuelle  Druckposition  hinter  Spalte 
V,  wird  in  der  n&chsten  Zeile  ab  Spalte  V  gedruckt.  TAB  k6n- 
nen  Sie  nur  mit  den  Befehlen  PRINT,  PRINT#  und  LPRINT 
verwenden. 


TAN 

Syntax:        Wert=TAN(Wert) 

Neben  SIN  und  COS  gibt  es  noch  eine  dritte  trigonometrische 
Funktion.  (Fur  Mathematiker:  Sie  wissen  schon.  Fur  Nicht-Ma- 
thematiker:  Tri-go-no-me-tri-sche  Funktionen  sind  ein  Teil  der 
Dinge,  mit  denen  Lehrer  ihre  Schtiler  zu  argern  pflegen.)  TAN 
liefert  den  Tangens  eines  Winkels  im  BogenmaB.  Wie  Sie  Grad- 
Angaben  ins  BogenmaB  umrechnen,  ist  bei  COS  erk&rt. 

TIMES 

Syntax:      string=TlME$ 

TIMES  liefert  die  Uhrzeit,  von  der  Ihr  Amiga  zur  Zeit  ausgeht. 
Diese  Uhrzeit  k6nnen  Sie  in  Preferences  einstellen,  sie  ist  nicht 
automatisch  richtig.  Sie  erhalten  einen  8  Zeichen  langen  String, 
der  so  aufgebaut  ist:  SS:MM:SS,  also  Stunden:Minuten:Sekunden. 

Kapitel:  1.17 


TIMER 

Syntax:       Wert=TIMER 

TIMER  mal  als  Funktion:  Sie  erhalten  die  Uhrzeit  in  Sekunden. 
Das  heiBt,  die  Anzahl  der  Sekunden,  die  seit  Mitternacht 
(00:00:00)  vergangen  sind.  Dabei  geht  der  Amiga  natOrlich  wie- 
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der  von  seiner  inneren  Uhr  aus,  die  nicht  unbedingt  stimmen 
muB  und  die  Sie  mit  Preferences  stellen  kflnnen  bzw.  die  iiber 
eine  eingebaute  Echtzeituhr  beim  Starten  des  Amiga  gestellt 
wurde.. 

Kapitel:  1.17 


TIMER  ON 
TIMER  OFF 
TIMER  STOP 

Syntax: 

Diese  Befehle  steuern  das  Timer-Event-Trapping.  TIMER  ON 
aktiviert  es,  TIMER  OFF  schaltet  es  ab.  Mit  TIMER  STOP  wer- 
den  alle  Timer-Events  bis  zum  nachsten  TIMER  ON  unter- 
druckt.  Mit  dem  Befehl  ON  TIMER  GOSUB  geben  Sie  an, 
welches  Unterprogramm  die  Timer-Unterbrechungen  bearbeitet. 


TRANSLATES 

Syntax:        Phonem-String=TRANSLATE$(String) 

Diese  Stringfunktion  iibersetzt  einen  String  in  Phonem-Code. 
Das  dient  als  Vorbereitung  fur  den  SAY-Befehl.  Dabei  geht 
TRANSLATES  in  der  gegenwSrtigen  Version  von  AmigaBASIC 
von  amerikanischen  Aussprache-  und  Betonungsreglen  aus.  Wenn 
Sie  deutschen  Text  sprechen  wollen,  mussen  Sie  entweder 
TRANSLATES  austricksen  ("Fishers  Frits  fisht  frisha  FishaH  - 
Sie  erinnern  sich.)  oder  aus  Phonemen  selbst  einen  Phonem- 
String  zusammensetzen.  Lesen  Sie  auch  die  Erkiarungen  zum 
SAY-Befehl. 

Kapitel:  6.2 
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TRON 
TROFF 

Syntax: 

Diese  beiden  Befehle  steuern  die  Trace-Funktion.  TRON  schal- 
tet  Trace  an,  TROFF  schaltet  es  aus.  Bei  aktivierter  Trace- 
Funktion  wird  der  aktuelle  Befehl  im  LIST-Window  von  einem 
orangen  Kastchen  umrahmt.  Das  ist  beim  Austesten  von  Pro- 
grammen  sehr  hilfreich. 

Kapitel:  1.14 


UBOUND 
siehe  LBOUND 

UCASES 

Syntax:        String=UCASE$  (String) 

UCASE$  wandelt  einen  angegebenen  String  in  GroBbuchstaben 
um. 

UCASESfAmiga")  ist  "AMIGA" 

Besonders  beim  alphabetischen  Sortieren  von  Texten  und  beim 
Abfragen  von  Benutzereingaben  ist  diese  Funktion  hilfreich. 

Kapitel:  1.16 
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VAL 

Syntax:        Wert=VAL(String) 

VAL  ist  die  Gegenfunktion  zu  STR$:  Ein  String,  der  eine  aus- 
geschriebene  Zahl  beinhaltet,  wird  in  einen  Wert  umgewandelt. 
Dabei  werden  so  lange  die  Zeichen  des  Strings  benutzt  und  um- 
gerechnet,  bis  der  erste  Buchstabe  auftaucht: 

VALC,1234HalloM)  ergibt  1234 
VAL(M1234Hallo4567H)  ergibt  auch  1234. 
VAL(rtHallol234H)  ergibt  0. 

Kapitel:  1.7 
VARPTR 

Syntax:        Wert=VARPTR(Variable) 

Ahnlich  wie  SADD  bei  Strings  liefert  VARPTR  die  Startadresse, 
ab  der  eine  angegebene  Variable  im  Speicher  steht.  VARPTR 
brauchen  Sie  besonders  hftufig,  wenn  Sie  Maschinensprache- 
Unterprogramme  von  AmigaBASIC  aus  benutzen  wollen.  Lesen 
Sie  dazu  auch  den  CALL-Befehl. 

WAVE 

Syntax:        WAVE  Kanalnummer,  Integerfeld^ 
WAVE  Kanalnummer,  SIN 

Mit  WAVE  kdnnen  Sie  die  Wellenform  verindern,  die  vom 
SOUND-Befehl  verwendet  wird.  Entweder  Sie  geben  SIN  an, 
dann  wird  eine  Sinusschwingung  erzeugt.  Das  ist  auch  die 
Grundeinstellung,  wenn  Sie  WAVE  uberhaupt  nicht  benutzen. 
Oder  Sie  geben  ein  Integerfeld  an,  das  mindestens  256  Elemente 
beinhaltet.  In  diesem  Integerfeld  ist  der  Verlauf  einer  beliebigen 
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Wellenform  gespeichert.  Die  Werte  liegen  zwischen  -128  und 
+127  und  geben  die  Amplitude  der  Welle  zum  Zeitpunkt  des 
Samplings  an.  Falls  Sie  jetzt  nur  noch  Bahnhof  verstehen,  lesen 
Sie  bitte  Kapitel  7.4. 

Die  angegebene  Wellenform  wird  dann  einem  oder  mehreren  der 
vier  TonkanSle  (0  und  3  -  links,  1  und  2  -  rechts)  zugewiesen. 
Nach  dieser  Zuweisung  sollten  Sie  das  Feld  mit  ERASE  ldschen, 
um  Speicherplatz  zu  sparen. 

Kapitel:  7.5 


WHILE...WEND 

Syntax:       WHILE  (Bedin&ung) 
[(Befehle)] 
WEND 

WHILE...WEND  fuhrt  eine  Schleife  aus,  solange  eine  angegebene 
Bedingung  zutrifft.  Wenn  die  Bedingung  nicht  mehr  zutrifft, 
macht  das  Programm  hinter  WEND  weiter.  Ein  typisches  Bei- 
spiel  ist  das  Warten  auf  einen  Tastendruck: 

WHILE   INKEY$=""   :  WEND 

Sie  kdnnen  WHILE...WEND-Schleifen  auch  beliebig  ineinander 
verschachteln. 

Kapitel:  2.8 
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WIDTH 

Syntax:        WIDTH  [Breite]  [pTabulatorabstand] 

WIDTH  [LPRINT]  [.Breite]  [, Tabu  latorabst  and] 
WIDTH  fDateinummer  [,Breifce]  [.Tabulatorabstand] 
WIDTH  Geratebewsichnung  [.Breite]  [/Tabulatorabstand] 

Sie  sehen,  hinter  WIDTH  steckt  mehr,  als  man  zunachst  vermu- 
tet.  Es  gibt  vier  verschiedene  Syntax-Versionen,  die  teilweise 
auch  mit  Datenverwaltung  zu  tun  haben. 

WIDTH  dient  grundsfctzlich  dazu,  die  Zeilenbreite  fur  eine  Aus- 
gabe  festzulegen.  Da  der  Amiga  aus  dem  rechten  Bildschirmrand 
hinausschreibt  und  keinen  automatischen  Zeilenvorschub  er- 
zeugt,  mussen  Sie  in  Ihren  BASIC-Programmen  die  Bild- 
schirmbreite  festlegen.  Das  geht  mit  der  ersten  angegebenen 
Syntax: 

Bei  60  Zeichen  pro  Zeile  verwenden  Sie  WIDTH  61. 
Bei  80  Zeichen  pro  Zeile  muB  es  WIDTH  76  heiBen. 

Der  zweite  Wert  hinter  WIDTH  gibt  die  Abstande  zwischen  zwei 
Tabulatorpositionen  an. 

Die  beiden  Werte  fur  Zeilenbreite  und  TabulatorabstSnde  kon- 
nen  Sie  auch  fur  den  Drucker  angeben.  Und  zwar  entweder  mit 
der  Option  LPRINT  hinter  WIDTH,  oder  mit  der  dritten  Syn- 
tax-Version: Offnen  Sie  einfach  eine  Druckerdatei  und  geben 
Sie  die  Dateinummer  an.  Die  mit  WIDTH  festgelegten  Werte  be- 
ziehen  sich  aber  nur  auf  die  angegebene  Datei.  Druckausgaben 
mit  LPRINT  sind  nicht  betroffen. 

Nach  der  vierten  Syntax  kflnnen  Sie  die  Werte  auch  direkt  fur 
ein  Gerat  angeben  (SCRN,  LPT1,  COM1).  Die  Zeilenbreite  und 
Tabulatorabstande  werden  dann  nach  dem  nfcchsten  OPEN  einer 
Datei  zu  dem  angegebenen  GerSt  verwendet.  1st  bereits  eine 
Datei  geflffnet,  ist  sie  noch  nicht  betroffen.  Voreinstellung  fur 
den  Drucker  sind  80  Zeichen  pro  Zeile. 
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WINDOW 

Syntax:        WINDOW  Windownummer  [,Titel]  [,(xl(yl)-(x2fy2)]  [.Windowtyp] 
[.Screen] 

Mit  diesem  Befehl  kfinnen  Sie  von  AmigaBASIC  aus  neue  Win- 
dows erzeugen  und  benutzen.  Jedes  Window  hat  eine  Nummer. 
Sie  erm6glicht  Ihnen,  das  Window  anzusprechen  oder  auszuwah- 
len.  Das  BASIC- Window  hat  die  Nummer  1,  die  vom  Benutzer 
erzeugten  Windows  haben  die  Nummern  2  und  hdher.  Bei  der 
Erzeugung  eines  Windows  kfinnen  Sie  einen  Titel  und  die  GrdBe 
des  Windows  angeben.  Sie  legen  dazu  den  linken  oberen  und  den 
rechten  unteren  Eckpunkt  als  Bildschirmkoordinaten  (bezogen 
auf  den  verwendeten  Screen)  fest.  Wenn  Sie  keine  GrflBenangabe 
machen,  nimmt  AmigaBASIC  die  voile  GrdBe  des  gewahlten 
Screens  an.  'Windowtyp*  ist  eine  Summe  aus  Einzelwerten,  die 
bestimmte  Eigenschaften  und  Mdglichkeiten  des  Windows  be- 
einflussen: 

1  Sie  k&nnen  das  Window  mit  dem  GrSBensymbol  ver- 
kleinern  oder  vergr6Bern. 

2  Sie  kdnnen  das  Window  mit  der  Maus  an  der  Bewe- 
gungsleiste  festhalten  und  bewegen. 

4  Das  Window  besitzt  zwei  Hintergrund-/Vorder- 
grund-Symbole,  mit  denen  Sie  es  nach  hinten  oder 
nach  vorne  klicken  konnen. 

8  Das  Window  besitzt  ein  SchlieBsymbol,  mit  dem  es 
ausgeklickt  werde  kann. 

16  Der  Windowinhalt  ist  bei  Bewegungen  oder  Uberla- 
gerungen  durch  andere  Windows  gespeichert  und 
wird  wieder  aufgebaut.  Ist  dieser  Wert  nicht  gewahlt, 
verliert  das  Window  bei  Bewegungen  oder  Uberla- 
gerungen  seinen  Inhalt.  Die  letzte  Option  muB  in  je- 
dem  Fall  benutzt  werden,  wenn  Sie  im  Window 
PAINT-Befehle  verwenden  wollen. 
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Optional  ktinnen  Sie  noch  den  Screen  angeben,  auf  dem  das 
Window  erscheinen  soil.  Wenn  Sie  alle  Angaben  weglassen  und 
den  WINDOW-Befehl  nur  folgendermaBen  verwenden, 

WINDOW  Windownummer 

wird  das  angegebene  Window  in  den  Vordergrund  geholt  und 
zum  Ausgabewindow  gemacht. 

Kapitel:  2.4 


WINDOW 

Syntax:      Wert=wiNDOW(x) 

WINDOW  gibt  es  auch  als  BASIC-Funktion.  Sie  kGnnen  damit 
Daten  uber  das  aktuelle  Ausgabewindow  erfahren.  V  darf  zwi- 
schen  0  und  8  liegen  und  gibt  an,  welche  Information  Sie  wiin- 
schen. 

WINDOW(O)  liefert  die  Nummer  des  aktivierten  Windows.  Das 
ist  nicht  immer  gleichzeitig  das  Ausgabewindow,  sondern  das 
Window,  in  das  der  Anwender  mit  der  Maus  zuletzt  geklickt  hat. 
(Sie  erkennen  dieses  Window  daran,  daB  sein  Titel  nicht  in  Gei- 
sterschrift  gedruckt  ist.) 

WINDOW(l)  liefert  die  Nummer  des  Ausgabewindows,  also  des 
Windows,  in  das  AmigaBASIC  alle  Bildschirmausgaben  schickt. 

WINDOW(2)  sagt  Ihnen  die  Breite  des  aktuellen  Ausgabe- 
windows in  Pixels. 

WINDOW(3)  sagt  Ihnen  die  Hohe  des  aktuellen  Ausgabewindows 
in  Pixels. 

WINDOW(4)  teilt  Ihnen  in  Pixels  die  x-Koordinate  mit,  an  der 
im  aktuellen  Ausgabewindow  das  nSchste  Zeichen  erscheinen 
wird.  Sie  erfahren  also,  wo  zur  Zeit  der  Ausgabecursor  steht. 
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WINDOW(5)  verrSt  die  y-Koordinate  der  nachsten  Bildschirm- 
ausgabe. 

WINDOW(6)  sagt  Ihnen,  wieviele  Farben  im  aktuellen  Ausgabe- 
window  erlaubt  sind.  Sie  erhalten  die  hdchste  zuiassige  Farb- 

nummer. 

WINDOW(7)  gibt  die  Adresse  an,  ab  der  Intuition  die  Daten  des 
aktuellen  Ausgabewindows  speichert.  Dieser  Datenbereich  ist  die 
sogenannte  INTUITION-WINDOW-Struktur. 

WINDOW(8)  ergibt  ebenfalls  die  Adresse  eines  Intuition-Daten- 
bereichs,  namlich  der  sogenannten  RASTPORT-Struktur.  Und 
zwar  der  RASTPORT-Struktur  ftir  das  aktuelle  Ausgabewindow. 
Die  letzten  beiden  Werte  nutzen  Ihnen  allerdings  nur,  wenn  Sie 
genaue  Kenntnisse  uber  das  Amiga-Betriebssystem  haben. 

Kapitel:  2.4,  2.9,  4.3 


WINDOW  CLOSE 

Syntax:        WINDOW  CLOSE  Windownummer 

Dieser  Befehl  nimmt  das  angegebene  Window  vom  Bildschirm. 
Es  wird  dabei  aber  nicht  geldscht!  Sie  kdnnen  weiterhin  Aus- 
gaben  in  das  Window  schicken,  obwohl  es  gar  nicht  mehr  zu  se- 
hen  ist. 

Kapitel:  2.4 
WINDOW  OUTPUT 

Syntax:  WINDOW  OUTPUT  Windownummer 

Das  angegebene  Fenster  wird  zum  aktuellen  Ausgabefenster  ge- 
macht,  ohne  daB  es  dabei  in  den  Vordergrund  geholt  wird.  Das 
ist  der  einzige  Unterschied  zu  der  bekannten  Variante 
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WINDOW  Windownummer. 

So  kdnnen  Sie  auch  Ausgaben  in  teilweise  verdeckte  Oder  nicht 
sichtbare  Windows  schicken. 

Kapitel:  2.4 


WRITE 

Syntax:        WRITE  [Variable  oder  Wert]  [Trenmeichen]  [Variable  oder  Wert]... 

WRITE  gibt  wie  PRINT  ab  der  aktuellen  Druckposition  Zeichen 
auf  dem  Bildschirm  aus.  Als  Trennzeichen  sind  nur  Komma  (,) 
oder  Strichpunkt  (;)  erlaubt.  Die  Unterschiede  zu  PRINT: 
WRITE  gibt  zwischen  den  Einzelwerten  grundsatzlich  Kommas 
aus,  und  Strings  werden  automatisch  von  Anfuhrungszeichen 
umgeben.  Deshalb  ist  WRITE  besonders  geeignet  zur  Ausgabe 
von  Werten  in  Dateien. 

WRITE* 

Syntax:         WRITE#  Dateinummer,  (Variable  oder  Wert]  [Trennteichen] 
[Variable  oder  Wert...] 

Funktioniert  wie  WRITE,  schreibt  aber  seine  Ausgaben  in  eine 
Datei.  Dieser  Befehl  ist  besonders  praktisch,  urn  Strings  in 
sequentielle  Dateien  zu  schreiben,  da  sie  automatisch  in  Anfuh- 
rungszeichen eingebettet  werden.  Beim  Lesen  erhalten  Sie  so 
immer  den  String  in  voller  Lange,  auch  wenn  er  Trennzeichen 
beinhaltet.  Nur  Anftihrungszeichen  durfen  im  String  natiirlich 
nicht  vorkommen! 

Kapitel:  3.4 
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XOR 

Syntax:       Wert  =  Wertl  XOR  Wert2 

Die  XOR-Verknupfung  verknupft  die  einzelnen  Bits  von  'Wertl' 
und  'Wert2'  folgendermaBen: 

0  XOR  0-0 

0  XOR  1  =  1 
1XORO=1 

1  XOR 1=0 

Kapitel:  Zwischenspiel  4 
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Anhang  C:     Die  Programme  aus  der 

"BASICDemos"-Schublade 

Zusammen  mit  AmigaBASIC  liefert  Commodore  auf  der 
"ExtrasD"-Diskette  freundlicherweise  einige  Beispielprogramme. 
Sie  befinden  sich  in  der  Schublade  "BASICDemos".  Das  Pro- 
gramm  "Bitte-lesenH  gibt  Hinweise  dariiber,  was  die  Programme 
tun  und  wie  sie  funktionieren.  Aber  sicher  mdchten  Sie  nicht 
immer  erst  ein  Programm  laden,  urn  die  anderen  zu  benutzen. 
Deshalb  gibt  es  diesen  Anhang,  in  dem  wir  Ihnen  die  einzelnen 
Programme  kurz  vorstellen. 

Bitte-lesen 

Wie  schon  erw&hnt,  ist  das  eine  Art  Anleitung  fur  die  anderen 
Programme.  Das  Programm  besteht  nur  aus  Kommentarzeilen. 
Alle  beginnen  mit  einem  Hochkomma  (').  Im  LIST-Window 
kflnnen  Sie  die  Texte  lesen.  Das  Programm  ist  fur  die  Schrift- 
Einstellung  80  Zeichen  pro  Zeile  gedacht,  nur  so  kflnnen  Sie  den 
kompletten  Text  im  LIST-Window  problemlos  lesen.  Wenn  Sie 
wollen,  kflnnen  Sie  das  Programm  auf  einem  Drucker  aus- 
drucken,  dann  haben  Sie  auch  diese  Informationen  schriftlich. 

Music 

In  diesem  Programm  macht  AmigaBASIC  Musik.  Das  Ergebnis 
ist  wirklich  toll:  Die  Leute,  die  das  Programm  geschrieben  ha- 
ben, haben  sich  viel  Muhe  gegeben,  und  eine  dreistimmige  Me- 
lodie  in  DATA-Zeilen  abgelegt.  Urn  das  Ganze  grafisch  zu  un- 
termalen,  entsteht  auch  noch  eine  Liniengrafik. 

Der  Programmteil  'PlaySong:'  liest  die  DATA-Werte  aus  und 
errechnet  Frequenzen  daraus.  In  den  DATA-Zeilen  stehen  die 
Noten  als  Buchstaben  (c,  d,  e,  f,  g...),  auBerdem  Informationen 
uber  die  L&nge  einer  Note,  einen  Oktavenwechsel  und  Pausen. 


738 AmigaBASIC 


Fur  die  Wellenform  wird  ein  besonderer  Trick  verwendet:  An- 
statt  die  Werte  fur  die  gewOnschte  Sinusschwingung  direkt  aus- 
rechnen  zu  lassen,  wurden  die  berechneten  Werte  in  DATA- 
Zeilen  abgelegt,  weil  Einlesen  schneller  geht  als  Ausrechnen.  Sie 
wissen  ja:  AmigaBASIC  und  ein  schlechter  Mathe-Schiiler  haben 
viel  gemeinsam.  Die  Formel,  nach  der  die  Werte  entstanden, 
steht  vor  den  DATAs  im  Listing. 

Das  Zeichnen  der  Grafik  wird  durch  Event  Trapping  gelOst:  Alle 
zwei  Sekunden  lauft  der  Timer  ab,  und  ON  TIMER  ruft  das 
Unterprogramm  TimeSlice:*  auf.  Die  GrflBe  der  Grafik  paBt 
sich  automatisch  der  aktuellen  WindowgrdBe  an. 


Library 

Hier  wird  vorgefuhrt,  wie  man  mit  LIBRARY-Funktionen  zum 
Beispiel  verschiedene  Schriftarten  erzeugen  kann.  Das  funktio- 
niert  jedoch  nur  mit  den  beiden  Schriften  "Topaz  60H  und  "To- 
paz 80",  da  nur  diese  beiden  Schriftarten  im  ROM-Kernel  ste- 
hen.  Alle  anderen  Schriften  finden  Sie  ja  im  Verzeichnis  "Fonts:" 
auf  der  Workbench-Diskette.  Fur  das  Programm  werden  die  bei- 
den Libraries  "graphics.bmap"  und  "dos.bmap"  benutzt.  Wie  man 
das  macht,  lesen  Sie  bitte  bei  den  Befehlen  DECLARE  FUNC- 
TION...LIBRARY  und  LIBRARY  im  Anhang  B  nach. 

Das  SUB-Programm  'DosLibDemo'  zeigt,  wie  man  AmigaDOS- 
Funktionen  von  AmigaBASIC  aus  aufrufen  kann.  Um  diesen 
Teil  benutzen  zu  kflnnen,  muB  AmigaBASIC  aber  vom  CLI  ge- 
startet  worden  sein,  nicht  von  der  Workbench. 


lib! 

Dieses  Programm  basiert  auf  dem  "Library"-Programm.  Es 
wurde  jedoch  so  verfcndert,  daB  auch  beliebige  Schriften  von 
Diskette  geladen  werden  kSnnen.  (Bei  "Library"  geht  es  ja  nur 
mit  den  beiden  ROM-ZeichensStzen...) 
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BitPlanes 
ScreenPrint 

Durch  Library- Programmierung  wird  vieles  mdglich,  was  nor- 
malerweise  in  AmigaBASIC  nicht  geht.  Diese  beiden  Programme 
sind  ein  gutes  Beispiel  dafur.  HBitPlanesM  durchsucht  die  Listen, 
die  wir  im  Kapitel  4.3  kennengelernt  haben.  (Sogenannte  C- 
Strukturen).  Dadurch  wird  es  dann  mdglich,  die  Startadressen 
von  Screens  und  Windows,  oder  auch  die  aktuelle  Farbbelegung 
auszulesen. 

"ScreenPrint"  ist  eine  Hardcopy-Routine,  die  sehr  aufwendig  und 
unter  Library-Einsatz  in  AmigaBASIC  realisiert  wurde.  Wer  sich 
wirklich  mal  ausfuhrlich  in  die  Verwendung  von  Libaries 
hineingraben  m6chte,  ist  mit  diesem  Programm  sicher  gut  bera- 
ten.  Das  Programm  "BitPlanes"  kflnnen  Sie  durch  einen  Maus- 
klick  beenden,  "ScreenPrint"  stoppt,  sobald  Sie  die  <Q>-Taste 
driicken. 


Screen 

Auf  einem  320  *  200-Punkte-Screen  mit  32  Farben  (5  Bitebe- 
nen)  werden  mit  AREA  farbige  Vierecke  gezeichnet.  Die  Lage 
der  Eckpunkte  berechnet  das  Programm  durch  SIN-  und  COS- 
Formeln.  Durch  PATTERN  kommen  auch  noch  einige  einfache 
Fullmuster  ins  Spiel.  Wenn  Sie  das  Window  vergrSBern  oder  ver- 
kleinern,  verSndert  sich  die  GrflBe  der  Vierecke  entspechend. 
Die  Farben  werden  auf  Zufallsbasis  festgelegt. 


Demo 

Dieses  Programm  erzeugt  vier  Windows  und  zeigt  ein  biBchen 
Multitasking  in  BASIC:  Im  ersten  Window  springen  die  beiden 
BSlle,  im  zweiten  Window  bewegen  sich  Linien,  Shnlich  wie  im 
"Music"-Programm.  Im  dritten  Window  erscheinen  die  Vierecke, 
die  wir  aus  "Screen"  kennen,  und  im  vierten  Window  werden 
verschieden  groBe  Kreise  farbig  ausgemalt.  Das  erste  Window 
k6nnen  Sie  vergroBern.  Sobald  die  Balle  gemerkt  haben,  daB  das 
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Window  gr5Ber  wurde,  nutzen  sie  auch  den  neuen  Platz.  Die  an- 
deren  drei  Windows  konnen  durch  Ausklicken  abgeschaltet  wer- 
den, dann  werden  die  anderen  entsprechend  schneller.  Das  Win- 
dow mit  den  B&llen  (es  trSgt  den  Namen  "Animation")  entpuppt 
sich  als  verkleinertes  BASIC-Window.  Die  SUB-Programme 
'NextLine\  'NextPoly'  und  'NextCircle'  werden  innerhalb  einer 
WHILE.. .WEND-Schleife  nacheinander  aufgerufen.  Sie  sorgen 
fur  die  Aktionen  in  den  Windows  2  bis  4,  w&hrend  die  Object- 
Animation  in  Window  1  durch  Event  Trapping  gesteuert  ist.  Die 
Kollision  eines  Balls  mit  dem  anderen  oder  dem  Rahmen  ist 
diesmal  das  auslflsende  Ereignis.  Das  Aussehen  der  Baile  liest 
"Demo"  ubrigens  aus  der  Datei  "ball". 


CLogo 

In  diesem  Programm  riihrt  Commodore  krSftig  die  Werbetrom- 
mel  fiir  das  eigene  Firmenzeichen.  Auf  Zufallsbasis  werden  mit 
Grafik-Befehlen  verschieden  groBe  Versionen  des  Commodore-C 
gezeichnet. 


Kaleidoskop 

Dieses  Programm  zeigt  einige  tolle  Farbgrafikeffekte.  Es  ist  den 
Kaleidoskop-Programmen  nachempfunden,  die  es  mittlerweile 
schon  von  einigen  Anbietern  gibt.  Auf  Zufallsbasis  werden 
FlSchengrafiken  erzeugt.  Die  Anzahl  der  verwendeten  Bit-Ebe- 
nen  kann  am  Anfang  des  Programms  zwischen  3  und  5  gewahlt 
werden.  Wenn  Sie  das  Programm  beenden  wollen,  drucken  Sie 
einfach  die  <Q>-Taste.. 


Picture /Picture! 

Das  sind  zwei  Kopien  desselben  Programms.  Im  BASIC-Hand- 
buch  von  Commodore  wird  dieses  Programm  verwendet,  urn 
eine  erste  Bekanntschaft  mit  AmigaBASIC  zu  schlieBen.  Dabei 
setzt  Commodore  gleich  Maussteuerung  und  Grafik-GET  und  - 
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PUT  ein:  Mit  der  Maus  kdnnen  Sie  die  CIRCLE- Graf ik  fiber 
den  Bildschirm  steuern.  Da  Sie  das  Programm  in  einem  Kapitel 
des  Handbuchs  verftndern  sollen,  gibt  es  zwei  Versionen  auf 
Diskette. 


ObjEdit 

Den  kennen  Sie  schon:  Es  ist  der  ObjectEditor,  mit  dem  Sie  die 
Grafikobjekte  fur  Object-Animation  erzeugen  kflnnen.  Wie  Sie 
dieses  Programm  bedienen,  steht  ausfuhrlich  in  Kapitel  1. 11. 

Nur  ein  Hinweis:  Wenn  Sie  512K  RAM  besitzen  und  Sie  das 
Flimmern  bei  Objects  nicht  start,  kftnnen  Sie  im  Listing  des 
Object-Editors  die  Anzahl  der  erlaubten  Farben  erhflhen:  Zu 
Beginn  steht  hinter  Hochkommas  der  Aufbau  einer  Object-Da- 
tei,  dann  kommt  ein  DEF  FN  und  ein  DIM-Befehl.  Im  dann 
folgenden  Programmteil  sehen  Sie  am  Ende  vier  Zeilen,  die  mit 
einem  Hochkomma  (')  geschtitzt  sind.  Wenn  Sie  die  Hochkommas 
entfernen,  kflnnen  Sie  in  der  Variablen  'Depth'  die  Anzahl  der 
Bitebenen  angeben.  Zur  Auswahl  stehen  3  und  4,  da  das  Pro- 
gramm nur  auf  einem  640  *  200-Punkte-Screen  arbeitet.  Aber 
16  Farben  sind  ja  auch  schon  eine  ganze  Menge.  Bedenken  Sie, 
daB  in  der  Object-Datei  keine  Farben  abgespeichert  werden.  Sie 
mussen  fur  die  richtigen  Farben  also  im  einlesenden  Programm 
sorgen. 

Und  denken  Sie  daran,  daB  jede  zusatzliche  Bitebene  den  Flim- 
mereffekt  verstSrkt,  der  in  der  aktuellen  Version  von  Amiga- 
BASIC  bei  Bob-Animationen  auftritt.  Urn  das  MObjEdit"-Pro- 
gramm  genau  zu  verstehen,  braucht  man  schon  einige  Erfahrun- 
gen  in  AmigaBASIC.  Wenn  Sie  mal  Zeit  und  Lust  haben,  sollten 
Sie  sich  den  Aufbau  des  ObjectEditors  genauer  anschauen.  Das 
Programm  ist  wie  unser  Malprogramm  vollstandig  mit  Event 
Trapping  gel6st. 
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Kommunik 

Dieses  Programm  zeigt,  wie  man  mit  der  seriellen  Schnittstelle 
umgeht.  Wenn  dort  eine  Datenleitung  mit  9600  Baud  Ubertra- 
gungsrate  angeschlossen  ist,  kdnnen  Sie  Zeichen  senden  und 
empfangen.  Ohne  so  einen  AnschluB  bietet  das  Programm  natur- 
lich  nicht  viel  Interessantes. 


ConvertFd 

Das  ist  ein  Hilfsprogramm  fur  Leute,  die  viel  mit  LIBRARY- 
Routinen  arbeiten:  Die  LIBRARY-Dateien  mussen  ffcr  die  Be- 
nutzung  in  AmigaBASIC  in  einem  speziellen  Format  auf  Dis- 
kette stehen,  dem  sogenannten  .BMAP-Format.  Vier  Libraries 
dieser  Art,  namlich  "exec.bmap",  "diskfont.bmap",  "dos.bmap" 
und  "graphics.bmap"  gibt  es  ja  in  der  "BASICDemos"-Schublade, 
sie  werden  von  den  Programmen  "Library",  "lib2"  und  einigen 
anderen  benutzt.  Aus  alien  Libraries,  deren  Name  mit  .FD  en- 
det,  kflnnen  Sie  mit  "ConvertFd"  eine  .BMAP-Datei  erzeugen. 
Solche  FD-Dateien  finden  Sie  in  der  Schublade  "FD1.2"  auf  Hi- 
rer "Extras"-Diskette.  Solange  Sie  sich  mit  Libraries  noch  nicht 
auskennen,  sollten  Sie  "ConvertFD"  allerdings  nicht  benutzen. 


Speech 

Dieses  Programm  funktioniert  ahnlich  wie  unser  Sprach-Utility. 
Zuerst  verlangt  AmigaBASIC  die  Workbench.  Wenn  Sie  nur  ein 
Laufwerk  besitzen,  legen  Sie  also  bitte  die  Workbench-Diskette 
ein.  Danach  kflnnen  Sie  dann  eine  Textzeile  eingeben,  die  nach 
Drucken  der  <RETURN>- Taste  gesprochen  wird.  Es  gibt  sechs 
Schieberegler,  die  die  Stimme  beeinflussen:  "Pitch"  steht  fiir  die 
Stimmh6he,  also  die  Frequenz.  "Inflection"  hat  nur  zwei  m6gli- 
che  Stellungen  und  regelt  die  Betonung  (menschlich  moduliert 
oder  monoton).  "Rate"  verSndert  die  Sprechgeschwindigkeit,  und 
"Voice"  die  Stimme  (auch  hier  gibt  es  nur  zwei  m6gliche  Regler- 
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positionen:  Mannlich  und  weiblich).  "Tune"  steht  fur  die 
Samplingfrequenz,  verSndert  also  auch  die  Stimmlage,  und  "Vo- 
lume" schlieBlich  regelt  die  Lautstarke.  Das  Programm  ist  nur 
zum  Ausprobieren  gedacht  -  Werte  abspeichern  kann  man  damit 
nicht. 


Speechd 

Das  kleine  d  macht's:  Commodore  Deutschland  hat  das  "speech"  - 
Programm  urn  eine  Routine  erweitert,  die  das  Sprechen  deut- 
scher  Sprache  ermflglicht.  Die  Regler  haben  jetzt  deutsche  Be- 
schriftungen,  ganz  unten  ist  ein  Schalter  fur  "Deut/Engl"  (also 
Deutsch  oder  Englisch)  dazugekommen.  Die  deutsche  Tastatur 
wird  unterstutzt.  Zum  Beenden  des  Programms  geben  Sie  das 
Wort  "Ende"  ein. 

Ein  amerikanischer  Akzent  ist  aber  nicht  zu  verleugnen.  Das  ist 
auch  klar,  denn  die  Routine  'initdeutsch:'  muB  versuchen,  die 
deutschen  Laute  mdglichst  gut  mit  den  englischen  Phonemen  zu 
beschreiben.  Uber  die  verschiedenen  Mdglichkeiten,  den  Amiga 
deutschen  Text  sprechen  zu  lassen,  erfahren  Sie  mehr  in  Kapi- 
tel  6.2. 


SuchZeich 

Dieses  kleine  Utility  ist  bei  der  Arbeit  mit  Dateien  recht  niitz- 
lich:  Es  sucht  eine  angegebene  Zeichenkette  in  einer  angegebe- 
nen  Datei  und  zeigt,  an  welcher  Stelle  die  gesuchten  Zeichen 
gefunden  wurden.  Die  gesuchten  Werte  kdnnen  Sie  dezimal,  he- 
xadezimal  oder  als  String  angeben. 
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Vergl 

Dieses  Programm  funktioniert  ahnlich  wie  HSuchzeichM.  Der  ein- 
zige  Unterschied  ist,  daB  hier  zwei  Dateien  miteinander  vergli- 
chen  werden.  Die  Zeichen,  durch  die  sich  die  beiden  Dateien 
unterscheiden,  werden  vom  Programm  auf  dem  Bildschirm  an- 
gezeigt. 


Dreier 

Bei  diesem  Programm  handelt  es  sich  urn  ein  sehr  hubsches 
Grafik-Demo.  Allein  durch  Dreiecksfiachen  erzeugt  der  AREA- 
Befehl  farbenpriichtige  Gebilde.  Diese  Gebilde  "bewegt"  das  Pro- 
gramm von  Zeit  zu  Zeit  noch  zusStzIich  durch  eine  Farbpalet- 
tenanimation.  Immer  mal  wieder  wird  auch  die  gesamte  Farbpa- 
lette  ge£ndert. 

Am  Programmanfang  fragt  Sie  das  Programm,  ob  es  auf  einem 
PAL-  oder  einem  NTSC-Amiga  Hiuft.  Von  der  Eingabe  (p  oder 
n)  hangt  ab,  wie  groB  das  verwendete  Window  wird.  Der  Pro- 
grammautor  regt  Sie  iibrigens  selbst  im  Listing  an,  mit  der 
Farbweiterschaltung  zu  spielen.  In  den  Formeln  fur  Ts'  und  'fr 
kdnnen  Sie  festlegen,  wann  die  Farbpalette  durchwechselt  und 
wann  sie  geandert  wird. 

Zum  Beenden  des  Programms  driicken  Sie  <Q>. 


LoadACBM 

LoadlLBM-SaveACBM 

SavelLBM 

Hier  sind  Sie  nun  also,  die  Utilities,  die  Commodore  auf  die 
MExtrasDw-Diskette  gepackt  hat,  urn  das  Problem  der  fehlenden 
Lade-  und  Speicherbefehle  fur  IFF-Grafiken  in  AmigaBASIC 
auszugleichen.  Auch  in  diesen  drei  Programmen  spielen  Libraries 
die  Hauptrolle,  ohne  sie  ginge  nSmlich  uberhaupt  nichts.  Als  er- 
stes  werden  Sie  sich  wahrscheinlich  fragen,  was  denn  bitteschdn 
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"ACBM"  bedeuten  soil.  Dabei  handelt  es  sich  um  einen  von 
Commodore  definierten  neuen  IFF-Typ.  NSheres  zu  den  Vor- 
und  Nachteilen  von  ACBMs  kdnnen  Sie  im  Zwischenspiel  5 
lesen. 

ACBMs  kdnnen  in  BASIC  schneller  gelesen  werden  als  ILBMs, 
die  normalen  IFF-Grafik-Dateien.  Doch  was  hilft  der  Ge- 
schwindigkeitsgewinn,  wenn  ein  Programm  dafur  keine  "nor- 
malen"  IFF-Bilder  mehr  versteht?  Denn  Programme  wie  DPaint 
oder  GrafiCraft  speichern  ja  nach  wie  vor  ILBMs  ab.  So  blieb 
Commodore  nichts  anderes  ubrig,  als  insgesamt  drei  Programme 
bereitzustellen: 

"LoadlLBM-SaveACBM"  liest  normale  ILBMs  ein,  rechnet  sie 
um  und  speichert  sie  als  ACBMs  ab.  Diese  ACBMs  kdnnen  dann 
mit  dem  Programm  "LoadACBM"  eingelesen  werden.  Und  "Sa- 
velLBM"  macht  das  Trio  komplett,  dieses  Programm  erzeugt  eine 
bewegte  Liniengrafik  und  speichert  sie  als  ILBM  ab.  Ein  wichti- 
ger  Vorteil  der  drei  Routinen:  Sie  sind  auch  in  der  Lage,  Farb- 
palettenanimationen  darzustellen.  Die  Daten,  die  dazu  benfltigt 
werden,  befinden  sich  gegebenenfalls  in  einem  Chunk  namens 
"CCRT"  innerhalb  der  IFF-Datei. 

Beachten  Sie  bitte:  Falls  Sie  diese  drei  Routinen  in  eigene  BA- 
SlC-Programme  einbinden  wollen,  sorgen  Sie  bitte  dafiir,  daB 
am  Ende  der  Kette  eine  ILBM-Datei  herauskommt.  Wir  wollen 
ja  schlieBlich  kompatibel  bleiben... 
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Anhang  D:     Das  kleine  Fachwortlexikon 

Die  kursiv  gedruckten  Fachwtfrter  konnten  wir  oft  noch  nicht 
bei  ihrem  ersten  Auftreten  besprechen,  weil  das  im  Text  zu  weit 
fiihren  wtirde.  In  diesem  Anhang  finden  Sie  alle  Erk&rungen. 
Wir  haben  noch  ein  paar  Begriffe  zusatzlich  aufgenommen,  so 
kftnnen  Sie  dieses  kleine  Fachwortlexikon  auch  zum  Nach- 
schlagen  verwenden. 


AmigaDOS 

EK)S  ist  eine  Abkiirzung  fur  "Disk  Operating  System".  Das  ist 
das  Disketten-Betriebssystem  des  Amiga.  Dieses  Programm  ist 
fiir  den  Datenaustausch  zwischen  Amiga  und  Diskettenlauf- 
werken  zustandig  und  kummert  sich  auBerdem  um  die  Organi- 
sation der  Daten  auf  Diskette.  Sie  konnen  AmigaDOS  direkt 
Befehle  geben,  und  zwar  uber  CLI,  den  'Command  Line  Inter- 
preter' auf  der  Workbench. 


ASCII-Code 

Engl.:  American  Standard  Code  fiir  Information  Interchange. 
Deutsch:  Amerikanischer  Standardcode  fiir  Informationsaus- 
tausch.  Dieser  genormte  Code  weist  jedem  Zeichen  einen  be- 
stimmen  Byte-Wert  zu.  Eine  ASCII-Tabelle  finden  Sie  im  An- 
hang B  beim  CHR$-Befehl. 


BASIC 

Engl.:  Beginners  all  purpose  symbolic  instruction  code.  Deutsch: 
Symbolische  Programmiersprache  fur  Anfanger.  Jetzt  wissen  Sie 
also  auch,  woher  BASIC  seinen  Namen  hat.  Er  stimmt  aber  ei- 
gentlich  nicht  so  ganz.  BASIC  ist  weder  eine  reine  AnfSnger- 
Sprache  noch  besonders  stark  symbol-gesteuert.  Aber  als  die  er- 
sten BASIC-Versionen  entwickelt  wurden,  standen  ihnen  so 
komplizierte  Sprachen  wie  Assembler,  COBOL  und  FORTRAN 
gegenuber.  So  erk&rt  sich  aus  damaliger  Sicht  der  Name. 
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Betriebssystem 

Das  Betriebssystem  ist  das  Programm,  das  standig  in  einem 
Computer  l&uft,  um  Grundfunktionen  wie  Tastatureingaben, 
Bildschirmdarstellung,  Betrieb  der  Schnittstellen  usw.  zu  erm6g- 
lichen.  Beim  Amiga  setzt  sich  das  Betriebssystem  aus  mehreren 
Teilen  zusammen.  Vergleichen  Sie  auch  Intuition,  Kernel  und 
AmigaDOS. 


Bildschirm-Editor 

Ein  Editor  ist  fur  die  Steuerung  des  Cursors  etc.  zustandig.  Bei 
einem  Bildschirm-Editor  kann  sich  der  Cursor  auf  dem  ganzen 
Bildschirm  frei  bewegen  und  an  jeder  beliebigen  Stelle  Eingaben 
Oder  Korrekturen  vornehmen.  Im  LIST-Window  von  Amiga- 
BASIC wird  ein  Bildschirm-Editor  verwendet.  Im  Gegensatz 
dazu  steht  ein  Zeilen-Editor. 


Bindrzahlen 

Auch:  Dualzahlen  oder  Zweiersystem.  Das  ist  ein  Zahlensystem 
mit  der  Basis  2.  Bei  jeder  Zweierpotenz  wird  eine  neue  Stelle 
erbffnet.  Als  Ziffern  verwendet  man  meistens  0  und  1.  Die 
Zahlen  0  bis  10  sehen  bin&r  so  aus: 


0 

0000 

6 

0110 

1 

0001 

7 

0111 

2 

0010 

8 

1000 

3 

0011 

9 

1001 

4 

0100 

10 

1010 

5 

0101 

N&heres  daruber  erfahren  Sie  im  Zwischenspiel  4. 
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Bit 

Engl.:  binary  digit.  Ein  Bit  ist  die  kleinste  Einheit  bei  der  In- 
formationsspeicherung.  Es  kann  entweder  "an"  oder  "aus"  sein, 
entspricht  "gesetzt"  oder  "geiascht",  entspricht  Mwahr"  oder 
"falsch",  entspricht  0  oder  1.  Acht  Bits  zusammen  bilden  ein 
Byte. 


Bit-Ebene 

Bei  der  Speicherung  von  Grafiken  entspricht  jeder  Bildpunkt  ei- 
nem  Bit.  Damit  mehrere  Farben  dargestellt  werden  kdnnen, 
kommen  pro  Bildpunkt  (Pixel)  weitere  Bits  dazu.  Die  Grafiken 
bestehen  so  aus  verschiedenen  Bit-Ebenen.  Die  "ubereinander" 
liegenden  Bits  bestimmen  die  Farbe  eines  Bildpunkts.  Bild  5  im 
Kapitel  2.2  zeigt,  wie  Sie  sich  Bit-Ebenen  am  besten  vorstellen 
kftnnen. 


Byte 

Jede  Speicherzelle  im  Amiga  speichert  genau  ein  Byte.  Ein  Byte 
besteht  aus  8  Bits.  Diese  Einteilung  stammt  aus  der  Zeit  der  8- 
Bit-Prozessoren.  Ein  Byte  kann  einen  Wert  zwischen  0  (bin^r 
00000000)  und  255  (binar  11111111)  speichern.  Meistens  wird 
zur  Speicherung  eines  Zeichens  oder  eines  Buchstabens  ein  Byte 
verwendet.  Weil  ein  KByte  (ein  Kilobyte)  210  Bytes  beinhaltet, 
sind  1  KByte  nicht  1000  Bytes,  sondern  1024  Bytes.  256K  ent- 
sprechen  262144  Bytes.  Und  512K  sind  524288  Bytes.  Sie  be- 
kommen  also  sogar  ein  paar  Bytes  mehr  als  gedacht. 


Cursor 

So  heiBt  die  Marke,  die  Ihnen  auf  dem  Bildschirm  anzeigt,  wo 
Sie  gerade  schreiben  oder  arbeiten.  Beim  Amiga  gibt  es  ver- 
schiedene  Cursor-Arten.  Da  ware  zunachst  der  Mauscursor,  der 
kleine  Pfeil,  der  sich  synchron  zur  Maus  bewegt.  Dann  gibt  es 
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den  BASIC-Cursor,  der  im  LIST-Window  und  im  BASIC-Win- 
dow  anzeigt,  wo  die  Tastatureingaben  stattfinden.  Andere  Pro- 
gramme benutzen  manchmal  auch  noch  andere  Cursor-Arten. 


D/A-Wandler 

Digital/Analog-Wandler.  Sie  wandeln  ein  digitales  Signal,  also 
eine  Reihe  von  Zahlenwerten,  in  einen  analogen  Strom.  Je 
grSBer  die  Zahl,  desto  starker  das  Stromsignal.  Auf  diese  Weise 
funktioniert  zum  Beispiel  die  Musikerzeugung  beim  Amiga.  Der 
Chip  "Paula",  der  die  Musik  macht,  hat  vier  D/A-Wandler  ein- 
gebaut.  Urn  Musik  zu  digitalisieren,  also  in  Zahlenwerte  umzu- 
wandeln,  brauchten  Sie  das  Gegenteil:  einen  A/D-Wandler.  Er 
funktioniert  genau  andersrum. 


Dezimalzahlen 

Das  ist  das  normale,  alien  vertraute  Zehnersystem.  Es  basiert  auf 
der  Zahl  10  und  hat  zehn  Ziffern:  0,  1,  2,  3,  4,  5,  6,  7,  8  und  9. 
F&r  Menschen  das  Naturlichste  der  Welt,  nur  Computer  tun  sich 
damit  etwas  schwer.  Lesen  Sie  mal  das  Zwischenspiel  4. 


Directory 

Das  englische  Wort  fur  Inhaltsverzeichnis  (auch  Telefonbuch). 
Mit  Directory  meint  man  bei  Computern  das  Inhaltsverzeichnis 
einer  Diskette. 


Drucker 

Ein  Peripheriegerdt  zum  Ausdrucken  von  Daten,  Text  oder  Gra- 
fiken  auf  Papier.  Sie  k6nnen  verschiedene  Drucker  am  Amiga 
anschlieBen,  die  Anpassung  fuhren  Sie  mit  dem  Programm  Pre- 
ferences auf  der  Workbench-Diskette  durch.  Die  meisten 
Drucker  werden  an  der  Parallel-Schnittstelle  des  Amiga  ange- 
schlossen,  einige  auch  an  der  seriellen  Schnittstelle.  Naheres  dazu 
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kdnnen  Sie  im  Kapitel  3.5  nachlesen.  Es  gibt  verschiedene  Arten 
von  Druckern:  Matrixdrucker  (die  Mufigsten),  Tinten- 
strahldrucker  (die  leisesten),  Laserdrucker  (die  besten  und  die 
teuersten),  Typenraddrucker  (die  schdnsten  -  gleich  nach  den 
Laserdruckern).  Die  Unterscheidung  richtet  sich  nach  dem  Prin- 
zip,  wie  die  Zeichen  aufs  Papier  kommen.  Typenraddrucker 
kdnnen  keine  Grafiken  drucken,  haben  dafur  aber  das  Schrift- 
bild  einer  Schreibmaschine.  Durch  Near  Letter  Quality  ist  der 
Qualit&tsabstand  von  Matrixdruckern  zu  Typenraddruckern  aber 
sehr  klein  geworden. 


Editor 

Ein  Editor  ist  der  Teil  eines  Programms  Oder  eines  Betriebs- 
systems,  der  fur  die  Cwrsor-Steuerung  und  damit  fur  das  Ein- 
geben,  EinfQgen,  L5schen  und  Korrigieren  von  Texten  auf  dem 
Bildschirm  zustSndig  ist.  Vergleichen  Sie  Bildschirm- Editor  und 
Zeilen-Editor. 


Hardcopy 

Das  ist  ein  Bildschirmausdruck  auf  einem  Drucker.  Meist  spricht 
man  von  Hardcopies,  wenn's  um  Grafiken  geht.  Aber  auch 
Textausdrucke  des  Bildschirminhalts  nennt  man  Hardcopy. 
AmigaBASIC  tut  sich  mit  Hardcopies  etwas  schwer,  Sie  brau- 
chen  ein  Hilfsprogramm  dazu,  zum  Beispiel  "GraphicDump"  aus 
der  HSystem"-Schublade  der  Workbench. 


Hardware 

So  nennt  man  die  GerSte  und  Bauteile  eines  Computers.  Hard- 
ware kann  man  anfassen,  oder:  (sehr  beliebte,  weil  anschauliche 
Definition)  Hardware  geht  kaputt,  wenn  man  sie  fallenl&flt.  Im 
Gegensatz  zur  Hardware  steht  die  Software. 
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Hexadezimalzahlen 

Auch  em  sehr  beliebtes  Zahlensystem  bei  Computern.  Das  Hexa- 
dezimalsystem  basiert  auf  der  Zahl  16.  Es  hat  die  Zif fern  0,  1, 
2,  3,  ...  8,  9,  A,  B,  C,  D,  E  und  F.  Man  kennzeichnet  Hexa- 
dezimalzahlen gern  durch  ein  vorangestelltes  $-Zeichen.  So  se- 
hen  die  ersten  35  Hexadezimalzahlen  aus: 

0  $0  9      $9  18     $12  27     $1B 

1  $1  10    $A  19    $13  28    $1C 


2 

$2 

11 

$B 

20 

$14 

29 

$1D 

3 

$3 

12 

$C 

21 

$15 

30 

$1E 

4 

$4 

13 

$D 

22 

$16 

31 

$1F 

5 

$5 

14 

$E 

23 

$17 

32 

$20 

6 

$6 

15 

$F 

24 

$18 

33 

$21 

7 

$7 

16 

$10 

25 

$19 

34 

$22 

8 

$8 

17 

$11 

26 

$1A 

35 

$23 

Fur  weitere  Informationen  lesen  Sie  bitte  das  Zwischenspiel  4. 


IFF 

Interchange  File  Format.  Von  der  Firma  Electronic  Arts  ent- 
wickeltes  Speicherformat  fur  Amiga-Daten.  Lesen  Sie  dazu  bitte 
Kapitel  4.2. 


Interlace 

Zwischenzeilenmodus.  Durch  eine  Verdopplung  der  dargestellten 
Bildzeilen  auf  dem  Monitor  erreicht  der  Amiga  eine  hdhere 
AuflOsung.  Lesen  Sie  bitte  Kapitel  2.2. 
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Interpreter 

Deutsch:  Ubersetzer.  Nichts  anderes  ist  AmigaBASIC  namlich. 
Der  Amiga  versteht  BASIC  nicht  direkt.  Das  ist  auch  kein  Wun- 
der,  denn  er  denkt  ja  nur  in  "Strom  an,  Strom  aus".  Der  BASIC  - 
Interpreter  iibersetzt  die  BASIC-Befehle  in  fur  den  Amiga  und 
seinen  Prozessor  verstSndliche  Maschinensprache-Befehle. 


Intuition 

Das  ist  ein  weiterer  Teil  des  Amiga- Betriebssy  stems.  Intuition  ist 
fur  die  Arbeit  mit  Windows  etc.  zustandig.  Viele  Routinen  aus 
Intuition  kflnnen  von  anderen  Programmen  als  Unterprogramme 
benutzt  werden. 


Joystick 

Engl.:  Steuerknuppel.  Zwei  von  diesen  Spielgeraten  kdnnen  Sie 
am  Amiga  anschlieBen. 


Kernel 

Ubersetzt:  Kerngehause.  Denken  Sie  bitte  nur  bedingt  an  einen 
Apfel.  Kernel  nennt  man  den  Teil  des  Betriebssystems,  der  so- 
zusagen  Basis  fur  alles  andere  ist.  Das  sind  die  Input/Output- 
Routinen  etc.  Das  Kernel  wird  beim  Amiga  1000  von  der 
Kickstart-Diskette  geladen  und  kann  danach  im  Speicher  nicht 
mehr  ver&ndert  werden.  Bei  Amiga  500  und  2000  befindet  sich 
das  Kernel  im  ROM. 


kompatibel,  Kompatibilitat 

Bedeutet  "austauschbar",  kann  zusammenarbeiten.  Sind  zwei  Ge- 
rate  softwarekomptibel,  k6nnen  sie  dieselbe  Software  verwenden. 
Der  Amiga  kann  teilweise  zum  IBM  PC  kompatibel  gemacht 
werden.  (Dafiir  gibt  es  eine  Softwarel6sung,  den  "Transformer11, 
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und  eine  Hardwareldsung  namens  "Sidecar"  bzw.  die  PC-Karte 
im  Amiga  2000.)  Sind  zwei  Programme  datenkompatibel,  k6nnen 
sie  gemeinsam  dieselben  Daten  verwenden.  Beim  Amiga  ist  das 
recht  h§ufig  der  Fall,  dank  IFF. 


Maschinensprache 

Das  ist  die  Sprache,  die  der  68000- Prozessor  des  Amiga  direkt 
versteht.  Sie  besteht  letztlich  nur  aus  Nullen  und  Einsen,  kann 
aber  schrittweise  fur  den  Menschen  verst&ndlicher  gemacht  wer- 
den.  Wer  z.B.  in  Maschinensprache  programmiert,  verwendet 
KOrzel  wie  MOVEA,  MOVEC,  CMPI  Oder  SBCD.  Jetzt  wissen 
Sie  auch,  warum  Maschinensprache-Progammierer  BASIC-Be- 
fehle  furchtbar  einfach  finden. 


Multitasking 

Die  F&higkeit,  mehrere  Programme  unabhangig  voneinander 
gleichzeitig  auszufiihren.  WShrend  der  Anwender  mit  einem  Pro- 
gramm  arbeitet,  laufen  die  anderen  im  Hintergrund  weiter.  So 
kann  man  Zeit  sparen  und  mehrere  Aufgaben  gleichzeitig  ldsen 
lassen.  Da  der  Prozessor  seine  Arbeitskapazit&t  auf  die  einzelnen 
Tasks  (Aufgaben)  verteilen  mufl,  wird  ein  einzelnes  Programm 
langsamer,  wenn  mehrere  Programme  gleichzeitig  laufen. 


Near  Letter  Quality 

Deutsch:  Fast-Schreibmaschinen-Qualitat.  Matrixdrucker  haben 
oft  eine  schwer  lesbare,  unscMJne  Punktschrift.  Durch  verschie- 
dene  Tricks  kann  man  aber  mit  ihnen  eine  Schrift  erzeugen,  die 
der  von  Schreibmaschinen  oder  Typenraddruckern  nur  noch  we- 
nig  oder  tiberhaupt  nicht  mehr  nachsteht.  Fiir  Laserdrucker  ist 
NLQ  (so  die  Abkurzung)  gleich  gar  keine  Schwierigkeit  mehr. 
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Peripheriegerdt 

Ein  Zusatzgerat,  das  Sie  an  den  Amiga  anschlieOen  konnen.  Also 
z.B.  Drucker,  Plotter,  Zusatz-Laufwerke,  Festplatten-Laufwerke, 
Grafiktableaus,  Scanner,  Joysticks  etc. 


Pixel 

Ein  Bildpunkt  in  einer  Grafik.  Beim  Amiga  wird  durch  das 
Prinzip  der  Bil-Ebenen  ein  Pixel  durch  bis  zu  funf  Bits  im 
Speicher  vertreten.  Ein  Computerbild  setzt  sich  aus  Pixels  zu- 
sammen  wie  ein  Zeitungsfoto  aus  Rasterpunkten.  Je  mehr  Pixels 
auf  den  Bildschirm  passen,  umso  hdher  ist  die  Aufldsung,  umso 
realistischer  sieht  das  entstehende  Bild  aus.  Allerdings  spielen 
die  Farben  dabei  auch  noch  eine  wichtige  Rolle.  Mehr  daruber 
im  Kapitel  2.2 


Prozessor 

Das  "Gehirn"  des  Computers.  Dieser  Chip  steuert  die  wichtigsten 
Funktionen.  Beim  Amiga  heiflt  er  68000.  (Prozessoren  haben 
immer  so  phantasievolle  Namen.)  Ein  Prozessor  kann  ungeheuer 
schnell  einzelne  Befehlsschritte  in  Maschinensprache  ausfiihren. 
Der  68000  schafft  fast  8  Millionen  dieser  Kleinst-Arbeitsschritte 
pro  Sekunde.  Und  damit  er  sich  dabei  auf  das  wirklich  Wichtige 
konzentrieren  kann,  werden  ihm  viele  Routineaufgaben  wie  Da- 
tenaustausch,  Bildschirmdarstellung  etc.  von  seinen  Co-Pro- 
zessoren  Agnus,  Denise  und  Paula  abgenommen. 


RAM 

Engl.:  Random  Access  Memory.  Deutsch:  Schreib-/Lesespeicher. 
In  diesen  Speicher  k6nnen  Sie  eigene  Werte  schreiben  und  spSter 
wieder  auslesen.  Einziges  Problem:  Sein  Inhalt  wird  beim  Aus- 
schalten  des  Amiga  geldscht.  Deshalb  mussen  Daten,  die  im 
RAM  stehen,  auf  Diskette  oder  Festplatte  abgespeichert  werden. 
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ROM 

Engl.:  Read  Only  Memory.  Deutsch:  Nur-Lese-Speicher,  Fest- 
wertspeicher.  Im  Gegensatz  zum  RAM  wird  das  ROM  beim 
Ausschalten  nicht  gelflscht.  Daftir  kflnnen  Sie  ins  ROM  keine  ei- 
genen  Daten  schreiben.  Was  dort  einmal  steht,  ist  so  leicht  nicht 
mehr  wegzubekommen.  Fttr  Betriebssysteme  etc.  ist  das  auch 
sehr  gut  so.  Im  Amiga  500  und  2000  befindet  sich  der  Inhalt  der 
ehemaligen  Kickstart-Diskette  in  einem  ROM. 

Beim  Amiga  1000  gibt  es  eigentlich  gar  kein  richtiges  ROM. 
Zumindest  nicht  sehr  viel  davon.  Nur  das  Ladeprogramm  fur  die 
Kickstart-Diskette  (das  auch  die  schflne  Hand  mit  ihrer  Diskette 
darstellt),  befindet  sich  in  ROMs.  Der  RAM-Bereich,  wo  das 
Betriebssystem  steht,  kann  elektronisch  so  abgeschlossen  werden, 
daB  er  sich  wie  ROM  verhSlt.  Beim  Ausschalten  wird  er  aber 
trotzdem  gelOscht. 


Schnittstelle 

Ein  AnschluB,  an  dem  Sie  Peripheriegerate  oder  eine  Daten- 
ubertragungs-Leitung  anschlieBen  kflnnen.  Der  Amiga  hat  meh- 
rere  Schnittstellen.  Zum  Beispiel  eine  Parallel-Schnittstelle,  eine 
serielle  Schnittstelle,  eine  Schnittstelle  fur  zusatzliche  Disketten- 
Laufwerke  und  verschiedene  Schnittstellen  fur  Monitor  und 
Fernseher. 


Screen 

Ubersetzt:  Bildschirm.  Einen  Screen  beim  Amiga  kann  man  an 
der  Kopfleiste  mit  dem  Mauscursor  festhalten  und  nach  oben 
oder  nach  unten  ziehen.  Auf  dem  Screen  befinden  sich  dann  die 
Windows,  die  Grafiken,  der  Text  -  kurz:  die  gesamte  Bild- 
schirmdarstellung.  Ausfuhrlicher  k5nnen  Sie  das  im  Kapitel  2.3 
nachlesen. 
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Scrolling 

Kurzel  aus  "Screen"  (Bildschirm)  und  "rolling"  (Rollen).  Scrolling 
bedeutet,  daO  Daten  an  einem  Rand  aus  dem  Bildschirm  ver- 
schwinden  und  dafur  an  der  gegenuberliegenden  Seite  neue  Da- 
ten  erscheinen.  So  kann  man  immer  einen  Ausschnitt  einer  Ge- 
samtdarstellung  auf  dem  Bildschirm  sehen. 

Software 

Die  Programme  und  Daten  im  Speicher  eines  Computers.  Soft- 
ware kann  man  nicht  anfassen,  hdchstens  die  Diskette,  auf  der 
sie  aufgezeichnet  ist.  Nur  durch  die  Software  kann  die  Hardware 
auch  richtig  ausgenutzt  werden. 


Token 

Ubersetzt:  Zeichen,  Merkmal.  Ein  Ein-Byte-Code  far  einen 
BASIC-Befehl.  AmigaBASIC  setzt  ihn  beim  Abspeichern  von 
Programmen  ein,  urn  Diskettenplatz  zu  sparen.  Anstatt  fQr  den 
PRINT-Befehl  die  Zeichen  P,  R,  I,  N  und  T  abzuspeichern, 
speichert  man  lieber  das  Token  172  ab.  Wenn  das  Programm 
dann  wieder  eingelesen  wird,  weiB  AmigaBASIC,  da/3  es  das  To- 
ken 172  durch  den  Befehl  PRINT  ersetzen  muB. 


Utility 

Hilfsprogramm.  Ein  Programm,  das  Ihnen  bei  einer  bestimmten 
Arbeit  hilft.  Alles,  was  nutzlich  ist,  kann  man  als  "Utility"  be- 
zeichnen.  In  diesem  Buch  finden  Sie  eine  ganze  Menge  nQtz- 
licher  Sachen,  also  auch  viele  Utilities. 
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Zeilen-Editor 

Ein  Editor,  der  nur  in  einer  einzigen  Zeile  arbeitet.  Sie  haben 
also  im  Gegensatz  zum  Bildschirm-Editor  nicht  den  ganzen 
Bildschirm  auf  einmal  fur  Ihre  Eingaben  zur  Verfugung.  Der 
Cursor  kann  nicht  nach  oben  oder  unten  bewegt  werden,  nur 
nach  links  oder  rechts.  Im  BASIC-Window  bietet  AmigaBASIC 
nur  einen  Zeilen-Editor. 
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32-Bit-Wert  259,  392,  447 

68000   564,  633,  755 

Abkiirzung 54 

ABS  136,  629 

Absoft  568 

Absolutwert  629 

Absturz  66 

Abtastfrequenz  515,  520 

AC/BASIC  .'  568 

ACBM  401,  745 

Adrefldatei  310 

Adresse  394,  699,  713,  729 

Aegis  Animator  101,  383 

Aegis  Videotitler 14 

Agnus 98,  755 

Aktuelles  Inhaltsverzeichnis  636,  656 

Amiga  2000  293,  305 

Amiga-Taste 63 

AmigaDOS  36,  291,  351,  468,  611,  642,  747 

Amplitude   543,  730 

Analog  750 

Analoge  Tonaufzeichnung  544 

Analyze  14 

AND  262,  377,  630 

Anfuhrungszeichen  51,  79,  735 

Animation 44,  89 

Anklicken  27 

Apostroph  435 

APPEND   316,  499,  694,  631 

AREA  186,  630 

AREAFILL  186,  630 

ASC  379,  631 

ASCII-Code  113  ,174,  342,  359,  379,  631,  637,  747 
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ASCII-Datei  572,  635 

ASCII-Format  .. 526,  671,  678 

Assembler  565 

ATN 631 

Aufldsung  117,  146,  157,  160,  219,  414,  546,  716 

Ausgabewindow  733 

BACKSPACE-Taste  51,  81,  336 

Balkengrafiken  188,  317 

BASIC  747 

BASIC-Diskette  288 

BASIC-Window 50 

BASICDemos-Schublade 87,  737 

BasicDisk 40 

Basis  e 674 

Basis-Inhaltsverzeichnis 304,  636 

Baud  695,  742 

BEEP  ••  •••  68,  632 

Befehle 629 

Bemerkungen  • 710 

Beschleunigung  683 

Betonung  511,  514,  520,  715,  742 

Betriebssystem  25,  394,  565,  570,  748 

Bewegung  688 

Bewegungsleiste  29 

Bildschirm-Editor  57,  748 

Binarsystem  449 

Binarzahlen  113,  150,  256,  564,  748 

Bit  112,  147,  256,  152,  385,  397,  644,  686,  716,  740,  749 

Bitmap  385 

Bitmuster  266 

Blitter 98,  183,  630 

Block  Fill 169 

BMAP-Format  742 

BMHD 387 

Bob 88,  99,  583 

Body 387 

BogenmaB  178 
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BobBogenmaD  631,  640,  645,  719,  726 

BREAK  OFF  632 

BREAK  ON 632 

BREAK  STOP  "  632 

Bug  585 

Bypassing 577 

Byte  48,  256,  749 

C  566 

CALL   427,  632 

CAMG-Chunk  413 

Cancel  289 

CD Z""ZZ  544 

CDBL  634 

CHAIN "."'.  635 

CHDIR 304,  636 

CHR$  112,  113,  342,  355,  637 

Chunk  384 

CINT ZZ'73^634 

CIRCLE  177,  640 

Clean  Up  34,  38 

CLEAR  641 

CLI  725,  747 

Clipboard  75,  352 

CLNG  634 

Clock 29,  37 

Close  37 

CLOSE  3137*642 

CLS  55,642 

CMAP  387 

Co-Prozessoren  564 

COLLISION  643 

COLLISION  OFF  644 

COLLISION  ON  644 

COLLISION  STOP  644 

COLOR 480,  644 

COM1:  366,  695 

COMMON  645 

Compiler  566 

Compiler-Schublade 571 
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CONT  611,  645 

Continue  611 

Copper 98 

Copy  75 

Copyright  • 48 

COS  170,  645 

Cosinus  200,645 

CSNG 634 

CSRLIN  646 

CTRL-Taste  333 

Cursor 50,749 

Cursor-Tasten  57 

Cut  74 

CVD • 646 

CVI  379,646 

CVL 392,  646 

CVS 646 

D/A-Wandler  545,  750 

DATA  218,  461,  647 

DATES  134,  438,  648 

Datei  301,  609,  642,  694 

Datei  einrichten  500 

Dateipuffer 469 

Datenfeld  613,  651,  667 

Datenverarbeitung  288 

Daten 288,309 

Datenbank  474,  500 

Datenfelder 650,  696,  718 

Datensatz  468 

Datum  648 

Dauer 532,  720 

Deadlock 611 

Debugging  585 

DECLARE  FUNCTION  ...  LIBRARY 648 

DEFDBL 650 

Definition  557,  649,  687 

DEFINT 650 

DEFLNG  650 

DEFSNG 650 
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DEFSTR  650 

DEF  FN  556,  649 

DEL-Taste 81 

DELETE  !."!  651 

Deluxe  Paint 123,  398,  463 

Deluxe  Paint  II 14 

Deluxe  Video  101,  383 

Deluxe  Paint 92,  214,  383,  398,  98 

Denise  755 

Deutsche  Aussprache  510 

Deutsche  Sprache  743 

Dezimalsystem  257,  449 

Dezimalzahlen  750 

Dialogfeld  102 

Digitale  Tonaufzeichnung  544 

Digital  123,  750 

DIM  78,  109,  613,  651 

Dimensionierung  460 

DIP-Switch  .."..  355 

Directory  301,  750 

Direktmodus  60,  616 

Discard   38 

Disk  full  !.!.!  624 

Diskette  288,  611,  612 

Diskette  im  Buch 14,  39 

Doppelpunkt 427 

DPaint  745 

Dreiecks-Schwingung  546 

Druckausgabe 725 

Drucker  351,  370,  467,  672,  675,  750 

Duplicate  37,  86,  297 

Edit-Menii 62,  74 

Editor 336,  751,501 

Eingabe  663 

Einzelschritt-Modus  181 

Electronic  Arts  383,  752 

Ellipse  178|  640 

ELSE  106 

ELSE 613 
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Empty  293 

Empty  Trash  38 

END 652 

END  SUB  652 

EOF  316,  382,  473,  617,  653 

EQV  263,  653 

ERASE  461,  548,  653 

ERL  654,692 

ERR  608,  654,  692 

Error  52,  486 

ERROR  654,  691 

Error  Report  578 

ESC-Sequenz  359 

ESC-Taste  114 

Event  Trapping  208,  322,  521,  632,  644,  676,  719 

Excess  577 

EXIT  SUB  655 

EXP  655 

Exponentialdarstellung  448 

Exponentialfunktion  655 

Externer  Speicher  82 

Extras-Diskette  288,  612,  737 

ExtrasD-Diskette  44 

Fachwdrter  747 

Farben  122,  145,  219,  246,  387,  459,  644,  697,  741 

Farbpalettenanimation  385 

Fehler  284,289 

Fehlerbehandlung  618 

Fehlermeldung  52,  109,  608,  654 

Feld  613,  658,  78 

Feldnamen  482 

Festplatte  305,  573 

Feuerknopf 369,  723 

FIELD  470,  655 

FILES  301,  656 

FIX  656 

Fliegende  Balle 55 

FlieBkommavariable  447 

FlieBkommazahl  634,  647,  679,  79 
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FOR...NEXT  615,  657 

Form  385 

Format  703 

Formatieren  291 

Fragezeichen  663 

FRE  410,  657 

Frequenz  514,  532,  536,  715,  720,  742 

Fuellen-Option 96 

Fullmuster  217,  265,  698 

Funktionen  556,  649 

Funktionstasten  358,  637 

Geisterschrift  206,  676 

Genauigkeit  450 

Ger&t  695 

Geratenamen  358 

Ger&usche  531,  550 

Geschwindigkeit  117,  569,688 

GET  373,  473 

GET  610,  658,  659 

Globale  Variablen  652 

GOSUB  130 

GOSUB...RETURN  659 

GOTO  660,  69 

GrafiCraft  745 

Grafikdaten  373,  384 

Grafikobjekte  98 

Graphicraft 92,  124,  204,  214,  383,  399 

GREEN-Taste 122 

GroB-/Kleinschreibung 71 

GroBbuchstaben  728 

Gr68e-Menu  96 

Gr6Bensymbol  30,  161,  732 

Grundfrequenz  514,  520 

Guru  Meditation  67,  585,  641 
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Hardcopy  325,  372,  751 

Hardware  ...751 

Hauptprozessor 564 

HELP-Taste 114,  494 

Hertz  514,  537,  720 

HEX$ 660 

Hexadezimalzahlen 218,  256,  660,  698,  752 

Hintergrund-/Vordergrund-Symbole  29,  161,  732 

Hintergrundfarbe 644 

Hintergrundgrafik 424 

Hochkomma  435 

Icon  26,  37,  301 

IconEd  301 

IF...THEN  67 

IF...THEN...ELSE  661 

IFF  383,  409,  420,  434,  752 

ILBM  386 

ILBMEntzerren  402 

IMP 264,663 

Info • 38 

Info-Datei  301,  352 

Inhaltsverzeichnis 31,  301,  351,  614,  636,  750 

Initialisieren 292 

Initialize 38 

INKEYS  107,  663 

INPUT 66,  108,  498,  663,  694 

INPUT*   315,  343,  664 

INPUTS  104,  381,  664 

INSTR • 665 

INT  135,  666 

Integer-Feld  513,  546,  729 

Integer-Zahl  375,  267,  447,  634,  647,  679 

Integervariable  650 

Interface 365,  695 

Interlace-Modus 148,  158,  752 

Interleaved  Bitmap  386 
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Interner  Fehler  617 

Interner  Speicher  82 

Interpreter  , 48,  567,  633,  753 

Intuition  669,  753 

INTUITION- WINDOW-Struktur  734 

Invertieren  278 

Joystick  366,  722,  723,  753 

Kanal  516,  632,  715,  720 

Kanalzuordnung  535 

KByte   749 

Kernel  ; 36,  753 

Kickstart  25,  36,  753,  756 

KILL   308,  615,  666 

Klangfirbung  544 

KJick  680 

Kollision  643 

Kommazahl  446 

Kompatibilitat  214,  356,  753 

Komprimiertes  Speicherformat 398 

Koordinaten  116,  137,  161,    165,  200,  230 

240,  255,  274,  524,  560,  689 

Korrigieren 501 

Kreis  236,  640 

Kreissektoren  179 

KYBD:  Z.  358 

L-Verzeichnis  573,  591 

Label  69,  427,  577,  613,  660,  671,  713 

Langwort  259 

Last  Error  38 

Laufwerksbezeichnung  306 

Lautschrift  510 

Lautsprecher 506,  533,  542 

Lautstarke 516,  520,  534,  715,  720,  743 

LBOUND  667 

Leerschublade  85 

LEFTS  129,  667 

LEN  668 
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LET • 53,668 

Library 648,  668,  742 

LINE 166,670 

LINE  INPUT  79,  670 

LINE  INPUT* 671 

Lines  577,670 

LIST 671 

LIST- Window 46,  50,  56,  60,  108,  617 

Listing 60 

LLIST 355,672 

LOAD  102,  278,  672 

LOC 672 

LOCATE  76,  673 

LOF  381,  617,  673 

LOG 674 

Logarithmus  674 

Logische  Vergleiche  244 

Logische  Verknupfung 261,  630,  653,  663,  682,  697,  736 

Logischer  Wert 244 

Lokale  Variablen  652 

Loschen  38,  74,  277,  297,  560,  666,  682 

LPOS 674 

LPRINT 354,  675 

LPRINT  USING  675 

LPT1:  356 

LSET 470,  487,  675 

Mannlich  515,  520,  715,  743 

Maschinensprache  564,  633,  648,  668,  713,  729,  754 

Maske  502 

Maus  27,  680 

Maus-Abfrage  • 212 

Mauscursor  431,  749 

Maussteuerung  204 

Mauszeiger  285 

Menu 221 

MENU  676,  677 

MENU  OFF  209,  677 

MENU  ON  209,  677 

MENU  RESET  206 
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MENU  STOP 209,  677 

Menuauswahl 676 

Meniisteuerung  204 

MERGE  175,  348,  519,  526,  678 

Microsoft  48,  608 

MID$ 440)  678 

MiBbrauch  504 

Mittelpunkt  640 

MKD$  'ZZZZ.  679 

MKI$  ZZZ'm,  679 

MKL$  679 

MKS$ ZZZZZZZ.  679 

Mnemonics 565 

Monochrom  122 

MOUSE  ZZZZZ  22&,6&0 

MOUSE  OFF  681 

MOUSE  ON  212,  681 

MOUSE  STOP 681 

MS-DOS  291 

Multitasking  36,  49,  313,  355,  754 

Musik  531,  737 

Muster  631 

Nachkommateil  656,  703 

NAME  307,  620[  681 

Narrator  .device  511 

Near  Letter  Quality  359  754 

NEW  82^682 

NLQ 754 

NOT  264,682 

Noten  536 

Object  Editor  90 

Object-Code 570 

OBJECT.AX  683 

OBJECT.AY  683 

OBJECT.CLIP  683 

OBJECT.CLOSE  684 

OBJECT.HIT  120,  684 

OBJECT.OFF  116,  686 
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OBJECT.ON  116.  686 

OBJECT.PLANES 686 

OBJECT.PRIORITY  687 

OBJECT.SHAPE  104,  115,687 

OBJECT.START  119,  688 

OBJECT.STOP  119,  688 

OBJECT. VX  116,  688,  689 

OBJECT. VY  116,  688,  689 

OBJECT.X 116,  689,  690 

OBJECT.Y 116,  689,  690 

ObjectEditor 687,  741 

Objekt 643 

OCT$  • 690 

Oktalzahlen ~'.'Z 26 1 ,  690,  698 

Oktave  S34 

ON  BREAK  GOSUB 690 

ON  COLLISION  GOSUB  691 

ON  ERROR  GOSUB 691 

ON  MENU  GOSUB  693 

ON  MOUSE  GOSUB  693 

ON  TIMER  GOSUB 694 

ON...GOSUB  224,  692 

ON...GOTO  224,  692 

ON  ERROR  GOSUB 608 

Open  34,  37 

OPEN  311,  694,  695 

OPTION  BASE  696 

Optionen  629 

OR  262,  377,  697 

OUTPUT  694 

PAINT  182,  239,  697 

PAL-Bereich  148 

PAL-System  148 

PALETTE 124,  145,  697 

PAR:  365 

Parallel-Schnittstelle  365,  750 

Paritat  695 

Pass  576 
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Paste 75 

PATTERN  ZZZZZ  265t'G9% 

paula  533,  545,  755 

PC-Karte  305,  754 

pEEK  395,699 

PEEKL 699 

PEEKW  . "";""  699 

Peripheriegerat 351,  612,  755 

Phonem-Code 509,  714,  727 

PICSAVE-Routine 456 

P«el 147,  266,  755 

POINT 700 

POKE 395,  700 

POKEL 700 

POKEW 701 

pos . ;.;;;;  7oi 

Preferences    29,  124,  354,  361,  431,  438,  648,  672,  698,  726,  727 

PRESET 377,  701 

PRINT 51,702 

PRINT  USING 703 

PRINT# '312,703 

PRINT*  .USING 703 

Prioritat  687 

Programme 737 

Programmier-Modus 60 

Project-Menu ,., 59 

Protect 174,  714 

Prozessor  \ 259,  755 

PRT: 356 

PSET 165,  377,  701 

PTAB  707 

Puffer  313,  357,  655,  675,  708,  712 

Pulldown 33,  37,  204,  221,  322,  676 

PUT  373,  471,  610,  707,  708 

Quadratwurzel 721 

Quell-Programm 567 

Quit 83 
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Radiergummi 241 

Radius 178,640 

RAM 36,  49,  351,  755 

RAM-Disk  40,  351,  529 

RAM:  353 

RANDOMIZE  709 

RASTPORT-Struktur  734 

Rauschen  550 

READ  218,  709 

Rechteck 168,  231,  670 

Rechteck-Schwingung  549 

Redraw  38 

Relative  Datei  467,  614,  655,  659,  675,  679,  708,  712 

REM  434 

Rename 38,  86 

RESTORE  461,  710 

RESUME  710 

RETURN  130 

RETURN-Taste 51 

RGB 255,    385 

RGB-Monitor 122 

RIGHTJ  129,    711 

RND • 166,  711 

Rollbalken  31 

ROM  36,  756 

ROM-KERNAL 669 

RS232-Interface  695 

RSET  712 

RUN  58,  61,  713 

Run-Menu 62,  108,  611,  645 

Runtime 571,  590 

SADD 713 

Sampling  515,  544,  730,  743 

Samplingfrequenz 715 

Satznummer 659 

Save 278 

SAVE  81.  714 

SAVE  AS  59,  80 

SAY  508,714 
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Scheppner,  Carolyn 400 

Schleife  730 

SchlieBsymbol 31,  83,  161,  732 

Schnittstelle  351,  365,  695,  756 

Schreibschutz-Schieber 85,  620 

Schublade   31,  37,  288^  296 

Schublade  anlegen 84 

Schwingung  532,  541 

Screen  146,  154,  375,  393 

SCREEN  716,  756 

SCREEN  CLOSE  163    717 

SCRN:  ;356 

SCROLL 137,  717 

Scrollen 136 

Scrolling  329,  757 

Selbsttest 25,  36 

Sequentielle  Datei  ...  312,  316,  342,  467,  526,  664,  679,  687,  735 

SER:  365 

Senelle  Schnittstelle  365,  695,  742,  750 

SGN  718 

SHARED  429,  718 

Show  List 62,  108 

Show  Output  156 

Sicherheitsabfrage  283,  348 

Sicherheitskopie  35,  38,  39 

Sidecar  754 

SIN  .7769,  719 

Sinus  200,  719 

Sinus-Funktion  169 

Sinusschwingung  729 

Sinuswelle  542,  545 

Skalierung 350 

SLEEP  !.."""""!""  719 

Snapshot 87 

Software 757 

Sonderzeichen 114,  637 

Sortsubs  578 

SOUND 532   720 

SOUND  RESUME  539]  720 
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SOUND  WAIT  539,  720 

Source  • 577 

Source-Code  567 

SPACES  476,  721 

Spalte  673 

SPC 721 

Special 33 

Speicheranzeige  31 

Speicherbereiche  657 

Speichereinteilung 641 

Speichern  59,  80,  289,  413,  502 

Speicherplatz  48,  619 

Sprach-Utility 519,  742 

Spracherzeugung  506,  508 

Spraydose 229 

Sprechgeschwindigkeit 515,  520,  715,  742 

Sprite  88,99 

Sprungmarke  69,  613 

Spuren •••  290 

SQR • •  721 

Stack 581 

Start • 62 

Statistikdaten-Verwaltung 322 

Step  • 181,  185 

STEP  • -  657 

Stereo 516,  535 

Stereoanlage 506 

Steuerzeichen 359 

Steuerzeichen-Konvertierung  365 

STICK 368,722 

Stimme  '. 512,  515,  520,  742 

STOP 722 

Stopbits 696 

STR$ 321,  723,  65 

Strichpunkt 342 

STRIG  • 369,  723 

String  • 622,  713 

STRINGS 128,  724 

Stringvariable  72 

Strukturierte  Programmierung  191,  611,  662 
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SUB-Programm  425,  438,  609,  613,  614,  632 

SUB...END  SUB  578 

SUB...STATIC  425,  724 

Suchen  490,  503,'  665 

SWAP  725 

Symbols 577 

Syntax 629 

Syntax  error  1 15,  623 

Synthesizer 544 

Synthesizer-Programm  55 1 

SYSTEM  !.7m,  725 

TAB  330,  725 

Tabulator  73 1 

TAN  ZZZZZZZ.  726 

Tangens 726 

Tastatur  50,  558 

Tastaturpuffer  131,  332,663 

Text   245 

Textcraft 204 

TIMES  , 134,  726 

Timer  694,  726 

TIMER  OFF  727 

TIMER  ON  727 

TIMER  STOP  727 

Titelsequenzen 431 

Token 174,  714,  757 

Ton  531,  720 

Tonerzeugung 533,  546 

Tonkanale  516 

Tools-Schublade 45 

Tortengrafiken  188,  317 

Total  577 

Trace  On 108 

Trace-Funktion  728 

Trace-Modus  108 
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Transformer  753 

TRANSLATES 508,  727 

Trashcan  32,  38,  294,  308 

Trennzeichen  343,  665,  675,  702 

TROFF  109,  728 

TRON . 109,728 

UBOUND  667 

UCASES  129,  728 

Uhrzeit  • 726 

Unter-Inhaltsverzeichnis  31 

Unterprogramm  102,  425 

Utility  193,  519,  757 

VAL 77,729 

Variable  53,  702 

Variablennamen 79 

Variablentyp 219 

VARPTR  729 

Versionsnummer 47 

Videotitel-Programm  60,  413 

Vieleck 630 

Vordergrundfarbe  644 

Vorzeichen  704,  718 

Wahrheitstabelle 262 

Warteschlange  518,  539,  643,  720 

WAVE 546,729 

Weiblich 515,  520,  715,  743 

Welle  532,  542,  557,  730 

Wellenform  545,  551,  729 

WHILE...WEND  212,  730 

WIDTH  128,  731 

Window 28,  50,  146,  160,  251 

WINDOW 732,  733 

WINDOW  CLOSE  163,  734 

WINDOW  OUTPUT  162,  734 

Window-Titel 29 

Windows-Menu 62,  108 

Winkel 178,640 
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Workbench  25,  36,  290,  366,  507,  750 

Wort  259 

Wortl&nge 696 

WRITE 3417434,  735 

WRITE#  735 

XOR  . 263,  376,  736 

Zahlensysteme 445 

Zeiien 673,  577 

Zeilen-Editor  57,  758,  60 

Zeilennummer  660,  671 

Zeittakt  r 538 

Zufallszahlen 166,  550,  709,  711 

Zweites  Laufwerk  44,  86 

Zwischenspiel  38 


